diff options
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux.lux | 3 | ||||
| -rw-r--r-- | stdlib/source/test/lux/extension.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/test/lux/host.rb.lux | 24 |
3 files changed, 30 insertions, 3 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 0379b8427..ef6177deb 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -183,7 +183,8 @@ @.jvm on_valid_host @.js on_valid_host @.python on_valid_host - @.lua on_valid_host} + @.lua on_valid_host + @.ruby on_valid_host} on_default)))))) (def: conversion_tests diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux index 67abd0eca..450570c20 100644 --- a/stdlib/source/test/lux/extension.lux +++ b/stdlib/source/test/lux/extension.lux @@ -5,7 +5,8 @@ ["." jvm] ["." js] ["." python] - ["." lua]] + ["." lua] + ["." ruby]] [abstract [monad (#+ do)]] [control @@ -65,7 +66,8 @@ @.js (js.string self) @.python (python.unicode self) - @.lua (lua.string self)}))))) + @.lua (lua.string self) + @.ruby (ruby.string self)}))))) (for {@.old (as_is)} diff --git a/stdlib/source/test/lux/host.rb.lux b/stdlib/source/test/lux/host.rb.lux new file mode 100644 index 000000000..0b6cac81b --- /dev/null +++ b/stdlib/source/test/lux/host.rb.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)))) |