diff options
Diffstat (limited to 'new-luxc/test/test/luxc/lang/translation')
6 files changed, 28 insertions, 2 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/case.lux b/new-luxc/test/test/luxc/lang/translation/case.lux index ca960dba4..04a373e42 100644 --- a/new-luxc/test/test/luxc/lang/translation/case.lux +++ b/new-luxc/test/test/luxc/lang/translation/case.lux @@ -113,3 +113,7 @@ (context: "[Python] Function." (<| (times +100) (pattern-matching-spec run-python))) + +(context: "[R] Pattern-matching." + (<| (times +100) + (pattern-matching-spec run-r))) diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux index 6de3ad822..e29931667 100644 --- a/new-luxc/test/test/luxc/lang/translation/common.lux +++ b/new-luxc/test/test/luxc/lang/translation/common.lux @@ -729,3 +729,7 @@ (context: "[Python] Common procedures." (<| (times +100) (all-specs run-python))) + +(context: "[R] Common procedures." + (<| (times +100) + (all-specs run-r))) diff --git a/new-luxc/test/test/luxc/lang/translation/function.lux b/new-luxc/test/test/luxc/lang/translation/function.lux index d7505bf37..105072df7 100644 --- a/new-luxc/test/test/luxc/lang/translation/function.lux +++ b/new-luxc/test/test/luxc/lang/translation/function.lux @@ -106,3 +106,7 @@ (context: "[Python] Function." (<| (times +100) (function-spec run-python))) + +(context: "[R] Function." + (<| (times +100) + (function-spec run-r))) diff --git a/new-luxc/test/test/luxc/lang/translation/primitive.lux b/new-luxc/test/test/luxc/lang/translation/primitive.lux index 6d74d4fca..d410f29f0 100644 --- a/new-luxc/test/test/luxc/lang/translation/primitive.lux +++ b/new-luxc/test/test/luxc/lang/translation/primitive.lux @@ -75,3 +75,7 @@ (context: "[Python] Primitives." (<| (times +100) (spec run-python))) + +(context: "[R] Primitives." + (<| (times +100) + (spec run-r))) diff --git a/new-luxc/test/test/luxc/lang/translation/reference.lux b/new-luxc/test/test/luxc/lang/translation/reference.lux index 3c2b66b2d..6f27b75f2 100644 --- a/new-luxc/test/test/luxc/lang/translation/reference.lux +++ b/new-luxc/test/test/luxc/lang/translation/reference.lux @@ -16,7 +16,8 @@ (js [".T_js" statement]) (lua [".T_lua" statement]) (ruby [".T_ruby" statement]) - (python [".T_python" statement])))) + (python [".T_python" statement]) + (r [".T_r" statement])))) (test/luxc common)) (def: upper-alpha-ascii @@ -42,7 +43,8 @@ (i/= def-value (:! Int valueT)) (#e.Error error) - false))))) + (exec (log! error) + false)))))) (def: (variables-spec run) (-> Runner Test) @@ -84,3 +86,7 @@ (context: "[Python] References." (<| (times +100) (references-spec run-python def-python))) + +(context: "[R] References." + (<| (times +100) + (references-spec run-r def-r))) diff --git a/new-luxc/test/test/luxc/lang/translation/structure.lux b/new-luxc/test/test/luxc/lang/translation/structure.lux index bd2cdcbb4..deb015727 100644 --- a/new-luxc/test/test/luxc/lang/translation/structure.lux +++ b/new-luxc/test/test/luxc/lang/translation/structure.lux @@ -131,3 +131,7 @@ (context: "[Python] Structures." (<| (times +100) (structure-spec run-python))) + +(context: "[R] Structures." + (<| (times +100) + (structure-spec run-r))) |