[svn:parrot] r49515 - trunk/t/tools

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Mon Oct 11 21:33:28 2010
New Revision: 49515
URL: https://trac.parrot.org/parrot/changeset/49515

Log:
[t] Add tests for r49514

Modified:
   trunk/t/tools/pbc_disassemble.t
   trunk/t/tools/pbc_dump.t

Modified: trunk/t/tools/pbc_disassemble.t
==============================================================================
--- trunk/t/tools/pbc_disassemble.t	Mon Oct 11 18:53:46 2010	(r49514)
+++ trunk/t/tools/pbc_disassemble.t	Mon Oct 11 21:33:28 2010	(r49515)
@@ -45,7 +45,7 @@
         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 @@
 .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

Modified: trunk/t/tools/pbc_dump.t
==============================================================================
--- trunk/t/tools/pbc_dump.t	Mon Oct 11 18:53:46 2010	(r49514)
+++ trunk/t/tools/pbc_dump.t	Mon Oct 11 21:33:28 2010	(r49515)
@@ -45,7 +45,7 @@
         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 @@
 .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";