1*0Sstevel@tonic-gate# -*-perl-*- 2*0Sstevel@tonic-gateuse strict; 3*0Sstevel@tonic-gateuse Test; 4*0Sstevel@tonic-gateBEGIN { plan tests => 11 } 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gateok(ok(1)); 7*0Sstevel@tonic-gateok(ok('fixed', 'fixed')); 8*0Sstevel@tonic-gateok(skip("just testing skip()",0)); 9*0Sstevel@tonic-gateok(undef, undef); 10*0Sstevel@tonic-gateok(ok 'the brown fox jumped over the lazy dog', '/lazy/'); 11*0Sstevel@tonic-gateok(ok 'the brown fox jumped over the lazy dog', 'm,fox,'); 12