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