ysasaki · May 16, 2012 11:28 · ysasaki · May 16, 2012
diff --git a/000_require.t b/000_require.t
 use strict;
 use warnings;
 use Test::More;

 require_ok 'main.pl';

 is sum(1,2), 3, 'sum ok';

 done_testing;
diff --git a/hokkaidopm-casual1.md b/hokkaidopm-casual1.md
diff --git a/main.pl b/main.pl
 #!/usr/bin/env perl

 # 今日の質問: 一枚ペラのスクリプトのテストをどうするか
 # 回答     : main()とか定義しておけばいいんじゃね

 use v5.14;
 use warnings;

 main() unless caller();

 sub main {
    say sum(1,2);
 }

 sub sum {
    my ($x, $y) = @_;
    return $x + $y;
 }
	#!/usr/bin/env perl

	# 今日の質問: 一枚ペラのスクリプトのテストをどうするか
	# 回答 : main()とか定義しておけばいいんじゃね

	use v5.14;
	use warnings;

	main() unless caller();

	sub main {
	say sum(1,2);
	}

	sub sum {
	my ($x, $y) = @_;
	return $x + $y;
	}