gloo 6.4.0 → 6.5.1

data/test.gloo/lang/it.test.gloo

@@ -4,38 +4,36 @@
 # 'it' holds the result of the last statement that produced one.
 #
 
-tests [can] :
-  lang [can] :
-    it [can] :
+tests.lang.it [can] :
 
-      n [int] : 5
-      r [string] :
+  n [int] : 5
+  r [string] :
 
-      set_by_the_previous_statement [test] :
-        description [string] : show, eval, tell and put all leave their result in it.
-        on_test [script] :
-          show 3 + 4
-          eval it = 7
-          assert "expected show to leave the evaluated value in it"
+  set_by_the_previous_statement [test] :
+    description [string] : show, eval, tell and put all leave their result in it.
+    on_test [script] :
+      show 3 + 4
+      eval it = 7
+      assert "expected show to leave the evaluated value in it"
 
-          eval 10 * 2
-          eval it = 20
-          assert "expected eval to leave its result in it"
+      eval 10 * 2
+      eval it = 20
+      assert "expected eval to leave its result in it"
 
-          put 'hello' into ^^.r
-          eval it = 'hello'
-          assert "expected put to leave the stored value in it"
+      put 'hello' into ^^.r
+      eval it = 'hello'
+      assert "expected put to leave the stored value in it"
 
-          put 5 into ^^.n
-          tell ^^.n to inc
-          eval it = 6
-          assert "expected tell to leave the message result in it"
+      put 5 into ^^.n
+      tell ^^.n to inc
+      eval it = 6
+      assert "expected tell to leave the message result in it"
 
-      persists_across_statements_that_produce_nothing [test] :
-        description [string] : statements like a bare show or list leave it untouched.
-        on_test [script] :
-          eval 42
-          show
-          list ^^.n
-          eval it = 42
-          assert "expected it to survive statements that don't produce a result"
+  persists_across_statements_that_produce_nothing [test] :
+    description [string] : statements like a bare show or list leave it untouched.
+    on_test [script] :
+      eval 42
+      show
+      list ^^.n
+      eval it = 42
+      assert "expected it to survive statements that don't produce a result"

data/test.gloo/lang/literal.test.gloo

@@ -2,60 +2,58 @@
 # Literal value tests
 #
 
-tests [can] :
-  lang [can] :
-    literal [can] :
-
-      s [string] :
-      i [integer] :
-      d [decimal] :
-      b [boolean] :
-
-      string_quote_styles [test] :
-        description [string] : single and double quotes both make a string; the other quote can appear inside.
-        on_test [script] :
-          put 'single quoted' into ^^.s
-          eval ^^.s = 'single quoted'
-          assert "expected single quotes to work"
-
-          put "double quoted" into ^^.s
-          eval ^^.s = 'double quoted'
-          assert "expected double quotes to work"
-
-          put "you're fine" into ^^.s
-          eval ^^.s = "you're fine"
-          assert "expected an apostrophe inside double quotes to be literal"
-
-      number_literals [test] :
-        description [string] : integer and decimal literals, including negatives.
-        on_test [script] :
-          put -5 into ^^.i
-          eval ^^.i = -5
-          assert "expected a negative integer literal"
-
-          put 3.14159 into ^^.d
-          eval ^^.d = 3.14159
-          assert "expected a decimal literal"
-
-          put -2.5 into ^^.d
-          eval ^^.d = -2.5
-          assert "expected a negative decimal literal"
-
-      boolean_literals_are_case_insensitive [test] :
-        description [string] : TRUE, true, False, FALSE all parse.
-        on_test [script] :
-          put TRUE into ^^.b
-          eval ^^.b = true
-          assert "expected TRUE to parse"
-
-          put true into ^^.b
-          eval ^^.b = true
-          assert "expected true to parse"
-
-          put False into ^^.b
-          eval ^^.b = false
-          assert "expected False to parse"
-
-          put FALSE into ^^.b
-          eval ^^.b = false
-          assert "expected FALSE to parse"
+tests.lang.literal [can] :
+
+  s [string] :
+  i [integer] :
+  d [decimal] :
+  b [boolean] :
+
+  string_quote_styles [test] :
+    description [string] : single and double quotes both make a string; the other quote can appear inside.
+    on_test [script] :
+      put 'single quoted' into ^^.s
+      eval ^^.s = 'single quoted'
+      assert "expected single quotes to work"
+
+      put "double quoted" into ^^.s
+      eval ^^.s = 'double quoted'
+      assert "expected double quotes to work"
+
+      put "you're fine" into ^^.s
+      eval ^^.s = "you're fine"
+      assert "expected an apostrophe inside double quotes to be literal"
+
+  number_literals [test] :
+    description [string] : integer and decimal literals, including negatives.
+    on_test [script] :
+      put -5 into ^^.i
+      eval ^^.i = -5
+      assert "expected a negative integer literal"
+
+      put 3.14159 into ^^.d
+      eval ^^.d = 3.14159
+      assert "expected a decimal literal"
+
+      put -2.5 into ^^.d
+      eval ^^.d = -2.5
+      assert "expected a negative decimal literal"
+
+  boolean_literals_are_case_insensitive [test] :
+    description [string] : TRUE, true, False, FALSE all parse.
+    on_test [script] :
+      put TRUE into ^^.b
+      eval ^^.b = true
+      assert "expected TRUE to parse"
+
+      put true into ^^.b
+      eval ^^.b = true
+      assert "expected true to parse"
+
+      put False into ^^.b
+      eval ^^.b = false
+      assert "expected False to parse"
+
+      put FALSE into ^^.b
+      eval ^^.b = false
+      assert "expected FALSE to parse"

