From d37982f0af44714d95caf24d7f944e4e659b3e69 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 6 Jan 2022 14:28:32 -0400
Subject: Fixes for the pure-Lux JVM compiler machinery. [Part 2]

---
 stdlib/source/test/lux.lux | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 255d15c71..631f754e4 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -65,8 +65,9 @@
              (~~ (.for ["{old}" (~~ (.as_is ["[1]/[0]" jvm]))
                         "JVM" (~~ (.as_is ["[1]/[0]" jvm]))
                         "JavaScript" (~~ (.as_is ["[1]/[0]" js]))
-                        "Ruby" (~~ (.as_is ["[1]/[0]" ruby]))
-                        "Python" (~~ (.as_is ["[1]/[0]" python]))]
+                        "Lua" (~~ (.as_is ["[1]/[0]" lua]))
+                        "Python" (~~ (.as_is ["[1]/[0]" python]))
+                        "Ruby" (~~ (.as_is ["[1]/[0]" ruby]))]
                        (~~ (.as_is))))]
             ])))
 
@@ -101,8 +102,9 @@
                                (~~ (for [@.jvm (~~ (as_is /target/jvm.test))
                                          @.old (~~ (as_is /target/jvm.test))
                                          @.js (~~ (as_is /target/js.test))
-                                         @.ruby (~~ (as_is /target/ruby.test))
-                                         @.python (~~ (as_is /target/python.test))]
+                                         @.lua (~~ (as_is /target/lua.test))
+                                         @.python (~~ (as_is /target/python.test))
+                                         @.ruby (~~ (as_is /target/ruby.test))]
                                         (~~ (as_is))))
                                (~~ (for [@.old (~~ (as_is))]
                                         (~~ (as_is /extension.test))))
@@ -181,21 +183,21 @@
                  (case (/.try expected)
                    {.#Left _}
                    false
-                   
+
                    {.#Right actual}
                    (n.= expected actual)))
         (_.cover [/.undefined]
                  (case (/.try (/.undefined))
                    {.#Left _}
                    true
-                   
+
                    {.#Right _}
                    false))
         (_.cover [/.panic!]
                  (case (/.try (/.panic! expected_error))
                    {.#Left actual_error}
                    (text.contains? expected_error actual_error)
-                   
+
                    {.#Right _}
                    false))
         )))
@@ -1116,7 +1118,7 @@
                                                               (value@ .#mappings)
                                                               (list#each product.left)
                                                               (set.of_list text.hash))
-                                          
+
                                           correct_locals!
                                           (and (n.= 4 (value@ .#counter locals/2))
                                                (set#= expected_locals/2
@@ -1149,7 +1151,7 @@
                                                (binding? captured? let/0))]
                                       (and correct_locals!
                                            correct_closure!))
-                                    
+
                                     _
                                     false)))))
 
-- 
cgit v1.2.3