diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/structure.lux | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/structure.lux b/new-luxc/test/test/luxc/lang/translation/structure.lux index 21a338196..cf2b8a729 100644 --- a/new-luxc/test/test/luxc/lang/translation/structure.lux +++ b/new-luxc/test/test/luxc/lang/translation/structure.lux @@ -106,26 +106,24 @@ (exec (log! error) false)))))) -(context: "[JVM] Tuples." - (<| (times +100) - (tuples-spec run-jvm))) - -(context: "[JVM] Variants." - (<| (times +100) - (variants-spec run-jvm))) +(def: (structure-spec run) + (-> (-> Synthesis (e.Error Top)) Test) + ($_ seq + (tuples-spec run) + (variants-spec run))) -(context: "[JS] Tuples." +(context: "[JVM] Structures." (<| (times +100) - (tuples-spec run-js))) + (structure-spec run-jvm))) -(context: "[JS] Variants." +(context: "[JS] Structures." (<| (times +100) - (variants-spec run-js))) + (structure-spec run-js))) -(context: "[Lua] Tuples." +(context: "[Lua] Structures." (<| (times +100) - (tuples-spec run-lua))) + (structure-spec run-lua))) -(context: "[Lua] Variants." +(context: "[Ruby] Structures." (<| (times +100) - (variants-spec run-lua))) + (structure-spec run-ruby))) |