cleanup tests, make testCodebase.pl work with traditional --configFile syntax

This commit is contained in:
Colin Kuskie 2006-03-09 01:00:27 +00:00
parent d0fca48a32
commit 9a6e77c4eb
3 changed files with 14 additions and 19 deletions

View file

@ -15,7 +15,7 @@ use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 63; # increment this value for each test you create
use Test::More tests => 26; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -75,18 +75,4 @@ is($session->datetime->timeToSeconds("08:00:00"), 60*60*8, "timeToSeconds()");
"%Y" => "%y"
);
diag("check WebGUI to DateTime conversion");
foreach my $wg (keys %conversion) {
is( $session->datetime->wgToDt($wg), $conversion{$wg},
sprintf "WG to DT format conversion: %s => %s", $wg, $conversion{$wg});
}
%conversion = reverse %conversion;
delete $conversion{'%_varmonth_'};
diag("check DateTime to WebGUI conversion");
foreach my $dt (keys %conversion) {
is( $session->datetime->dtToWg($dt), $conversion{$dt},
sprintf "WG to DT format conversion: %s => %s", $dt, $conversion{$dt});
}