俺のテスト

テストを書こう。

use strict;
use warnings;
use Hirafoo;
use Test::More;

my $hirafoo = Hirafoo->new;

is ($hirafoo->air,  "Can't read", "readable air ?");
is ($hirafoo->feel, "darui", "how about the feeling ?");
is ($hirafoo->personality, "poor", "how about the personality ?");

done_testing;

% prove -v hirafoo.pl

hirafoo.pl ..
ok 1 - readable air ?
ok 2 - how about the feeling ?
ok 3 - how about the personality ?
1..3
ok
All tests successful.
Files=1, Tests=3,  0 wallclock secs ( 0.08 usr  0.01 sys +  0.06 cusr  0.00 csys =  0.15 CPU)
Result: PASS

通った。
寝よう。