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

Add test for range reversal in isBetween and refactor isBetween.

Browse source
This commit is contained in:
Colin Kuskie 2005-12-11 03:49:44 +00:00
parent d8b8d9b68d
commit 1d5ab960ee
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Utility.pm
View file

@ -125,9 +125,7 @@ sub isBetween {
my $first = shift;
my $second = shift;
if ($first > $second) {
my $temp = $first;
$first = $second;
$second = $temp;
($first,$second) = ($second,$first);
}
if ($value >= $first && $value <= $second) {
return 1;

1
t/Utility.t
View file

@ -33,6 +33,7 @@ is(WebGUI::Utility::formatBytes(1700000), '2 MB', 'formatBytes() - megabytes');
# isBetween
ok(WebGUI::Utility::isBetween(0,-1,1), 'isBetween() - negative and positive range');
ok(WebGUI::Utility::isBetween(0,1,-1), 'isBetween() - negative and positive range, reversed');
ok(WebGUI::Utility::isBetween(11,1,15), 'isBetween() - positive range');
ok(WebGUI::Utility::isBetween(-5,-10,-2), 'isBetween() - negative range');