diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 21:10:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 21:10:26 +0000 |
| commit | 44dcb63b0bb49fa80a224080c0601a2af7b94275 (patch) | |
| tree | d792893c44395e342cddd5c15c89529d3f7fef11 /t/op/ver.t | |
| parent | f6c8478cc6cfc17dcb81770ef59a5e1c39269012 (diff) | |
| download | perl-44dcb63b0bb49fa80a224080c0601a2af7b94275.tar.gz | |
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
Diffstat (limited to 't/op/ver.t')
| -rwxr-xr-x | t/op/ver.t | 5 |
1 files changed, 1 insertions, 4 deletions
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; |