#!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; print "a"; ok(1); # 絶対通るはずなんだけど... ok の引数が 1 だから、絶対に通るはずのテストです。でもコレが通らないんだ。 % prove a.t a.... Failed 1/1 subtests Test Summar…