Commit | Line | Data |
809908f7 |
1 | # -*-perl-*- |
2 | use strict; |
3 | use Test; |
4 | BEGIN { plan tests => 11 } |
5 | |
6 | ok(ok(1)); |
7 | ok(ok('fixed', 'fixed')); |
8 | ok(skip(1,0)); |
9 | ok(undef, undef); |
10 | ok(ok 'the brown fox jumped over the lazy dog', '/lazy/'); |
11 | ok(ok 'the brown fox jumped over the lazy dog', 'm,fox,'); |