[p5sagit/p5-mst-13.2.git] / lib / Test / t / success.t

# -*-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,');
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,');