blob: 6a090bc59a6cb41648c6bfef3a0736aa373a5847 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
# -*-perl-*-
use strict;
use Test;
BEGIN { plan tests => 11 }
ok(ok(1));
ok(ok('fixed', 'fixed'));
ok(skip("just testing skip()",0));
ok(undef, undef);
ok(ok 'the brown fox jumped over the lazy dog', '/lazy/');
ok(ok 'the brown fox jumped over the lazy dog', 'm,fox,');
|
