diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/case.lux | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/case.lux b/new-luxc/test/test/luxc/lang/translation/case.lux index bca451332..2964edbe4 100644 --- a/new-luxc/test/test/luxc/lang/translation/case.lux +++ b/new-luxc/test/test/luxc/lang/translation/case.lux @@ -67,7 +67,7 @@ )))) (def: (pattern-matching-spec run) - (-> (-> ls.Synthesis (e.Error Top)) Test) + (-> Runner Test) (do r.Monad<Random> [[valueS pathS] gen-case to-bind r.nat] @@ -94,7 +94,8 @@ (#e.Error error) (exec (log! error) - false))))))) + false)))) + ))) ## (context: "[JVM] Pattern-matching." ## (<| (times +100) @@ -124,6 +125,10 @@ ## (<| (times +100) ## (pattern-matching-spec run-scheme))) -(context: "[Common Lisp] Pattern-matching." +## (context: "[Common Lisp] Pattern-matching." +## (<| (times +100) +## (pattern-matching-spec run-common-lisp))) + +(context: "[PHP] Pattern-matching." (<| (times +100) - (pattern-matching-spec run-common-lisp))) + (pattern-matching-spec run-php))) |