Home | 简体中文 | 繁体中文 | 杂文 | Search | ITEYE 博客 | OSChina 博客 | Facebook | Linkedin | 作品与服务 | Email

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

comments powered by Disqus