Тесты для первой функции

lab4/test/Spec.hs

@@ -1,2 +1,20 @@
+import Test.QuickCheck
+import Lib (isCongruent)
+
+propCongruentDifference :: Int -> Int -> Int -> Property
+propCongruentDifference a b m =
+  m /= 0 ==> isCongruent a b m == ((a - b) `mod` m == 0)
+
+propCongruentSymmetric :: Int -> Int -> Int -> Property
+propCongruentSymmetric a b m =
+  m /= 0 ==> isCongruent a b m == isCongruent b a m
+
+propCongruentEqualNumbers :: Int -> Int -> Property
+propCongruentEqualNumbers a m =
+  m /= 0 ==> isCongruent a a m == True
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented"
+main = do
+  quickCheck propCongruentDifference
+  quickCheck propCongruentSymmetric
+  quickCheck propCongruentEqualNumbers