jlamothe/abacus
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implemented setRung

Browse Source
This commit is contained in:
Jonathan Lamothe
2024-08-21 14:34:46 -04:00
parent 768497d399
commit e52bee47c3
2 changed files with 43 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
test/AbacusSpec.hs
View File

@@ -33,6 +33,7 @@ spec = describe "Abacus" $ do
getNumBeadsSpec
getNumRungsSpec
getRungSpec
setRungSpec
newAbacusSpec :: Spec
newAbacusSpec = describe "newAbacusSpec" $ mapM_
@@ -81,11 +82,27 @@ getRungSpec = describe "getRung" $ mapM_
in it ("should be " ++ show expected) $
actual `shouldBe` expected
)
[ ( "0th rung", 0, Just 2 )
, ( "last rung", 2, Just 5 )
[ ( "first rung", 0, Just 2 )
, ( "last rung", 2, Just 5 )
, ( "negative rung", -1, Nothing )
, ( "too large", 3, Nothing )
, ( "too large", 3, Nothing )
] where
abacus = Abacus 10 [2, 3, 5]
setRungSpec :: Spec
setRungSpec = describe "setRung" $ mapM_
( \(desc, rung, val, expected) -> context desc $ let
actual = setRung rung val $ mkA [2, 3, 5]
in it ("should be " ++ show expected) $
actual `shouldBe` expected
)
[ ( "first rung", 0, 10, mkA [10, 3, 5] )
, ( "last rung", 2, 10, mkA [ 2, 3, 10] )
, ( "negative rung", -1, 10, mkA [ 2, 3, 5] )
, ( "large rung", 3, 10, mkA [ 2, 3, 5] )
, ( "negative value", 1, -1, mkA [ 2, 0, 5] )
, ( "large value", 1, 11, mkA [ 2, 10, 5] )
] where
mkA = Abacus 10
--jl