/Psp/StructuresTest.hs

 1
 2module StructuresTest where
 3
 4import Structures
 5import Test.HUnit
 6import Data.Array
 7
 8allTests :: Test
 9allTests = TestList [TestLabel "testStateOrdering" testStateOrdering,
10                     TestLabel "testRange" testRange]
11
12testStateOrdering :: Test
13testStateOrdering = TestCase (do
14     assertBool "ProjectInactive is greater than everyone" (ProjectInactive "" > ProjectActive "" Waiting)
15     assertEqual "should be false" False (ProjectActive "" Paused > ProjectActive "" Waiting)
16     assertBool "should be true" (ProjectActive "" (Recording "") <= ProjectActive "" (Recording ""))
17                             )
18testRange :: Test
19testRange = TestCase (do
20    assertEqual "expect no elements" 0 (length(range (ProjectActive "root" (Recording "t0"), ProjectInactive "")))
21    assertEqual "just two elements" 2 (length(range (ProjectActive "" Waiting, ProjectActive "" Paused)))
22                )