From f8d6348b3fec0c55768ebcd8dba446949b8a4ef7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 27 Apr 2018 19:46:44 -0400
Subject: - WIP: - Initial PHP back-end implementation.

---
 new-luxc/test/test/luxc/lang/translation/function.lux  | 10 +++++++---
 new-luxc/test/test/luxc/lang/translation/primitive.lux |  8 ++++++--
 new-luxc/test/test/luxc/lang/translation/structure.lux |  8 ++++++--
 3 files changed, 19 insertions(+), 7 deletions(-)

(limited to 'new-luxc/test')

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)))
-- 
cgit v1.2.3