diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-28 11:09:57 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-29 14:17:48 +0000 |
| commit | 210db7fc53b6b7664595bb19b3377dc4d623b968 (patch) | |
| tree | 59dc8c61a36d7f5670c15593df295882a4da3d1d /t/op/ver.t | |
| parent | 48a293f80d23821f3c0607e55e7a7df61f5cff78 (diff) | |
| download | perl-210db7fc53b6b7664595bb19b3377dc4d623b968.tar.gz | |
some tests (was Re: Perl5.7.* Unicode/EBCDIC status.)
Message-ID: <Pine.OSF.4.10.10103281858520.314137-100000@aspara.forte.com>
p4raw-id: //depot/perl@9434
Diffstat (limited to 't/op/ver.t')
| -rwxr-xr-x | t/op/ver.t | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/t/op/ver.t b/t/op/ver.t index e248a48482..2eddabd22d 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -128,8 +128,14 @@ print "ok $test\n"; ++$test; } print "ok $test\n"; ++$test; - print "not " unless - sprintf("%vd", 1.22.333.4444) eq '1.22.197.141.225.133.156'; + if (ord("\t") == 9) { # ASCII + print "not " unless + sprintf("%vd", 1.22.333.4444) eq '1.22.197.141.225.133.156'; + } + else { + print "not " unless + sprintf("%vd", 1.22.333.4444) eq '1.22.142.84.187.81.112'; + } print "ok $test\n"; ++$test; if (ord("\t") == 9) { # ASCII @@ -140,7 +146,12 @@ print "ok $test\n"; ++$test; } print "ok $test\n"; ++$test; - print "not " unless sprintf("%vX", v1.22.333.4444) eq '1.16.C5.8D.E1.85.9C'; + if (ord("\t") == 9) { # ASCII + print "not " unless sprintf("%vX", v1.22.333.4444) eq '1.16.C5.8D.E1.85.9C'; + } + else { + print "not " unless sprintf("%vX", v1.22.333.4444) eq '1.16.8E.54.BB.51.70'; + } print "ok $test\n"; ++$test; if (ord("\t") == 9) { # ASCII @@ -151,8 +162,14 @@ print "ok $test\n"; ++$test; } print "ok $test\n"; ++$test; - print "not " unless sprintf("%*vb", "##", v1.22.333.4444) - eq '1##10110##11000101##10001101##11100001##10000101##10011100'; + if (ord("\t") == 9) { # ASCII + print "not " unless sprintf("%*vb", "##", v1.22.333.4444) + eq '1##10110##11000101##10001101##11100001##10000101##10011100'; + } + else { + print "not " unless sprintf("%*vb", "##", v1.22.333.4444) + eq '1##10110##10001110##1010100##10111011##1010001##1110000'; + } print "ok $test\n"; ++$test; } |