X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fjoin.t;h=c2829df09648b5b23cd187a74170252a4d155378;hb=bd7d4f4d586a396d1b104a293cce339c8d63ce5a;hp=a1cc60712528b14083ebe65147f4c5191dcb2154;hpb=e4803c42e84cae1aa5a416a4f8c6f80f7d37e49f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/join.t b/t/op/join.t
index a1cc607..c2829df 100755
--- a/t/op/join.t
+++ b/t/op/join.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..18\n";
+print "1..22\n";
 
 @x = (1, 2, 3);
 if (join(':',@x) eq '1:2:3') {print "ok 1\n";} else {print "not ok 1\n";}
@@ -79,15 +79,35 @@ if ($f eq 'baeak') {print "ok 6\n";} else {print "# '$f'\nnot ok 6\n";}
   my $jb2 = join_into_my_variable("", $b);
   my $ju2 = join_into_my_variable("", $u);
 
-  print "not " unless unpack('H*', $jb1) eq unpack('H*', $b);
-  print "ok 15\n";
-
-  print "not " unless unpack('H*', $ju1) eq unpack('H*', $u);
+  {
+      use bytes;
+      print "not " unless $jb1 eq $b;
+      print "ok 15\n";
+  }
+  print "not " unless $jb1 eq $b;
   print "ok 16\n";
 
-  print "not " unless unpack('H*', $jb2) eq unpack('H*', $b);
-  print "ok 17\n";
-
-  print "not " unless unpack('H*', $ju2) eq unpack('H*', $u);
+  {
+      use bytes;
+      print "not " unless $ju1 eq $u;
+      print "ok 17\n";
+  }
+  print "not " unless $ju1 eq $u;
   print "ok 18\n";
+
+  {
+      use bytes;
+      print "not " unless $jb2 eq $b;
+      print "ok 19\n";
+  }
+  print "not " unless $jb2 eq $b;
+  print "ok 20\n";
+
+  {
+      use bytes;
+      print "not " unless $ju2 eq $u;
+      print "ok 21\n";
+  }
+  print "not " unless $ju2 eq $u;
+  print "ok 22\n";
 }