From cbc41f10fb3e0e776767d2266b22068172b0f69a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 1 Mar 2021 01:49:30 -0400
Subject: Done with Ruby.

---
 stdlib/source/test/lux.lux           |  3 ++-
 stdlib/source/test/lux/extension.lux |  6 ++++--
 stdlib/source/test/lux/host.rb.lux   | 24 ++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 3 deletions(-)
 create mode 100644 stdlib/source/test/lux/host.rb.lux

(limited to 'stdlib/source/test')

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