From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 12 Apr 2006 16:18:30 +0000 (+0000)
Subject: Test that we can do embedded 0 bytes in hints.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4210e623646c7033a4e910db43c1b76aafbe52c6;p=p5sagit%2Fp5-mst-13.2.git

Test that we can do embedded 0 bytes in hints.

p4raw-id: //depot/perl@27777
---

diff --git a/t/op/caller.t b/t/op/caller.t
index 082f595..c32b044 100644
--- a/t/op/caller.t
+++ b/t/op/caller.t
@@ -5,7 +5,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan( tests => 64 );
+    plan( tests => 65 );
 }
 
 my @c;
@@ -225,3 +225,10 @@ print "# which now works inside evals\n";
     eval "is(get_dooot(), 54); 1" or die $@;
 EOE
 }
+
+{
+    BEGIN {
+	$^H{dooot} = "FIP\0FOP\0FIDDIT\0FAP";
+    }
+    is(get_dooot(), "FIP\0FOP\0FIDDIT\0FAP", "Can do embedded 0 bytes");
+}