added epochToMail() test
This commit is contained in:
parent
a5d38396a1
commit
b4102862d4
1 changed files with 2 additions and 1 deletions
|
|
@ -15,7 +15,7 @@ use lib "$FindBin::Bin/../lib";
|
|||
use WebGUI::Test;
|
||||
use WebGUI::Session;
|
||||
|
||||
use Test::More tests => 28; # increment this value for each test you create
|
||||
use Test::More tests => 29; # increment this value for each test you create
|
||||
|
||||
my $session = WebGUI::Test->session;
|
||||
|
||||
|
|
@ -32,6 +32,7 @@ is($session->datetime->epochToHuman($wgbday,"%m"), "08", "epochToHuman() - month
|
|||
is($session->datetime->epochToHuman($wgbday,"%M"), "8", "epochToHuman() - month number, variable digit");
|
||||
is($session->datetime->epochToHuman($wgbday,"%%%c%d%h"), "%August1608", "epochToHuman()");
|
||||
is($session->datetime->epochToHttp($wgbday),"Thu, 16 Aug 2001 13:08:00 GMT","epochToHttp()");
|
||||
is($session->datetime->epochToMail($wgbday),"Thu, 16 Aug 2001 08:00:00 -0500","epochToMail()");
|
||||
is($session->datetime->epochToSet($wgbday,1), "2001-08-16 08:00:00", "epochToSet()");
|
||||
is($session->datetime->getDayName(7), "Sunday", "getDayName()");
|
||||
is($session->datetime->getDaysInMonth($wgbday), 31, "getDaysInMonth()");
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue