diff options
Diffstat (limited to 'new-luxc/test')
| -rw-r--r-- | new-luxc/test/test/luxc/lang/translation/common.lux | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux index 2641d8acd..9a2465ce3 100644 --- a/new-luxc/test/test/luxc/lang/translation/common.lux +++ b/new-luxc/test/test/luxc/lang/translation/common.lux @@ -327,46 +327,6 @@ #0))) ))) -(def: (math-spec run) - (-> Runner Test) - (do r.Monad<Random> - [subject r.frac - param r.frac] - (`` ($_ seq - (~~ (do-template [<name>] - [(test (format "Can apply '" <name> "' procedure.") - (|> (run (#synthesis.Extension <name> (list (synthesis.f64 subject)))) - (case> (#e.Success valueV) - #1 - - (#e.Error error) - (exec (log! error) - #0))))] - - ["lux math cos"] - ["lux math sin"] - ["lux math tan"] - ["lux math acos"] - ["lux math asin"] - ["lux math atan"] - ["lux math exp"] - ["lux math log"] - ["lux math ceil"] - ["lux math floor"])) - (~~ (do-template [<name>] - [(test (format "Can apply '" <name> "' procedure.") - (|> (run (#synthesis.Extension <name> (list (synthesis.f64 subject) - (synthesis.f64 param)))) - (case> (#e.Success valueV) - #1 - - (#e.Error error) - (exec (log! error) - #0))))] - - ["lux math pow"])) - )))) - (def: (io-spec run) (-> Runner Test) (do r.Monad<Random> @@ -552,7 +512,6 @@ (f64-spec run) (text-spec run) (array-spec run) - (math-spec run) (io-spec run) (atom-spec run) (box-spec run) |