ikoHSE/sc-task-1
1
0
Fork 0
mirror of https://github.com/ikoHSE/sc-task-1.git synced 2024-10-05 13:37:20 +03:00
Code Issues Projects Releases Wiki Activity

Fixed tests

Browse Source
This commit is contained in:
iko 2020-04-25 18:29:51 +03:00
parent a4fa0eba07
commit 42fdbe0060
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Tests.hs
View File

@ -77,7 +77,7 @@ tests = do
it "insertAll" $ do
constructTree [1 :: Int] `shouldNotBe` constructTree [1, 2]
constructTree [1 :: Int] `shouldNotBe` constructTree []
(insertAll [3, 1, 2] . constructTree) [] `shouldBe` constructTree [2, 1, 3]
(insertAll [2, 3, 1] . constructTree) [] `shouldBe` constructTree [2, 1, 3]
(insertAll [71, 65, 56, 54, 45, 35, 15, 5] . constructTree) [50, 30, 60, 10, 55, 40, 70]
`shouldBe` constructTree [50, 30, 60, 10, 55, 40, 70, 5, 54, 35, 65, 15, 56, 45, 71]
(insertAll [71, 54, 45, 35, 15, 65, 56, 5] . constructTree) [50, 30, 60, 10, 55, 40, 70]