aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/test
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/test')
-rw-r--r--new-luxc/test/test/luxc/lang/translation/function.lux10
-rw-r--r--new-luxc/test/test/luxc/lang/translation/primitive.lux8
-rw-r--r--new-luxc/test/test/luxc/lang/translation/structure.lux8
3 files changed, 19 insertions, 7 deletions
diff --git a/new-luxc/test/test/luxc/lang/translation/function.lux b/new-luxc/test/test/luxc/lang/translation/function.lux
index e8f99e09e..d3a32534b 100644
--- a/new-luxc/test/test/luxc/lang/translation/function.lux
+++ b/new-luxc/test/test/luxc/lang/translation/function.lux
@@ -115,6 +115,10 @@
## (<| (times +100)
## (function-spec run-scheme)))
-(context: "[Common Lisp] Function."
- (<| (times +100)
- (function-spec run-common-lisp)))
+## (context: "[Common Lisp] Function."
+## (<| (times +100)
+## (function-spec run-common-lisp)))
+
+(context: "[PHP] Function."
+ (<| (times +1)
+ (function-spec run-php)))
diff --git a/new-luxc/test/test/luxc/lang/translation/primitive.lux b/new-luxc/test/test/luxc/lang/translation/primitive.lux
index d832a6ccf..a430c3866 100644
--- a/new-luxc/test/test/luxc/lang/translation/primitive.lux
+++ b/new-luxc/test/test/luxc/lang/translation/primitive.lux
@@ -84,6 +84,10 @@
## (<| (times +100)
## (spec run-scheme)))
-(context: "[Common Lisp] Primitives."
+## (context: "[Common Lisp] Primitives."
+## (<| (times +100)
+## (spec run-common-lisp)))
+
+(context: "[PHP] Primitives."
(<| (times +100)
- (spec run-common-lisp)))
+ (spec run-php)))
diff --git a/new-luxc/test/test/luxc/lang/translation/structure.lux b/new-luxc/test/test/luxc/lang/translation/structure.lux
index a28a877dd..033553f3d 100644
--- a/new-luxc/test/test/luxc/lang/translation/structure.lux
+++ b/new-luxc/test/test/luxc/lang/translation/structure.lux
@@ -105,6 +105,10 @@
## (<| (times +100)
## (structure-spec run-scheme)))
-(context: "[Common Lisp] Structures."
+## (context: "[Common Lisp] Structures."
+## (<| (times +100)
+## (structure-spec run-common-lisp)))
+
+(context: "[PHP] Structures."
(<| (times +100)
- (structure-spec run-common-lisp)))
+ (structure-spec run-php)))