#!/usr/bin/perl -w use strict; use Test::More qw/no_plan/; ok $self->gf->nice => "Yahoo!"; ok ($self->accommodation->rent != NOT_TOO_BAD) => "Yahoo!"; ok defined($job), "Yahoo!"; ok ($job->money >= $GOOD_PAY), "Yahoo!"; TODO: { ok defined($plan), "Must have plan."; ok ( @books > 2 => "Must get around to writing books."; }
[download]
yada, yada, yada.