6.4. Test::More

过程 6.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' );
   				

原文出处：Netkiller 系列 手札
本文作者：陈景峯
转载请与作者联系，同时请务必标明文章原始出处和作者信息及本声明。