Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
53 lines (46 sloc) 1.25 KB
module MainTest where
import Test.Framework (defaultMain, testGroup)
import Test.Framework.Providers.HUnit
import Test.HUnit
import MainLib
test1 = 14197824 @=? square 3768
test2 = 201578206334976 @=? square (square 3768)
test3 = -1 @=? smaller(-1, 0)
test4 = -1 @=? smaller(0, -1)
test5 = 1 @=? smaller(1, 1)
test6 = 3.218696 @=? delta( 4.2, 7, 2.3)
test7 = 201578206334976 @=? quad 3768
test8 = 0 @=? greater(-1, 0)
test9 = 0 @=? greater(0, -1)
test10 = -1 @=? greater(-1, -1)
test11 = 7 / 22 @=? areaCircle (7/22)
test12 = 22/7 @=? areaCircle 1
test13 = 0 @=? areaCircle 0
tests = [
testGroup "square" [
testCase "(square 3768)" test1,
testCase "square (square 3768)" test2
],
testGroup "smaller" [
testCase "smaller(-1,0)" test3,
testCase "smaller(0, -1)" test4,
testCase "smaller(-1, -1)" test5
],
testGroup "delta" [
testCase "delta(4.2, 7, 2.3)" test6
],
testGroup "quad" [
testCase "quad(3768)" test7
],
testGroup "greater" [
testCase "greater(-1,0)" test8,
testCase "greater(0, -1)" test9,
testCase "greater(1, 1)" test10
],
testGroup "areaCircle" [
testCase "r 7/22" test11,
testCase "r 1" test12,
testCase "r 0" test13
]
]
runTests = defaultMain tests