gloo 6.3.1 → 6.5.0

data/test.gloo/lang/ops.test.gloo

@@ -2,78 +2,76 @@
 # Gloo System tests
 #
 
-tests [can] :
-  lang [can] :
-    ops [can] :
+tests.lang.ops [can] :
 
-      confirm_eq_ops [test] :
-        description [string] : Confirm equality operations.
-        on_test [script] :
-          eval 1 = 1
-          assert "expected 1 = 1"
+  confirm_eq_ops [test] :
+    description [string] : Confirm equality operations.
+    on_test [script] :
+      eval 1 = 1
+      assert "expected 1 = 1"
 
-          eval 2 = 3
-          refute "expected 2 to not equal 3"
+      eval 2 = 3
+      refute "expected 2 to not equal 3"
 
-          eval "hello" = "hello"
-          assert "expected 'hello' = 'hello'"
+      eval "hello" = "hello"
+      assert "expected 'hello' = 'hello'"
 
-          eval "hello" = "world"
-          refute "expected 'hello' to not equal 'world'"
+      eval "hello" = "world"
+      refute "expected 'hello' to not equal 'world'"
 
-      confirm_not_eq_ops [test] :
-        description [string] : Confirm not equal operations.
-        on_test [script] :
-          eval 1 != 2
-          assert "expected 1 != 2"
+  confirm_not_eq_ops [test] :
+    description [string] : Confirm not equal operations.
+    on_test [script] :
+      eval 1 != 2
+      assert "expected 1 != 2"
 
-          eval 1 != 1
-          refute "expected 1 to not equal 1"
+      eval 1 != 1
+      refute "expected 1 to not equal 1"
 
-          eval "hello" != "world"
-          assert "expected 'hello' != 'world'"
+      eval "hello" != "world"
+      assert "expected 'hello' != 'world'"
 
-          eval "hello" != "hello"
-          refute "expected 'hello' to not equal 'hello'"
+      eval "hello" != "hello"
+      refute "expected 'hello' to not equal 'hello'"
 
-      confirm_gt_ops [test] :
-        description [string] : Confirm greater than operations.
-        on_test [script] :
-          eval 2 > 1
-          assert "expected 2 > 1"
+  confirm_gt_ops [test] :
+    description [string] : Confirm greater than operations.
+    on_test [script] :
+      eval 2 > 1
+      assert "expected 2 > 1"
 
-          eval 1 > 2
-          refute "expected 1 to not be greater than 2"
+      eval 1 > 2
+      refute "expected 1 to not be greater than 2"
 
-          eval 2 > 2
-          refute "expected 2 to not be greater than 2"
+      eval 2 > 2
+      refute "expected 2 to not be greater than 2"
 
-          eval 3 >= 2
-          assert "expected 3 >= 2"
+      eval 3 >= 2
+      assert "expected 3 >= 2"
 
-          eval 2 >= 3
-          refute "expected 2 to not be greater than or equal to 3"
+      eval 2 >= 3
+      refute "expected 2 to not be greater than or equal to 3"
 
-          eval 2 >= 2
-          assert "expected 2 >= 2" 
+      eval 2 >= 2
+      assert "expected 2 >= 2" 
 
-      confirm_lt_ops [test] :
-        description [string] : Confirm less than operations.
-        on_test [script] :
-          eval 1 < 2
-          assert "expected 1 < 2"
+  confirm_lt_ops [test] :
+    description [string] : Confirm less than operations.
+    on_test [script] :
+      eval 1 < 2
+      assert "expected 1 < 2"
 
-          eval 2 < 1
-          refute "expected 2 to not be less than 1"
+      eval 2 < 1
+      refute "expected 2 to not be less than 1"
 
-          eval 1 < 1
-          refute "expected 1 to not be less than 1"
+      eval 1 < 1
+      refute "expected 1 to not be less than 1"
 
-          eval 1 <= 2
-          assert "expected 1 <= 2"
+      eval 1 <= 2
+      assert "expected 1 <= 2"
 
-          eval 2 <= 1
-          refute "expected 2 to not be less than or equal to 1"
+      eval 2 <= 1
+      refute "expected 2 to not be less than or equal to 1"
 
-          eval 1 <= 1
-          assert "expected 1 <= 1"
+      eval 1 <= 1
+      assert "expected 1 <= 1"

data/test.gloo/lang/shorthand.test.gloo

