diff options
author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/t/op/flip.t | |
parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz |
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/t/op/flip.t')
-rwxr-xr-x | contrib/perl5/t/op/flip.t | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/contrib/perl5/t/op/flip.t b/contrib/perl5/t/op/flip.t deleted file mode 100755 index 99b22ef..0000000 --- a/contrib/perl5/t/op/flip.t +++ /dev/null @@ -1,36 +0,0 @@ -#!./perl - -# $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $ - -print "1..10\n"; - -@a = (1,2,3,4,5,6,7,8,9,10,11,12); - -while ($_ = shift(@a)) { - if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; } - $y .= /1/../2/; -} - -if ($z eq '5E0') {print "ok 6\n";} else {print "not ok 6\n";} - -if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";} - -@a = ('a','b','c','d','e','f','g'); - -open(of,'harness') or die "Can't open harness: $!"; -while (<of>) { - (3 .. 5) && ($foo .= $_); -} -$x = ($foo =~ y/\n/\n/); - -if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";} - -$x = 3.14; -if (($x...$x) eq "1") {print "ok 9\n";} else {print "not ok 9\n";} - -{ - # coredump reported in bug 20001018.008 - readline(UNKNOWN); - $. = 1; - print "ok 10\n" unless 1 .. 10; -} |