cpan/Test-Simple/t/SmallTest.pm

   1 use strict;
   2 use warnings;
   3
   4 package SmallTest;
   5
   6 require Exporter;
   7
   8 use vars qw( @ISA @EXPORT );
   9 @ISA = qw( Exporter );
  10 @EXPORT = qw( ok is_eq is_num );
  11
  12 use Test::Builder;
  13
  14 my $Test = Test::Builder->new;
  15
  16 sub ok
  17 {
  18         $Test->ok(@_);
  19 }
  20
  21 sub is_eq
  22 {
  23         $Test->is_eq(@_);
  24 }
  25
  26 sub is_num
  27 {
  28         $Test->is_num(@_);
  29 }
  30
  31 sub getTest
  32 {
  33         return $Test;
  34 }
  35 1;