From dff34f01e838475b817803ec856661fe8940e5c0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 12 Mar 2021 05:45:44 -0400
Subject: Almost done with PHP.

---
 stdlib/source/test/lux.lux                  |  3 ++-
 stdlib/source/test/lux/control/remember.lux |  2 +-
 stdlib/source/test/lux/extension.lux        |  6 ++++--
 stdlib/source/test/lux/host.php.lux         | 24 ++++++++++++++++++++++++
 4 files changed, 31 insertions(+), 4 deletions(-)
 create mode 100644 stdlib/source/test/lux/host.php.lux

(limited to 'stdlib/source/test')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index ef6177deb..8d9f68922 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -184,7 +184,8 @@
                            @.js on_valid_host
                            @.python on_valid_host
                            @.lua on_valid_host
-                           @.ruby on_valid_host}
+                           @.ruby on_valid_host
+                           @.php on_valid_host}
                           on_default))))))
 
 (def: conversion_tests
diff --git a/stdlib/source/test/lux/control/remember.lux b/stdlib/source/test/lux/control/remember.lux
index bfe18fa5b..1002e3a11 100644
--- a/stdlib/source/test/lux/control/remember.lux
+++ b/stdlib/source/test/lux/control/remember.lux
@@ -28,7 +28,7 @@
    ["." /]})
 
 (def: deadline (Random Date) random.date)
-(def: message (Random Text) (random\map %.nat random.nat))
+(def: message (Random Text) (random.ascii/lower 10))
 (def: focus (Random Code) (random\map code.text (random.ascii/upper 10)))
 
 (def: (to_remember macro deadline message focus)
diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux
index 450570c20..cdd934e3e 100644
--- a/stdlib/source/test/lux/extension.lux
+++ b/stdlib/source/test/lux/extension.lux
@@ -6,7 +6,8 @@
     ["." js]
     ["." python]
     ["." lua]
-    ["." ruby]]
+    ["." ruby]
+    ["." php]]
    [abstract
     [monad (#+ do)]]
    [control
@@ -67,7 +68,8 @@
                      @.js (js.string self)
                      @.python (python.unicode self)
                      @.lua (lua.string self)
-                     @.ruby (ruby.string self)})))))
+                     @.ruby (ruby.string self)
+                     @.php (php.string self)})))))
 
 (for {@.old
       (as_is)}
diff --git a/stdlib/source/test/lux/host.php.lux b/stdlib/source/test/lux/host.php.lux
new file mode 100644
index 000000000..0b6cac81b
--- /dev/null
+++ b/stdlib/source/test/lux/host.php.lux
@@ -0,0 +1,24 @@
+(.module:
+  [lux #*
+   ["_" test (#+ Test)]
+   [abstract
+    [monad (#+ do)]]
+   [control
+    ["." try]]
+   [data
+    ["." text ("#\." equivalence)]]
+   [math
+    ["." random (#+ Random)]
+    [number
+     ["." nat]
+     ["." frac]]]]
+  {1
+   ["." /]})
+
+(def: #export test
+  Test
+  (do {! random.monad}
+    []
+    (<| (_.covering /._)
+        (_.test "TBD"
+                true))))
-- 
cgit v1.2.3