foo.pl use strict; use warnings; sub my_print{ my $c = shift; $c . "\n"; } 1; foo.t use strict; use warnings; use Test::More 'no_plan'; require 'foo.pl'; ok( my_print('First Test') eq 'First Test' . "\n"); 実行 $ perl foo.t ok 1 1..1 ここ…