diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux.lux | 3 | ||||
| -rw-r--r-- | stdlib/source/test/lux/control/remember.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/extension.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/test/lux/host.php.lux | 24 |
4 files changed, 31 insertions, 4 deletions
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)))) |