From 1377f5789e58b9b569d5f942ffb1688e1677e79d Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 10 Apr 2012 17:41:32 -0700 Subject: [PATCH] add Debbugs::Common test framework --- t/02_common.t | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 t/02_common.t diff --git a/t/02_common.t b/t/02_common.t new file mode 100644 index 0000000..df07193 --- /dev/null +++ b/t/02_common.t @@ -0,0 +1,13 @@ +# -*- mode: cperl;-*- + +use Test::More tests => 5; + +use_ok('Debbugs::Common'); +is_deeply(Debbugs::Common::encode_utf8_structure( + {a => decode_utf8('föö'), + b => [map {decode_utf8($_)} qw(blëh bl♥h)], + }), + {a => 'föö', + b => [qw(blëh bl♥h)], + }, + ); -- 2.39.2