Skip to content

Commit 55d9ff5

Browse files
committed
added all tests from perl 5
1 parent 9eba964 commit 55d9ff5

File tree

569 files changed

+109949
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

569 files changed

+109949
-0
lines changed

base/cond.t

+17
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
#!./perl
2+
3+
# make sure conditional operators work
4+
5+
print "1..4\n";
6+
7+
$x = '0';
8+
9+
$x eq $x && (print "ok 1\n");
10+
$x ne $x && (print "not ok 1\n");
11+
$x eq $x || (print "not ok 2\n");
12+
$x ne $x || (print "ok 2\n");
13+
14+
$x == $x && (print "ok 3\n");
15+
$x != $x && (print "not ok 3\n");
16+
$x == $x || (print "not ok 4\n");
17+
$x != $x || (print "ok 4\n");

base/if.t

+9
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
#!./perl
2+
3+
print "1..2\n";
4+
5+
# first test to see if we can run the tests.
6+
7+
$x = 'test';
8+
if ($x eq $x) { print "ok 1\n"; } else { print "not ok 1\n";}
9+
if ($x ne $x) { print "not ok 2\n"; } else { print "ok 2\n";}

0 commit comments

Comments
 (0)