oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Coverage is 100/98/63.

Browse source 
Missing coverage is checking for leaving off the epoch argument
and getting the default of time(), and some kind of Devel::Cover
issue where it says that time() could return 0.
This commit is contained in:
Colin Kuskie 2007-04-11 03:05:43 +00:00
parent febc052d97
commit 025a66e30d
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
t/Session/DateTime.t
View file

@ -17,7 +17,7 @@ use File::Spec;
use WebGUI::Test; use WebGUI::Test;
use WebGUI::Session; use WebGUI::Session;
use Test::More tests => 74; # increment this value for each test you create use Test::More tests => 77; # increment this value for each test you create
installBadLocale(); installBadLocale();
@ -167,6 +167,12 @@ ok($timeZoneFormatFlag, 'getTimeZones: All time zones formatted correctly for re
ok($dt->addToDate($wgbday,1,2,3) >= $wgbday+1*60*60*24*365+2*60*60*24*28+3*60*60*24, "addToDate()"); ok($dt->addToDate($wgbday,1,2,3) >= $wgbday+1*60*60*24*365+2*60*60*24*28+3*60*60*24, "addToDate()");
is($dt->addToDate($wgbday), $wgbday, 'addToDate defaults to adding 0'); is($dt->addToDate($wgbday), $wgbday, 'addToDate defaults to adding 0');
cmp_ok(
abs($dt->addToDate()-time),
'<=',
1,
"addToDate() with no arguments returns the current time"
);
#################################################### ####################################################
# #
@ -176,6 +182,13 @@ is($dt->addToDate($wgbday), $wgbday, 'addToDate defaults to adding 0');
ok($dt->addToTime($wgbday,1,2,3) >= $wgbday+1*60*60+2*60+3, "addToTime()"); ok($dt->addToTime($wgbday,1,2,3) >= $wgbday+1*60*60+2*60+3, "addToTime()");
is($dt->addToTime($wgbday), $wgbday, 'addToTime defaults to adding 0'); is($dt->addToTime($wgbday), $wgbday, 'addToTime defaults to adding 0');
cmp_ok(
abs($dt->addToTime()-time),
'<=',
1,
"addToTime() with no arguments returns the current time"
);
#################################################### ####################################################
# #
@ -185,6 +198,12 @@ is($dt->addToTime($wgbday), $wgbday, 'addToTime defaults to adding 0');
ok($dt->addToDateTime($wgbday,1,2,3,4,5,6) >= $wgbday+1*60*60*24*365+2*60*60*24*28+3*60*60*24+4*60*60+5*60+6, "addToDateTime()"); ok($dt->addToDateTime($wgbday,1,2,3,4,5,6) >= $wgbday+1*60*60*24*365+2*60*60*24*28+3*60*60*24+4*60*60+5*60+6, "addToDateTime()");
is($dt->addToDateTime($wgbday), $wgbday, 'addToDateTime defaults to adding 0'); is($dt->addToDateTime($wgbday), $wgbday, 'addToDateTime defaults to adding 0');
cmp_ok(
abs($dt->addToDateTime()-time),
'<=',
1,
"addToDateTime() with no arguments returns the current time"
);
#################################################### ####################################################
# #