次のコードがあります。
#!/usr/bin/perl
use Test::Simple tests => 2;
$file = "lalaletc";
$file2 = "lalal";
ok($file =~ m/^lala/);
ok($file2 =~ m/^lala$/);
出力は次のとおりです。
1..2
ok 1
not ok 2
# Failed test at ./test.pl line 7.
# Looks like you failed 1 test of 2.
しかし、$file2 にはこれ以上文字がないので、テスト 2 に成功すると予想していましたが、なぜ成功しないのでしょうか?