data/test.gloo/lang/load_lib_directive.test.gloo

@@ -6,28 +6,26 @@
 #
 load lib yaml
 
-tests [can] :
-  lang [can] :
-    load_lib_directive [can] :
+tests.lang.load_lib_directive [can] :
 
-      # this declaration only parses because 'load lib yaml' above
-      # registered the type before the loader got here
-      cfg [yaml] :
+  # this declaration only parses because 'load lib yaml' above
+  # registered the type before the loader got here
+  cfg [yaml] :
 
-      library_type_is_available [test] :
-        description [string] : a load lib directive at the top of the file registers the library's types.
-        on_test [script] :
-          exists? object yaml
-          assert "expected the yaml type to be registered by the directive"
+  library_type_is_available [test] :
+    description [string] : a load lib directive at the top of the file registers the library's types.
+    on_test [script] :
+      exists? object yaml
+      assert "expected the yaml type to be registered by the directive"
 
-          exists? object yml
-          assert "expected the yaml short name to be registered too"
+      exists? object yml
+      assert "expected the yaml short name to be registered too"
 
-      typed_object_was_created [test] :
-        description [string] : an object of the library's type declared in the same file exists.
-        on_test [script] :
-          exists? instance tests.lang.load_lib_directive.cfg
-          assert "expected the [yaml] object to have been created during load"
+  typed_object_was_created [test] :
+    description [string] : an object of the library's type declared in the same file exists.
+    on_test [script] :
+      exists? instance tests.lang.load_lib_directive.cfg
+      assert "expected the [yaml] object to have been created during load"
 
-          check tests.lang.load_lib_directive.cfg for responds_to? ( 'load' )
-          assert "expected it to be a real yaml object that responds to load"
+      check tests.lang.load_lib_directive.cfg for responds_to? ( 'load' )
+      assert "expected it to be a real yaml object that responds to load"

data/test.gloo/lang/naming.test.gloo

@@ -2,43 +2,41 @@
 # Object naming tests
 #
 
-tests [can] :
-  lang [can] :
-    naming [can] :
+tests.lang.naming [can] :
 
-      dup [string] : first
-      dup [string] : second
+  dup [string] : first
+  dup [string] : second
 
-      Alpha [string] : mixed case
+  Alpha [string] : mixed case
 
-      1 [string] : numeric name
+  1 [string] : numeric name
 
-      string [string] : a type keyword as a name
-      put [string] : a verb keyword as a name
+  string [string] : a type keyword as a name
+  put [string] : a verb keyword as a name
 
-      first_of_a_duplicate_name_wins [test] :
-        description [string] : when two siblings share a name, the path always reaches the first.
-        on_test [script] :
-          eval ^^.dup = 'first'
-          assert "expected the first 'dup' to be the one reached"
+  first_of_a_duplicate_name_wins [test] :
+    description [string] : when two siblings share a name, the path always reaches the first.
+    on_test [script] :
+      eval ^^.dup = 'first'
+      assert "expected the first 'dup' to be the one reached"
 
-      path_lookup_is_case_insensitive [test] :
-        description [string] : a pathname segment matches a name regardless of case.
-        on_test [script] :
-          eval tests.lang.naming.alpha = 'mixed case'
-          assert "expected lower-case lookup to find 'Alpha'"
+  path_lookup_is_case_insensitive [test] :
+    description [string] : a pathname segment matches a name regardless of case.
+    on_test [script] :
+      eval tests.lang.naming.alpha = 'mixed case'
+      assert "expected lower-case lookup to find 'Alpha'"
 
-          eval tests.lang.naming.ALPHA = 'mixed case'
-          assert "expected upper-case lookup to find 'Alpha'"
+      eval tests.lang.naming.ALPHA = 'mixed case'
+      assert "expected upper-case lookup to find 'Alpha'"
 
-      numeric_and_keyword_names [test] :
-        description [string] : digits and reserved-looking words are valid object names.
-        on_test [script] :
-          eval tests.lang.naming.1 = 'numeric name'
-          assert "expected a numeric name to work"
+  numeric_and_keyword_names [test] :
+    description [string] : digits and reserved-looking words are valid object names.
+    on_test [script] :
+      eval tests.lang.naming.1 = 'numeric name'
+      assert "expected a numeric name to work"
 
-          eval ^^.string = 'a type keyword as a name'
-          assert "expected a type keyword to be usable as a name"
+      eval ^^.string = 'a type keyword as a name'
+      assert "expected a type keyword to be usable as a name"
 
-          eval ^^.put = 'a verb keyword as a name'
-          assert "expected a verb keyword to be usable as a name"
+      eval ^^.put = 'a verb keyword as a name'
+      assert "expected a verb keyword to be usable as a name"

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

@@ -6,24 +6,22 @@
 # under the last one.
 #
 
-tests [can] :
-  lang [can] :
-    shorthand [can] :
+tests.lang.shorthand [can] :
 
-      page.core.title [string] : Home
-      page.core.count [int] : 3
+  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"
+  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"
+      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"
+  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'