Re: Are we missing some tests?

Message-Id: <7C63C4C8-B0DA-46F2-81D7-F2C14AFF76B8@cpan.org>
Date: Fri, 23 Nov 2007 16:15:46 +0000

p4raw-id: //depot/perl@32468

diff --git a/t/op/ver.t b/t/op/ver.t
index d6b93e0..fd1e4d2 100755 (executable)
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -11,7 +11,7 @@ $DOWARN = 1; # enable run-time warnings now
 use Config;
 
 require "test.pl";
-plan( tests => 53 );
+plan( tests => 54 );
 
 eval 'use v5.5.640';
 is( $@, '', "use v5.5.640; $@");
@@ -263,3 +263,13 @@ ok( exists $h{chr(65).chr(66)}, "v-stringness is engaged for vX.Y" );
 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!