@@ -0,0 +1,27 @@
+#
+# Nested container shorthand tests
+#
+# A dotted name in a declaration (page.core.title [string] :) creates
+# a container for each prefix segment, then declares the real object
+# under the last one.
+#
+
+tests.lang.shorthand [can] :
+
+  page.core.title [string] : Home
+  page.core.count [int] : 3
+
+  builds_the_container_chain [test] :
+    description [string] : a dotted name creates a container for each prefix segment.
+    on_test [script] :
+      eval ^^.page.core.title = 'Home'
+      assert "expected the shorthand-built value to be reachable"
+
+      check ^^.page for contains?
+      assert "expected 'page' to be a real container"
+
+  reuses_an_existing_prefix [test] :
+    description [string] : a second shorthand line reuses the same containers.
+    on_test [script] :
+      eval ^^.page.core.count = 3
+      assert "expected both shorthand lines to share the 'core' container"

data/test.gloo/math/add.test.gloo

@@ -2,45 +2,43 @@
 # Addition tests
 #
 
-tests [can] :
-  math [can] :
-    add [can] :
-
-      # # 
-      # # Use this test to verify that errors cause the test to fail.
-      # # 
-      # math_fail [test] :
-      #   description [string] : Expect bad math to fail
-      #   on_test [script] : 
-      #     eval 2 + 3 = 2
-      #     assert 'that is wrong!'
-
-      add_ints [test] :
-        description [string] : Add two integers
-        on_test [script] : 
-          eval 2 + 3 = 5
-          assert 'expected 2 + 3 = 5'
-
-          eval 10 + 20 = 30
-          assert 'expected 10 + 20 = 30'
-
-          eval 100 + 200 = 300
-          assert 'expected 100 + 200 = 300'
-
-          eval 1 + 2 = 4
-          refute 'expected 1 + 2 != 4'
-
-      add_decimals [test] :
-        description [string] : Add two decimals
-        on_test [script] : 
-          eval 1.5 + 5.5 = 7
-          assert 'expected 1.5 + 5.5 = 7'
-
-          eval 10.5 + 20.5 = 31
-          assert 'expected 10.5 + 20.5 = 31'
-
-          eval 100.5 + 200.5 = 301
-          assert 'expected 100.5 + 200.5 = 301'
-
-          eval 1.5 + 2.5 = 3
-          refute 'expected 1.5 + 2.5 != 3'
+tests.math.add [can] :
+
+  # # 
+  # # Use this test to verify that errors cause the test to fail.
+  # # 
+  # math_fail [test] :
+  #   description [string] : Expect bad math to fail
+  #   on_test [script] : 
+  #     eval 2 + 3 = 2
+  #     assert 'that is wrong!'
+
+  add_ints [test] :
+    description [string] : Add two integers
+    on_test [script] : 
+      eval 2 + 3 = 5
+      assert 'expected 2 + 3 = 5'
+
+      eval 10 + 20 = 30
+      assert 'expected 10 + 20 = 30'
+
+      eval 100 + 200 = 300
+      assert 'expected 100 + 200 = 300'
+
+      eval 1 + 2 = 4
+      refute 'expected 1 + 2 != 4'
+
+  add_decimals [test] :
+    description [string] : Add two decimals
+    on_test [script] : 
+      eval 1.5 + 5.5 = 7
+      assert 'expected 1.5 + 5.5 = 7'
+
+      eval 10.5 + 20.5 = 31
+      assert 'expected 10.5 + 20.5 = 31'
+
+      eval 100.5 + 200.5 = 301
+      assert 'expected 100.5 + 200.5 = 301'
+
+      eval 1.5 + 2.5 = 3
+      refute 'expected 1.5 + 2.5 != 3'

data/test.gloo/math/div.test.gloo

@@ -2,36 +2,34 @@
 # Division tests
 #
 
-tests [can] :
-  math [can] :
-    div [can] :
+tests.math.div [can] :
 
-      div_ints [test] :
-        description [string] : Divide two integers
-        on_test [script] : 
-          eval 6 / 3 = 2
-          assert 'expected 6 / 3 = 2'
+  div_ints [test] :
+    description [string] : Divide two integers
+    on_test [script] : 
+      eval 6 / 3 = 2
+      assert 'expected 6 / 3 = 2'
 
-          eval 20 / 10 = 2
-          assert 'expected 20 / 10 = 2'
+      eval 20 / 10 = 2
+      assert 'expected 20 / 10 = 2'
 
-          eval 200 / 100 = 2
-          assert 'expected 200 / 100 = 2'
+      eval 200 / 100 = 2
+      assert 'expected 200 / 100 = 2'
 
-          eval 1 / 3 = 1
-          refute 'expected 1 / 3 != 1'
+      eval 1 / 3 = 1
+      refute 'expected 1 / 3 != 1'
 
-      div_decimals [test] :
-        description [string] : Divide two decimals
-        on_test [script] : 
-          eval 10.2 / 2 = 5.1
-          assert 'expected 10.2 / 2 = 5.1'
+  div_decimals [test] :
+    description [string] : Divide two decimals
+    on_test [script] : 
+      eval 10.2 / 2 = 5.1
+      assert 'expected 10.2 / 2 = 5.1'
 
