Sample.tをそれっぽく修正。まだTest::More版