proveに引き数を渡す
prove t/05_hoge.t :: hoge
#!/usr/local/bin/perl use 5.14.2; use strict; use warnings; use utf8; use Test::More; subtest 'arg_test'=> sub { ok $ARGV[0]; is $ARGV[0] , "hoge"; done_testing; }; done_testing;
prove t/05_hoge.t :: hoge
#!/usr/local/bin/perl use 5.14.2; use strict; use warnings; use utf8; use Test::More; subtest 'arg_test'=> sub { ok $ARGV[0]; is $ARGV[0] , "hoge"; done_testing; }; done_testing;