-          eval 10.5 / 5 = 2.1
-          assert 'expected 10.5 / 5 = 2.1'
+      eval 10.5 / 5 = 2.1
+      assert 'expected 10.5 / 5 = 2.1'
 
-          eval 100.5 / 200.5 = 0.5
-          assert 'expected 100.5 / 200.5 = 0.5'
+      eval 100.5 / 200.5 = 0.5
+      assert 'expected 100.5 / 200.5 = 0.5'
 
-          eval 1.5 / 10.5 = 0.1
-          refute 'expected 1.5 / 10.5 != 0.1'
+      eval 1.5 / 10.5 = 0.1
+      refute 'expected 1.5 / 10.5 != 0.1'

data/test.gloo/math/mult.test.gloo

@@ -2,36 +2,34 @@
 # Multiplication tests
 #
 
-tests [can] :
-  math [can] :
-    mult [can] :
+tests.math.mult [can] :
 
-      mult_ints [test] :
-        description [string] : Multiply two integers
-        on_test [script] : 
-          eval 2 * 3 = 6
-          assert 'expected 2 * 3 = 6'
+  mult_ints [test] :
+    description [string] : Multiply two integers
+    on_test [script] : 
+      eval 2 * 3 = 6
+      assert 'expected 2 * 3 = 6'
 
-          eval 10 * 20 = 200
-          assert 'expected 10 * 20 = 200'
+      eval 10 * 20 = 200
+      assert 'expected 10 * 20 = 200'
 
-          eval 100 * 200 = 20000
-          assert 'expected 100 * 200 = 20000'
+      eval 100 * 200 = 20000
+      assert 'expected 100 * 200 = 20000'
 
-          eval 1 * 3 = 1
-          refute 'expected 1 * 3 != 1'
+      eval 1 * 3 = 1
+      refute 'expected 1 * 3 != 1'
 
-      mult_decimals [test] :
-        description [string] : Multiply two decimals
-        on_test [script] : 
-          eval 1.5 * 5.5 = 8.25
-          assert 'expected 1.5 * 5.5 = 8.25'
+  mult_decimals [test] :
+    description [string] : Multiply two decimals
+    on_test [script] : 
+      eval 1.5 * 5.5 = 8.25
+      assert 'expected 1.5 * 5.5 = 8.25'
 
-          eval 10.5 * 20.5 = 214.5
-          assert 'expected 10.5 * 20.5 = 214.5'
+      eval 10.5 * 20.5 = 214.5
+      assert 'expected 10.5 * 20.5 = 214.5'
 
-          eval 100.5 * 200.5 = 20100.25
-          assert 'expected 100.5 * 200.5 = 20100.25'
+      eval 100.5 * 200.5 = 20100.25
+      assert 'expected 100.5 * 200.5 = 20100.25'
 
-          eval 1.5 * 10.5 = 10
-          refute 'expected 1.5 * 10.5 != 10'
+      eval 1.5 * 10.5 = 10
+      refute 'expected 1.5 * 10.5 != 10'

data/test.gloo/math/sub.test.gloo

@@ -2,36 +2,34 @@
 # Subtraction tests
 #
 
-tests [can] :
-  math [can] :
-    sub [can] :
+tests.math.sub [can] :
 
-      sub_ints [test] :
-        description [string] : Subtract two integers
-        on_test [script] : 
-          eval 2 - 3 = -1
-          assert 'expected 2 - 3 = -1'
+  sub_ints [test] :
+    description [string] : Subtract two integers
+    on_test [script] : 
+      eval 2 - 3 = -1
+      assert 'expected 2 - 3 = -1'
 
-          eval 10 - 20 = -10
-          assert 'expected 10 - 20 = -10'
+      eval 10 - 20 = -10
+      assert 'expected 10 - 20 = -10'
 
-          eval 100 - 200 = -100
-          assert 'expected 100 - 200 = -100'
+      eval 100 - 200 = -100
+      assert 'expected 100 - 200 = -100'
 
-          eval 1 - 3 = -1
-          refute 'expected 1 - 3 != -1'
+      eval 1 - 3 = -1
+      refute 'expected 1 - 3 != -1'
 
-      sub_decimals [test] :
-        description [string] : Subtract two decimals
-        on_test [script] : 
-          eval 1.5 - 5.5 = -4
-          assert 'expected 1.5 - 5.5 = -4'
+  sub_decimals [test] :
+    description [string] : Subtract two decimals
+    on_test [script] : 
+      eval 1.5 - 5.5 = -4
+      assert 'expected 1.5 - 5.5 = -4'
 
-          eval 10.5 - 20.5 = -10
-          assert 'expected 10.5 - 20.5 = -10'
+      eval 10.5 - 20.5 = -10
+      assert 'expected 10.5 - 20.5 = -10'
 
