mirror of
https://github.com/anoma/juvix.git
synced 2024-12-13 11:16:48 +03:00
29 lines
505 B
Haskell
29 lines
505 B
Haskell
module Suites where
|
|
|
|
import Base
|
|
import Juvix.Prelude
|
|
import Variants
|
|
|
|
suites :: [Suite]
|
|
suites =
|
|
map
|
|
defaultSuite
|
|
[ "mergesort",
|
|
"fibonacci",
|
|
"combinations",
|
|
"maybe",
|
|
"ackermann",
|
|
"cps",
|
|
"prime"
|
|
]
|
|
<> [ Suite suiteName (allVariantsExcept [C] [CoreEval])
|
|
| suiteName <- ["fold", "mapfold", "mapfun"]
|
|
]
|
|
|
|
defaultSuite :: String -> Suite
|
|
defaultSuite title =
|
|
Suite
|
|
{ _suiteTitle = title,
|
|
_suiteVariants = defaultVariants
|
|
}
|