application/third_party/test-more-php/t/testertests_func_ok.pl


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();