-          eval 100.5 - 200.5 = -100
-          assert 'expected 100.5 - 200.5 = -100'
+      eval 100.5 - 200.5 = -100
+      assert 'expected 100.5 - 200.5 = -100'
 
-          eval 1.5 - 10.5 = -1
-          refute 'expected 1.5 - 10.5 != -1'
+      eval 1.5 - 10.5 = -1
+      refute 'expected 1.5 - 10.5 != -1'

data/test.gloo/objs/alias.test.gloo

@@ -2,23 +2,21 @@
 # Alias tests
 #
 
-tests [can] :
-  objs [can] :
-    alias [can] :
+tests.objs.alias [can] :
 
-      s [string] : hello
-      ln [alias] : tests.objs.alias.s
+  s [string] : hello
+  ln [alias] : tests.objs.alias.s
 
-      follow_alias [test] :
-        description [string] : Follow an alias to the target value
-        on_test [script] :
-          put 'hello' into ^^.s
-          eval ^^.ln = 'hello'
-          assert "expected alias to resolve to 'hello'"
+  follow_alias [test] :
+    description [string] : Follow an alias to the target value
+    on_test [script] :
+      put 'hello' into ^^.s
+      eval ^^.ln = 'hello'
+      assert "expected alias to resolve to 'hello'"
 
-      put_via_alias [test] :
-        description [string] : Put a value via an alias
-        on_test [script] :
-          put 'world' into ^^.ln
-          eval ^^.s = 'world'
-          assert "expected s to be updated via alias"
+  put_via_alias [test] :
+    description [string] : Put a value via an alias
+    on_test [script] :
+      put 'world' into ^^.ln
+      eval ^^.s = 'world'
+      assert "expected s to be updated via alias"

data/test.gloo/objs/bool.test.gloo

@@ -2,59 +2,57 @@
 # Boolean tests
 #
 
-tests [can] :
-  objs [can] :
-    bool [can] :
-
-      a [boolean] : 
-      b [boolean] : 
-
-      set_value_with_msg [test] :
-        description [string] : Set the value of the boolean
-        on_test [script] :
-          tell ^^.b to true
-          assert "expected it to be true"
-
-          eval ^^.b
-          assert "expected b to be true"
-
-          tell ^^.b to false
-          refute "expected it to be false"
-
-          eval ^^.b
-          refute "expected b to be false"
-
-      not_value [test] :
-        description [string] : Set the value of the boolean and not it
-        on_test [script] :
-          tell ^^.b to true
-          tell ^^.b to not
-          refute "expected it to be false"
-
-          tell ^^.b to false
-          tell ^^.b to not
-          assert "expected it to be true"
-
-      compare_values [test] :
-        description [string] : Compare the value of two booleans
-        on_test [script] :
-          tell ^^.a to true
-          put true into ^^.b
-          eval ^^.b = ^^.a
-          assert "expected both to be true"
-
-          tell ^^.a to false
-          put false into ^^.b
-          eval ^^.b = ^^.a
-          assert "expected both to be false"
-
-      set_value [test] :
-        description [string] : Set the value of the boolean
-        on_test [script] :
-          put true into ^^.b
-          eval ^^.b = true
-          assert "expected b to be true"
-
-          put false into ^^.b
-          eval ^^.b = false
-          assert "expected b to be false"
+tests.objs.bool [can] :
+
+  a [boolean] : 
+  b [boolean] : 
+
+  set_value_with_msg [test] :
+    description [string] : Set the value of the boolean
+    on_test [script] :
+      tell ^^.b to true
+      assert "expected it to be true"
+
+      eval ^^.b
+      assert "expected b to be true"
+
+      tell ^^.b to false
+      refute "expected it to be false"
+
+      eval ^^.b
+      refute "expected b to be false"
+
+  not_value [test] :
+    description [string] : Set the value of the boolean and not it
+    on_test [script] :
+      tell ^^.b to true
+      tell ^^.b to not
+      refute "expected it to be false"
+
+      tell ^^.b to false
+      tell ^^.b to not
+      assert "expected it to be true"
+
+  compare_values [test] :
+    description [string] : Compare the value of two booleans
+    on_test [script] :
+      tell ^^.a to true
+      put true into ^^.b
+      eval ^^.b = ^^.a
+      assert "expected both to be true"
+
+      tell ^^.a to false
+      put false into ^^.b
+      eval ^^.b = ^^.a
+      assert "expected both to be false"
+
+  set_value [test] :
+    description [string] : Set the value of the boolean
+    on_test [script] :
+      put true into ^^.b
+      eval ^^.b = true
+      assert "expected b to be true"
+
+      put false into ^^.b
+      eval ^^.b = false
+      assert "expected b to be false"