Merge branch 'don/processencoding' of git+ssh://git.donarmstrong.com/srv/git/debbugs...

[debbugs.git] / t / 02_common.t

diff --git a/t/02_common.t b/t/02_common.t
new file mode 100644 (file)
index 0000000..d770d3f
--- /dev/null
+++ b/t/02_common.t
@@ -0,0 +1,14 @@
+# -*- mode: cperl;-*-
+
+use Test::More tests => 2;
+use Encode qw(decode_utf8);
+
+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)],
+         },
+        );