@naanlang/naan 1.5.0 → 1.7.0

package/test/test_02_context.nlg

@@ -6,7 +6,7 @@
  *
  * column positioning:                          //                          //                      !
  *
- * Copyright (c) 2017-2024 by Richard C. Zulch
+ * Copyright (c) 2017-2026 by Richard C. Zulch
  *
  */
 
@@ -38,7 +38,7 @@ RegisterTestCategory("context", [
     [ "function setNS(ns) { ns=reverse(ns),sudo(nsactive(reverse(ns, defNS))) };", "setNS" ],
     [ "x;", "x" ],
     [ "y;", "y" ],
-    [ "length(symlist(nsactive(true).0));", "173"],
+    [ "length(symlist(nsactive(true).0));", "175"],
     [ "testvar;", "testvar" ],
     [ "function setTestvar(v) { testvar=v };", "setTestvar" ],
     [ "naanvar;", "naanvar" ],
@@ -200,20 +200,20 @@ RegisterTestCategory("context", [
     [ "test2(4);", "10001|10001" ],
 
     [ "function test1(x) { if x > 10000 printline(x) else test2(x+1), undefined() };", "==> redefined: test1|test1" ],
-    [ "test2(5);", { errors: "exception: recursed 101" } ],
+    [ "test2(5);", { errors: "exception: recursed 99" } ],
 
     [ "function test1(x) { if x > 10000 printline(x) else loop test2(x+1) };", "==> redefined: test1|test1" ],
-    [ "test2(6);", { errors: "exception: recursed 102" } ],
+    [ "test2(6);", { errors: "exception: recursed 100" } ],
 
     [ "function test1(x) { if x > 10000 printline(x) else 0+test2(x+1) };", "==> redefined: test1|test1" ],
-    [ "test2(7);", { errors: "exception: recursed 149" } ],
+    [ "test2(7);", { errors: "exception: recursed 147" } ],
 
     [ "function test2(x) { testRecurCheck(x), if true test1(x+1) else print(x) };", "==> redefined: test2|test2" ],
-    [ "test2(8);", { errors: "exception: recursed 150" } ],
+    [ "test2(8);", { errors: "exception: recursed 148" } ],
 
     [ "function test1(x) { if x > 10000 printline(x) else loop test2(x+1, 4, 5) };", "==> redefined: test1|test1" ],
     [ "function test2(x,y,z) { testRecurCheck(x), loop if true { test1(x+1),break } else print(x) };", "==> redefined: test2|test2" ],
-    [ "test2(9);", { errors: "exception: recursed 51" } ],
+    [ "test2(9);", { errors: "exception: recursed 49" } ],
 
     [ "function test1 xt { if car(xt) > 10000 printline(xt) else test2(car(xt)+1) };", "==> redefined: test1|test1" ],
     [ "function test2 xt { testRecurCheck(car(xt)), test1(car(xt)+1) };", "==> redefined: test2|test2" ],
@@ -222,7 +222,7 @@ RegisterTestCategory("context", [
     [ "oo=new(object);", "Object{0}"],
     [ "oo.test1 = function test1(x) { if x > 10000 printline(x) else test2(x+1) };", "==> redefined: test1|test1"],
     [ "oo.test2 = function test2 xt { testRecurCheck(car(xt)), oo.test1(car(xt)+1) };", "==> redefined: test2|test2"],
-    [ "oo.test1(11);", { errors: "exception: recursed 154" } ],
+    [ "oo.test1(11);", { errors: "exception: recursed 152" } ],
 
     [ "function test1 xt { testRecurCheck(car(xt)), if car(xt) > 10000 printline(xt) else test1(car(xt)+1) };",
         "==> redefined: test1|test1" ],
@@ -265,5 +265,28 @@ RegisterTestCategory("context", [
     [ "closure Xx(y, local xx) { xx = new(object, this) };", "Xx" ],
     [ "x = Xx(33);", "{object Xx}" ],
     [ "car(x@\\.closure.proc.2.0)", "33" ],
-    [ "new(object, 3)@*", "false" ]
+    [ "new(object, 3)@*", "false" ],
+
+    //
+    // undefined objects
+    //
+    
+    [ "closure undef(local o) {\n"
+        "   o = new(object, undef)\n"
+        "   put(o,'.undefined', function udef args {\n"
+        "       print('udef:', args)\n"
+        "   })\n"
+        "   o\n"
+      "};", "undef" ],
+    [ "oo = undef();", "{object undef}"],
+    [ "closure(c) {\n"
+        "xset(c, joe2, macro mjoe args {\n"
+        "   printline(args)\n"
+        "   deref(c, joe, args)\n"
+        "})\n"
+      "}(oo);>", "(macro mjoe args (printline args) (deref c joe args))"],
+    [ "oo.joe(8,2+5);", "udef:(joe 8 7)|(joe, 8, 7)" ],
+    [ "oo.joe2(5,9+3);", "(5 (+ 9 3))|udef:(joe 5 (+ 9 3))|(joe, 5, 9+3)" ],
+    [ "dargs = list(3,quote(2+4));", "(3, 2+4)"],
+    [ "deref(oo, joe, dargs);", "udef:(joe 3 (+ 2 4))|(joe, 3, 2+4)"]
 ]);

package/test/test_03_jsinterop.nlg

@@ -6,7 +6,7 @@
  *
  * column positioning:                          //                          //                      !
  *
- * Copyright (c) 2020-2025 by Richard C. Zulch
+ * Copyright (c) 2020-2026 by Richard C. Zulch
  *
  */
 
@@ -35,11 +35,11 @@ RegisterTestCategory("JSinterop", [
 
     [ "o(3);", {
         "dev": { errors: "xcall \"[object Object]\": TypeError: object.apply is not a function" }
-        "prod": { errors: "xcall \"[object Object]\": TypeError: e[3].apply is not a function" }
+        "prod": { errors: "xcall \"[object Object]\": TypeError: r[3].apply is not a function" }
     }[    "prod"]],
     [ "o(Number);", {
         "dev": { errors: "xcall \"[object Object]\": TypeError: object.apply is not a function" }
-        "prod": { errors: "xcall \"[object Object]\": TypeError: e[3].apply is not a function" }
+        "prod": { errors: "xcall \"[object Object]\": TypeError: r[3].apply is not a function" }
     }[    "prod"]],
     [ "Number(3);", "[Number 3]" ],
     [ "Number(3).toString();", "\"3\"" ],

package/test/test_07_lingo.nlg

@@ -474,7 +474,7 @@ RegisterTestCategory("Lingo", [
         { errors: "invalid iteration variable at (1, 5) found 3" } ],
     [ "for x in xnew() print(x);>", "Dictionary{6}"],
     [ "for x in Array(e, f, g) print(x);>", "efg|Dictionary{7}"],
-    [ "for x in false print(x);>", "Dictionary{5}"],
+    [ "for x in false print(x);>", "Dictionary{6}"],
     [ "for x in { } print(x);>", "Dictionary{7}"],
 
     //