basic test for toHex

This commit is contained in:
Colin Kuskie 2007-05-07 04:44:39 +00:00
parent fbec25f5f7
commit 7f034ba090

View file

@ -53,7 +53,7 @@ my @testSets = (
my $session = WebGUI::Test->session;
plan tests => scalar(@testSets) + 3;
plan tests => scalar(@testSets) + 4;
# generate
my $generateId = $session->id->generate();
@ -75,3 +75,7 @@ foreach my $testSet (@testSets) {
is($session->id->valid($testSet->{guid}), $testSet->{valid}, $testSet->{comment});
}
#
#
is($session->id->toHex('wjabZsKOb7kBBSiO3bQwzA'), 'c2369b66c28e6fb90105288eddb430cc', 'toHex works');