Change 33191 by [EMAIL PROTECTED] on 2008/02/02 16:43:51
Integrate:
[ 32468]
Subject: Re: Are we missing some tests?
From: Robin Houston <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Fri, 23 Nov 2007 16:15:46 +0000
Affected files ...
... //depot/maint-5.8/perl/t/op/ver.t#5 integrate
Differences ...
==== //depot/maint-5.8/perl/t/op/ver.t#5 (xtext) ====
Index: perl/t/op/ver.t
--- perl/t/op/ver.t#4~20092~ 2003-07-09 04:41:01.000000000 -0700
+++ perl/t/op/ver.t 2008-02-02 08:43:51.000000000 -0800
@@ -11,7 +11,7 @@
use Config;
require "test.pl";
-plan( tests => 53 );
+plan( tests => 54 );
eval 'use v5.5.640';
is( $@, '', "use v5.5.640; $@");
@@ -264,3 +264,13 @@
ok( exists $h{chr(65).chr(66).chr(67)}, "v-stringness is engaged for X.Y.Z" );
+# The following tests whether v-strings are correctly
+# interpreted by the tokeniser when it's in a XTERMORDORDOR
+# state (fittingly, the only tokeniser state to contain the
+# word MORDOR).
+
+*{"\3"} = *DATA;
+is( (readline v3), "This is what we expect to see!\n", "v-strings even work in
Mordor" );
+
+__DATA__
+This is what we expect to see!
End of Patch.
