remove dual-valueness of v-strings (i.e., they are pure strings

now); avoid the word "tuple" to describe strings represented as
character ordinals; usurp $PERL_VERSION for $^V as suggested by
Larry, deprecate $] ; adjust the documentation and testsuite
accordingly

p4raw-id: //depot/perl@5186

1 files changed, 10 insertions, 10 deletions

diff --git a/t/comp/require.t b/t/comp/require.t
index f963a8ce30..7af89322a6 100755
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -7,7 +7,7 @@ BEGIN {
 
 # don't make this lexical
 $i = 1;
-print "1..20\n";
+print "1..18\n";
 
 sub do_require {
     %INC = ();
@@ -59,25 +59,25 @@ eval q{ use v10.0.2; };
 print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.2 required/;
 print "ok ",$i++,"\n";
 
-my $ver = v5.5.630;
+my $ver = 5.005_63;
 eval { require $ver; };
 print "# $@\nnot " if $@;
 print "ok ",$i++,"\n";
 
-$ver = v10.0.2;
+# check inaccurate fp
+#$ver = 10.2;
+#eval { require $ver; };
+#print "# $@\nnot " unless $@ =~ /^Perl v10\.200\.0 required/;
+#print "ok ",$i++,"\n";
+
+$ver = 10.000_02;
 eval { require $ver; };
-print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.2 required/;
+print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.20 required/;
 print "ok ",$i++,"\n";
 
 print "not " unless v5.5.1 gt v5.5;
 print "ok ",$i++,"\n";
 
-print "not " unless 5.005_01 > v5.5;
-print "ok ",$i++,"\n";
-
-print "not " unless 5.005_64 - v5.5.640 < 0.0000001;
-print "ok ",$i++,"\n";
-
 {
     use utf8;
     print "not " unless v5.5.640 eq "\x{5}\x{5}\x{280}";