From ed8711476929b550b5d8649e74e4a12252f668b9 Mon Sep 17 00:00:00 2001
From: Nick Wellnhofer <wellnhofer@aevum.de>
Date: Mon, 11 Oct 2010 21:33:28 +0000
Subject: [PATCH] [t] Add tests for r49514

git-svn-id: https://svn.parrot.org/parrot/trunk@49515 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 t/tools/pbc_disassemble.t | 16 +++++++++++++++-
 t/tools/pbc_dump.t        | 10 +++++++++-
 2 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/t/tools/pbc_disassemble.t b/t/tools/pbc_disassemble.t
index 5381d7cb13..d553edbb82 100644
--- a/t/tools/pbc_disassemble.t
+++ b/t/tools/pbc_disassemble.t
@@ -45,7 +45,7 @@ BEGIN {
         plan skip_all => "pbc_disassemble hasn't been built. Run make parrot_utils";
         exit(0);
     }
-    plan tests => 4;
+    plan tests => 6;
 }
 
 disassemble_output_like( <<PIR, "pir", qr/PMC_CONST.*set_n_nc.*print_n/ms, 'pbc_disassemble numeric ops');
@@ -80,6 +80,20 @@ disassemble_output_like( <<PIR, "pir", qr/PMC_CONST.*set_s_sc\s*S.*print_s\s*S.*
 .end
 PIR
 
+disassemble_output_like( <<PIR, "pir", qr/set_s_sc S0,utf8:"Hello"/ms, 'pbc_disassemble utf8 string');
+.sub main :main
+    \$S0 = utf8:"Hello"
+.end
+PIR
+
+my $utf16 = pack('S*', unpack('C*', 'Hello'));
+$utf16 =~ s/\0/\\\\0/g;
+disassemble_output_like( <<PIR, "pir", qr/set_s_sc S0,utf16:"$utf16"/ms, 'pbc_disassemble utf16 string');
+.sub main :main
+    \$S0 = utf16:"Hello"
+.end
+PIR
+
 =head1 HELPER SUBROUTINES
 
 =head2 disassemble_output_like
diff --git a/t/tools/pbc_dump.t b/t/tools/pbc_dump.t
index 0fcc3ce96d..23c0f5135f 100644
--- a/t/tools/pbc_dump.t
+++ b/t/tools/pbc_dump.t
@@ -45,7 +45,7 @@ BEGIN {
         plan skip_all => "pbc_dump hasn't been built. Run make parrot_utils";
         exit(0);
     }
-    plan tests => 7;
+    plan tests => 13;
 }
 
 dump_output_like( <<PIR, "pir", [qr/CONSTANT_t/, qr/BYTECODE_t/], 'pbc_dump basic sanity');
@@ -72,6 +72,14 @@ dump_output_like( <<PIR, "pir", qr/BYTECODE_t.*=>.*\[.*offs.*op_count.*itype.*id
 .end
 PIR
 
+for my $enc qw(binary iso-8859-1 utf8 utf16 ucs2 ucs4) {
+    dump_output_like( <<PIR, "pir", qr/ENCODING.*=>.*$enc/ms, "pbc_dump $enc encoding");
+.sub main :main
+    \$S0 = $enc:"abc"
+.end
+PIR
+}
+
 my $longcode = ".sub main :main\n";
 for (0 ... 10000) {
     $longcode .= "\$I0 = \$I0 + 1234\n";