add Debbugs::Common test framework

diff --git a/t/02_common.t b/t/02_common.t
new file mode 100644 (file)
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)],
+         },
+        );