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')); | |
edd5bad5 | 8 | ok(skip("just testing skip()",0)); |
809908f7 | 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,'); |