haskell: standard classes — show, Ord, Num, Functor, Monad prelude (+48 tests, 554/554)

lib/haskell/tests/stdlib.sx

@@ -0,0 +1,151 @@
+;; stdlib.sx — tests for standard-library functions added in Phase 5:
+;; Eq/Ord, Show, Num, Functor, Monad, Applicative, plus common Prelude.
+
+(define
+  hk-t
+  (fn
+    (lbl src expected)
+    (hk-test lbl (hk-deep-force (hk-run src)) expected)))
+
+(define
+  hk-ts
+  (fn
+    (lbl src expected)
+    (hk-test
+      lbl
+      (hk-deep-force (hk-run (str "main = show (" src ")")))
+      expected)))
+
+;; ── Ord ──────────────────────────────────────────────────────
+(hk-test
+  "compare lt"
+  (hk-deep-force (hk-run "main = compare 1 2"))
+  (list "LT"))
+(hk-test
+  "compare eq"
+  (hk-deep-force (hk-run "main = compare 3 3"))
+  (list "EQ"))
+(hk-test
+  "compare gt"
+  (hk-deep-force (hk-run "main = compare 9 5"))
+  (list "GT"))
+(hk-test "min" (hk-deep-force (hk-run "main = min 3 5")) 3)
+(hk-test "max" (hk-deep-force (hk-run "main = max 3 5")) 5)
+
+;; ── Show ─────────────────────────────────────────────────────
+(hk-ts "show int" "42" "42")
+(hk-ts "show neg" "negate 7" "-7")
+(hk-ts "show bool T" "True" "True")
+(hk-ts "show bool F" "False" "False")
+(hk-ts "show list" "[1,2,3]" "[1, 2, 3]")
+(hk-ts "show Just" "Just 5" "(Just 5)")
+(hk-ts "show Nothing" "Nothing" "Nothing")
+(hk-ts "show LT" "LT" "LT")
+(hk-ts "show tuple" "(1, True)" "(1, True)")
+
+;; ── Num extras ───────────────────────────────────────────────
+(hk-test "signum pos" (hk-deep-force (hk-run "main = signum 5")) 1)
+(hk-test
+  "signum neg"
+  (hk-deep-force (hk-run "main = signum (negate 3)"))
+  (- 0 1))
+(hk-test "signum zero" (hk-deep-force (hk-run "main = signum 0")) 0)
+(hk-test "fromIntegral" (hk-deep-force (hk-run "main = fromIntegral 7")) 7)
+
+;; ── foldr / foldl ────────────────────────────────────────────
+(hk-test "foldr sum" (hk-deep-force (hk-run "main = foldr (+) 0 [1,2,3]")) 6)
+(hk-test "foldl sum" (hk-deep-force (hk-run "main = foldl (+) 0 [1,2,3]")) 6)
+(hk-test "foldl1" (hk-deep-force (hk-run "main = foldl1 (+) [1,2,3,4]")) 10)
+(hk-test
+  "foldr cons"
+  (hk-deep-force (hk-run "main = show (foldr (:) [] [1,2,3])"))
+  "[1, 2, 3]")
+
+;; ── List ops ─────────────────────────────────────────────────
+(hk-test
+  "reverse"
+  (hk-deep-force (hk-run "main = show (reverse [1,2,3])"))
+  "[3, 2, 1]")
+(hk-test "null []" (hk-deep-force (hk-run "main = null []")) (list "True"))
+(hk-test
+  "null xs"
+  (hk-deep-force (hk-run "main = null [1]"))
+  (list "False"))
+(hk-test
+  "elem yes"
+  (hk-deep-force (hk-run "main = elem 2 [1,2,3]"))
+  (list "True"))
+(hk-test
+  "elem no"
+  (hk-deep-force (hk-run "main = elem 9 [1,2,3]"))
+  (list "False"))
+(hk-test
+  "zip"
+  (hk-deep-force (hk-run "main = show (zip [1,2] [3,4])"))
+  "[(1, 3), (2, 4)]")
+(hk-test "sum" (hk-deep-force (hk-run "main = sum [1,2,3,4,5]")) 15)
+(hk-test "product" (hk-deep-force (hk-run "main = product [1,2,3,4]")) 24)
+(hk-test "maximum" (hk-deep-force (hk-run "main = maximum [3,1,9,2]")) 9)
+(hk-test "minimum" (hk-deep-force (hk-run "main = minimum [3,1,9,2]")) 1)
+(hk-test
+  "any yes"
+  (hk-deep-force (hk-run "main = any (\\x -> x > 3) [1,2,5]"))
+  (list "True"))
+(hk-test
+  "any no"
+  (hk-deep-force (hk-run "main = any (\\x -> x > 9) [1,2,5]"))
+  (list "False"))
+(hk-test
+  "all yes"
+  (hk-deep-force (hk-run "main = all (\\x -> x > 0) [1,2,5]"))
+  (list "True"))
+(hk-test
+  "all no"
+  (hk-deep-force (hk-run "main = all (\\x -> x > 3) [1,2,5]"))
+  (list "False"))
+
+;; ── Higher-order ─────────────────────────────────────────────
+(hk-test "flip" (hk-deep-force (hk-run "main = flip (-) 3 10")) 7)
+(hk-test "const" (hk-deep-force (hk-run "main = const 42 True")) 42)
+
+;; ── Functor ──────────────────────────────────────────────────
+(hk-test
+  "fmap list"
+  (hk-deep-force (hk-run "main = show (fmap (+1) [1,2,3])"))
+  "[2, 3, 4]")
+
+;; ── Monad / Applicative ──────────────────────────────────────
+(hk-test "return" (hk-deep-force (hk-run "main = return 7")) (list "IO" 7))
+(hk-test "pure" (hk-deep-force (hk-run "main = pure 7")) (list "IO" 7))
+(hk-test
+  "when T"
+  (hk-deep-force (hk-run "main = when True (return 1)"))
+  (list "IO" 1))
+(hk-test
+  "when F"
+  (hk-deep-force (hk-run "main = when False (return 1)"))
+  (list "IO" (list "()")))
+(hk-test
+  "unless F"
+  (hk-deep-force (hk-run "main = unless False (return 2)"))
+  (list "IO" 2))
+
+;; ── lookup / maybe / either ─────────────────────────────────
+(hk-test
+  "lookup hit"
+  (hk-deep-force (hk-run "main = show (lookup 2 [(1,10),(2,20)])"))
+  "(Just 20)")
+(hk-test
+  "lookup miss"
+  (hk-deep-force (hk-run "main = show (lookup 9 [(1,10)])"))
+  "Nothing")
+(hk-test
+  "maybe def"
+  (hk-deep-force (hk-run "main = maybe 0 (+1) Nothing"))
+  0)
+(hk-test
+  "maybe just"
+  (hk-deep-force (hk-run "main = maybe 0 (+1) (Just 5)"))
+  6)
+
+{:fails hk-test-fails :pass hk-test-pass :fail hk-test-fail}