ext/Devel/PPPort/t/testutil.pl

   1 {
   2   my $__ntest;
   3
   4   sub ok ($;$$) {
   5     local($\,$,);
   6     my $ok = 0;
   7     my $result = shift;
   8     if (@_ == 0) {
   9       $ok = $result;
  10     } else {
  11       $expected = shift;
  12       if (!defined $expected) {
  13         $ok = !defined $result;
  14       } elsif (!defined $result) {
  15         $ok = 0;
  16       } elsif (ref($expected) eq 'Regexp') {
  17         die "using regular expression objects is not backwards compatible";
  18       } else {
  19         $ok = $result eq $expected;
  20       }
  21     }
  22     ++$__ntest;
  23     if ($ok) {
  24       print "ok $__ntest\n"
  25     }
  26     else {
  27       print "not ok $__ntest\n"
  28     }
  29   }
  30 }
  31
  32 1;