http://qs1969.pair.com?node_id=363784

Public Scratchpad

Download, Select Code To D/L

---

#!/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.