ok

        use Test::More;

        ok($db->put_user($nosuch), "write new user");

• This prints ok 13 - write new user if $db->put_user($nosuch) returns true

• If not, the output is

        not ok 13 - write new user
        #     Failed test (testfile.t at line 1)

Next

Copyright © 2004 Mark Dominus