Home | Mirror | Search

4. Test::More

過程 39.4. Test::More setp by setp

  1. use Test::More qw(no_plan);

  2. ok($got eq $expected, $test_name);

    ok( $exp{9} == 81,                   'simple exponential' );
    ok( Film->can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined $_, @items,       'items populated' );
    				

comments powered by Disqus