implemented resetAbacus and rungList

test/AbacusSpec.hs

@@ -42,6 +42,8 @@ spec = describe "Abacus" $ do
   getRungSpec
   setRungSpec
   rungLSpec
+  resetAbacusSpec
+  rungListSpec
 
 newAbacusSpec :: Spec
 newAbacusSpec = describe "newAbacusSpec" $ mapM_
@@ -142,4 +144,18 @@ rungLSpec = describe "rungL" $ do
     , ( "invalid rung", -1, mkA [2, 3, 5] )
     ]
 
+resetAbacusSpec :: Spec
+resetAbacusSpec = describe "resetAbacus" $ let
+  expected = Abacus 10 [0, 0, 0]
+  in it ("should be " ++ show expected) $ let
+    actual = resetAbacus $ Abacus 10 [2, 3, 5]
+    in expected `shouldBe` actual
+
+rungListSpec :: Spec
+rungListSpec = describe "rungList" $ let
+  expected = [2, 3, 5]
+  in it ("should be " ++ show expected) $ let
+    actual = rungList $ Abacus 10 [2, 3, 5]
+    in expected `shouldBe` actual
+
 --jl