Unit Tests

- The unit tests needed a little love after "undelete" went away, and
  "undo" changed.
- Fixed a few tests that were broken.
This commit is contained in:
Paul Beckingham 2009-07-03 00:51:25 -04:00
parent 367214c57a
commit ef7c5dc4eb
9 changed files with 37 additions and 50 deletions

View file

@ -43,7 +43,7 @@ if (open my $fh, '>', 'cal.rc')
ok (-r 'cal.rc', 'Created cal.rc');
}
(my $day,my $nmon,my $nyear) = (localtime)[3,4,5];
my ($day, $nmon, $nyear) = (localtime)[3,4,5];
my $nextmonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[($nmon+1) % 12];
my $month = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[($nmon) % 12];
my $prevmonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[($nmon-1) % 12];