t/lib/Test/success.t

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