blob: e87d97bb145db993de511f0d83c61116857f648e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/bin/env perl
use strict;
use warnings;
my $lib = defined($ENV{'TESTLIB'}) ? $ENV{'TESTLIB'} : 'Test::Simple';
eval "use $lib;";
print "# OK\n";
print "# (No message for next test)\n";
ok(1);
ok(1,"1 is ok");
ok( !0,"TRUE is ok");
ok('string',"'string' is ok");
print "# Not OK\n";
print "# (No message for next test)\n";
ok(0);
ok(0,"0 is not ok");
ok( !1,"FALSE is not ok");
ok('',"'' is not ok");
ok(undef,"undef is not ok");
done_testing();
|