diff options
author | Eduardo Julian | 2018-04-27 19:46:44 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-04-27 19:46:44 -0400 |
commit | f8d6348b3fec0c55768ebcd8dba446949b8a4ef7 (patch) | |
tree | 26aa0a2cc6309cfc6cba5b23d6a68f68934e40a4 /new-luxc/test | |
parent | fac2fa47c11db08596c890290bae09bf57a27089 (diff) |
- WIP: - Initial PHP back-end implementation.
Diffstat (limited to 'new-luxc/test')
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/function.lux | 10 | ||||
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/primitive.lux | 8 | ||||
-rw-r--r-- | new-luxc/test/test/luxc/lang/translation/structure.lux | 8 |
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))) |