aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/test
diff options
context:
space:
mode:
authorEduardo Julian2018-04-27 19:46:44 -0400
committerEduardo Julian2018-04-27 19:46:44 -0400
commitf8d6348b3fec0c55768ebcd8dba446949b8a4ef7 (patch)
tree26aa0a2cc6309cfc6cba5b23d6a68f68934e40a4 /new-luxc/test
parentfac2fa47c11db08596c890290bae09bf57a27089 (diff)
- WIP: - Initial PHP back-end implementation.
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)))