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

2 files changed, 11 insertions, 14 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}";
diff --git a/t/op/ver.t b/t/op/ver.t
index cfbf63a2d5..93ad1f38b8 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -5,7 +5,7 @@ BEGIN {
     unshift @INC, "../lib";
 }
 
-print "1..15\n";
+print "1..14\n";
 
 my $test = 1;
 
@@ -16,9 +16,6 @@ print "ok $test\n";  ++$test;
 print "not " unless v1.20.300.4000 eq "\x{1}\x{14}\x{12c}\x{fa0}";
 print "ok $test\n";  ++$test;
 
-print "not " unless v1.20.300.4000 > 1.0203039 and v1.20.300.4000 < 1.0203041;
-print "ok $test\n";  ++$test;
-
 print "not " unless sprintf("%vd", "Perl") eq '80.101.114.108';
 print "ok $test\n";  ++$test;