adding base36 functions

This commit is contained in:
JT Smith 2006-01-18 15:21:10 +00:00
parent 2069da5fdb
commit ea14e9de4c
3 changed files with 54 additions and 3 deletions

View file

@ -16,10 +16,13 @@ use lib "$FindBin::Bin/lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 21; # increment this value for each test you create
use Test::More tests => 22; # increment this value for each test you create
my $session = WebGUI::Test->session;
# base 36
is(WebGUI::Utility::fromBase36(WebGUI::Utility::toBase36(1234567890)), 1234567890, "{to/from}Base36()");
# commify
is(WebGUI::Utility::commify(10), "10", 'commify() - no comma needed');
is(WebGUI::Utility::commify(1000), "1,000", 'commify() - single comma');