# Running tests: 
1..14
# 
# Environment:
# 	%ball holds:
# 		1 => 1
# 		2 => 1
# 		3 => 0.9
# 		4 => 1
# 		5 => 1
# 		6 => 1
# 		7 => 1
# 		8 => 1
# 	$a1 = 3.9	 $a2 = 4
# 	$result1 = -1	 $result2 = -1
# 
# Tests:
ok 1 - %ball has expected keys and values.
ok 2 - $ball{3} (0.9) == 0.9
ok 3 - sum( @ball{ 1 .. 8 } ) == 7.9
ok 4 - $a1 == 3.9
ok 5 - $a2 == 4.0
ok 6 - $a1 (3.9) < $a2 (4)
ok 7 - $result1 (-1) == $result2 (-1)
ok 8 - $a1 (3.9) < sum @ball{ 5 .. 8 } (4)
ok 9 - $a2 (4) > sum @ball{ 1 .. 4 } (3.9)
ok 10 - sum( @ball{ 1 .. 4 } ) (3.9) < sum( @ball{ 5 .. 8 } ) (4)
ok 11 - 3.9 <=> 4 == -1
ok 12 - 4 <=> 3.9 == 1
ok 13 - 3.9 <=> 3.9 == 0
ok 14 - 4 <=> 4 == 0