gloo 6.3.1 → 6.5.0

data/test.gloo/objs/repeat.test.gloo

@@ -2,47 +2,45 @@
 # Repeat object tests
 #
 
-tests [can] :
-  objs [can] :
-    repeat [can] :
-
-      count [int] : 0
-      seen [string] :
-
-      loop [repeat] :
-        times [integer] : 4
-        index [integer] : 0
-        do [script] :
-          put tests.objs.repeat.count + 1 into tests.objs.repeat.count
-          put tests.objs.repeat.seen + tests.objs.repeat.loop.index into tests.objs.repeat.seen
-
-      zero [repeat] :
-        times [integer] : 0
-        index [integer] : 0
-        do [script] :
-          put tests.objs.repeat.count + 100 into tests.objs.repeat.count
-
-      runs_the_do_script_n_times [test] :
-        description [string] : run executes 'do' once per 'times', and 'index' walks 0..times-1.
-        on_test [script] :
-          put 0 into ^^.count
-          put '' into ^^.seen
-
-          tell ^^.loop to run
-
-          eval ^^.count = 4
-          assert "expected the do script to run 4 times"
-
-          eval ^^.seen = '0123'
-          assert "expected index to be 0,1,2,3 across the iterations"
-
-          eval ^^.loop.index = 3
-          assert "expected index to be left at times-1 after the run"
-
-      zero_times_does_nothing [test] :
-        description [string] : run with times = 0 never executes 'do'.
-        on_test [script] :
-          put 0 into ^^.count
-          tell ^^.zero to run
-          eval ^^.count = 0
-          assert "expected the do script not to run when times is 0"
+tests.objs.repeat [can] :
+
+  count [int] : 0
+  seen [string] :
+
+  loop [repeat] :
+    times [integer] : 4
+    index [integer] : 0
+    do [script] :
+      put tests.objs.repeat.count + 1 into tests.objs.repeat.count
+      put tests.objs.repeat.seen + tests.objs.repeat.loop.index into tests.objs.repeat.seen
+
+  zero [repeat] :
+    times [integer] : 0
+    index [integer] : 0
+    do [script] :
+      put tests.objs.repeat.count + 100 into tests.objs.repeat.count
+
+  runs_the_do_script_n_times [test] :
+    description [string] : run executes 'do' once per 'times', and 'index' walks 0..times-1.
+    on_test [script] :
+      put 0 into ^^.count
+      put '' into ^^.seen
+
+      tell ^^.loop to run
+
+      eval ^^.count = 4
+      assert "expected the do script to run 4 times"
+
+      eval ^^.seen = '0123'
+      assert "expected index to be 0,1,2,3 across the iterations"
+
+      eval ^^.loop.index = 3
+      assert "expected index to be left at times-1 after the run"
+
+  zero_times_does_nothing [test] :
+    description [string] : run with times = 0 never executes 'do'.
+    on_test [script] :
+      put 0 into ^^.count
+      tell ^^.zero to run
+      eval ^^.count = 0
+      assert "expected the do script not to run when times is 0"

data/test.gloo/objs/script.test.gloo

@@ -2,22 +2,20 @@
 # Script tests
 #
 
-tests [can] :
-  objs [can] :
-    script [can] :
+tests.objs.script [can] :
 
-      a [script] : 
-      b [boolean] : true
+  a [script] : 
+  b [boolean] : true
 
-      run_script [test] :
-        description [string] : Set the value of the script
-        on_test [script] :
-          put "eval 2 + 5" into ^^.a
-          tell ^^.a to run
-          eval it = 7
-          assert "expected it to be 7"
+  run_script [test] :
+    description [string] : Set the value of the script
+    on_test [script] :
+      put "eval 2 + 5" into ^^.a
+      tell ^^.a to run
+      eval it = 7
+      assert "expected it to be 7"
 
-          put "eval ^.b = true" into ^^.a
-          tell run ^^.a
-          assert "expected it to be true"
+      put "eval ^.b = true" into ^^.a
+      run ^^.a
+      assert "expected it to be true"
 

data/test.gloo/objs/string.test.gloo

@@ -2,97 +2,95 @@
 # String tests
 #
 
-tests [can] :
-  objs [can] :
-    string [can] :
+tests.objs.string [can] :
 
-      s [string] :
-      dst [can] :
+  s [string] :
+  dst [can] :
 
-      up_down [test] :
-        description [string] : Convert string case
-        on_test [script] :
-          put 'hello' into ^^.s
-          tell ^^.s to up
-          eval ^^.s = 'HELLO'
-          assert "expected string to be uppercase"
-          tell ^^.s to down
-          eval ^^.s = 'hello'
-          assert "expected string to be lowercase"
+  up_down [test] :
+    description [string] : Convert string case
+    on_test [script] :
+      put 'hello' into ^^.s
+      tell ^^.s to up
+      eval ^^.s = 'HELLO'
+      assert "expected string to be uppercase"
+      tell ^^.s to down
+      eval ^^.s = 'hello'
+      assert "expected string to be lowercase"
 
-      trim [test] :
-        description [string] : Trim whitespace from a string
-        on_test [script] :
-          put '  hello  ' into ^^.s
-          tell ^^.s to trim
-          eval it = 'hello'
-          assert "expected trimmed string to equal 'hello'"
+  trim [test] :
+    description [string] : Trim whitespace from a string
+    on_test [script] :
+      put '  hello  ' into ^^.s
+      tell ^^.s to trim
+      eval it = 'hello'
+      assert "expected trimmed string to equal 'hello'"
 
-      sub [test] :
-        description [string] : Substitute in a string
-        on_test [script] :
-          put 'hello world' into ^^.s
-          tell ^^.s to sub ('world' 'gloo')
-          eval it = 'hello gloo'
-          assert "expected substituted string to equal 'hello gloo'"
+  sub [test] :
+    description [string] : Substitute in a string
+    on_test [script] :
+      put 'hello world' into ^^.s
+      tell ^^.s to sub ('world' 'gloo')
+      eval it = 'hello gloo'
+      assert "expected substituted string to equal 'hello gloo'"
 
-      count_chars [test] :
-        description [string] : Count the characters in a string
-        on_test [script] :
-          put 'hello' into ^^.s
-          tell ^^.s to count_chars
-          eval it = 5
-          assert "expected 5 characters"
+  count_chars [test] :
+    description [string] : Count the characters in a string
+    on_test [script] :
+      put 'hello' into ^^.s
+      tell ^^.s to count_chars
+      eval it = 5
+      assert "expected 5 characters"
 
-      split [test] :
-        description [string] : Get a substring between two indexes
-        on_test [script] :
-          put 'one two three' into ^^.s
-          tell ^^.s to split (4 7)
-          eval it = 'two'
-          assert "expected split (4 7) to equal 'two'"
-          eval ^^.s = 'one two three'
-          assert "expected split to leave the string unchanged"
+  split [test] :
+    description [string] : Get a substring between two indexes
+    on_test [script] :
+      put 'one two three' into ^^.s
+      tell ^^.s to split (4 7)
+      eval it = 'two'
+      assert "expected split (4 7) to equal 'two'"
+      eval ^^.s = 'one two three'
+      assert "expected split to leave the string unchanged"
 
-      splitl [test] :
-        description [string] : Get the substring to the left of an index
-        on_test [script] :
-          put 'one two three' into ^^.s
-          tell ^^.s to splitl (7)
-          eval it = 'one two'
-          assert "expected splitl (7) to equal 'one two'"
+  splitl [test] :
+    description [string] : Get the substring to the left of an index
+    on_test [script] :
+      put 'one two three' into ^^.s
+      tell ^^.s to splitl (7)
+      eval it = 'one two'
+      assert "expected splitl (7) to equal 'one two'"
 
-      splitr [test] :
-        description [string] : Get the substring from an index to the end
-        on_test [script] :
-          put 'one two three' into ^^.s
-          tell ^^.s to splitr (4)
-          eval it = 'two three'
-          assert "expected splitr (4) to equal 'two three'"
+  splitr [test] :
+    description [string] : Get the substring from an index to the end
+    on_test [script] :
+      put 'one two three' into ^^.s
+      tell ^^.s to splitr (4)
+      eval it = 'two three'
+      assert "expected splitr (4) to equal 'two three'"
 
-      split_out_of_range [test] :
-        description [string] : Out-of-range split indexes clamp to the string's bounds
-        on_test [script] :
-          put 'one two three' into ^^.s
-          tell ^^.s to split (-5 4)
-          eval it = 'one '
-          assert "expected split (-5 4) to clamp to 'one '"
-          tell ^^.s to split (8 100)
-          eval it = 'three'
-          assert "expected split (8 100) to clamp to 'three'"
+  split_out_of_range [test] :
+    description [string] : Out-of-range split indexes clamp to the string's bounds
+    on_test [script] :
+      put 'one two three' into ^^.s
+      tell ^^.s to split (-5 4)
+      eval it = 'one '
+      assert "expected split (-5 4) to clamp to 'one '"
+      tell ^^.s to split (8 100)
+      eval it = 'three'
+      assert "expected split (8 100) to clamp to 'three'"
 
-      split_list [test] :
-        description [string] : Split a string into children of a target container
-        on_test [script] :
-          put 'one,two,three' into ^^.s
-          tell ^^.s to split_list (',' ^^.dst)
-          eval it = 3
-          assert "expected split_list to put the part count into it"
-          eval ^^.dst.1 = 'one'
-          assert "expected dst.1 to equal 'one'"
-          eval ^^.dst.2 = 'two'
-          assert "expected dst.2 to equal 'two'"
-          eval ^^.dst.3 = 'three'
-          assert "expected dst.3 to equal 'three'"
-          eval ^^.s = 'one,two,three'
-          assert "expected split_list to leave the string unchanged"
+  split_list [test] :
+    description [string] : Split a string into children of a target container
+    on_test [script] :
+      put 'one,two,three' into ^^.s
+      tell ^^.s to split_list (',' ^^.dst)
+      eval it = 3
+      assert "expected split_list to put the part count into it"
+      eval ^^.dst.1 = 'one'
+      assert "expected dst.1 to equal 'one'"
+      eval ^^.dst.2 = 'two'
+      assert "expected dst.2 to equal 'two'"
+      eval ^^.dst.3 = 'three'
+      assert "expected dst.3 to equal 'three'"
+      eval ^^.s = 'one,two,three'
+      assert "expected split_list to leave the string unchanged"

data/test.gloo/objs/text.test.gloo

@@ -2,104 +2,102 @@
 # Text tests
 #
 
-tests [can] :
-  objs [can] :
-    text [can] :
+tests.objs.text [can] :
 
-      a [text] : BEGIN
+  a [text] : BEGIN
         one
         two
         three 3 tree
       END
 
-      # inside a block every line is literal - '#' lines and blank
-      # lines are kept, not treated as comments/blanks
-      hashed [text] : BEGIN
+  # inside a block every line is literal - '#' lines and blank
+  # lines are kept, not treated as comments/blanks
+  hashed [text] : BEGIN
 # a heading
 
 - a list item
-      END
-
-      b [string] :
-
-      verify_text [test] :
-        description [string] : Verify the content of the text
-        on_test [script] :
-          put ^^.a into ^^.b
-          check ^^.b for starts_with? ("        one")
-          assert "expected it to be true"
-
-      blank [test] :
-        description [string] : Check to see if the text is blank
-        on_test [script] :
-          put '' into ^^.b
-          check ^^.b for blank?
-          assert "expected text to be blank?"
-
-          put 'abc' into ^^.b
-          check ^^.b for blank?
-          refute "expected text to not be blank?"
-
-      length [test] :
-        description [string] : Get the length of the string
-        on_test [script] :
-          put 'hello' into ^^.b
-          tell ^^.b to size
-          eval it = 5 
-          assert "expected length to be 5"
-
-      count_chars [test] :
-        description [string] : Get the number of characters
-        on_test [script] :
-          put 'hello world' into ^^.b
-          tell ^^.b to count_chars
-          eval it = 11
-          assert "expected text to have 11 characters"
-
-      count_words [test] :
-        description [string] : Get the number of words
-        on_test [script] :
-          tell ^^.a to count_words
-          eval it = 5
-          assert "expected text to have 5 words"
-
-      count_lines [test] :
-        description [string] : Get the number of lines
-        on_test [script] :
-          tell ^^.a to count_lines
-          eval it = 3
-          assert "expected text to have 3 lines"
-
-      block_keeps_hash_and_blank_lines [test] :
-        description [string] : a BEGIN/END block keeps '#' lines and blank lines verbatim
-        on_test [script] :
-          check ^^.hashed for substring? ( "# a heading" )
-          assert "expected the '#' line to be kept, not stripped as a comment"
-
-          check ^^.hashed for substring? ( "- a list item" )
-          assert "expected content after the blank line to be kept"
-
-          tell ^^.hashed to count_lines
-          eval it = 3
-          assert "expected 3 lines: heading, blank, list item"
-
-      starts_with [test] :
-        description [string] : Check if the string starts with a value
-        on_test [script] :
-          put 'hello' into ^^.b
-          tell ^^.b to starts_with? ('he')
-          assert "expected it to be true that it starts with 'he'"
-
-      ends_with [test] :
-        description [string] : Check if the string ends with a value
-        on_test [script] :
-          put 'hello' into ^^.b
-          tell ^^.b to ends_with? ('lo')
-          assert "expected it to be true that it ends with 'lo'"
-
-      contains [test] :
-        description [string] : Check if the string contains a value
-        on_test [script] :
-          put 'hello world' into ^^.b
-          tell ^^.b to substring? ('lo w')
-          assert "expected it to be true that it contains 'lo w'"
+  END
+
+  b [string] :
+
+  verify_text [test] :
+    description [string] : Verify the content of the text
+    on_test [script] :
+      put ^^.a into ^^.b
+      check ^^.b for starts_with? ("        one")
+      assert "expected it to be true"
+
+  blank [test] :
+    description [string] : Check to see if the text is blank
+    on_test [script] :
+      put '' into ^^.b
+      check ^^.b for blank?
+      assert "expected text to be blank?"
+
+      put 'abc' into ^^.b
+      check ^^.b for blank?
+      refute "expected text to not be blank?"
+
+  length [test] :
+    description [string] : Get the length of the string
+    on_test [script] :
+      put 'hello' into ^^.b
+      tell ^^.b to size
+      eval it = 5 
+      assert "expected length to be 5"
+
+  count_chars [test] :
+    description [string] : Get the number of characters
+    on_test [script] :
+      put 'hello world' into ^^.b
+      tell ^^.b to count_chars
+      eval it = 11
+      assert "expected text to have 11 characters"
+
+  count_words [test] :
+    description [string] : Get the number of words
+    on_test [script] :
+      tell ^^.a to count_words
+      eval it = 5
+      assert "expected text to have 5 words"
+
+  count_lines [test] :
+    description [string] : Get the number of lines
+    on_test [script] :
+      tell ^^.a to count_lines
+      eval it = 3
+      assert "expected text to have 3 lines"
+
+  block_keeps_hash_and_blank_lines [test] :
+    description [string] : a BEGIN/END block keeps '#' lines and blank lines verbatim
+    on_test [script] :
+      check ^^.hashed for substring? ( "# a heading" )
+      assert "expected the '#' line to be kept, not stripped as a comment"
+
+      check ^^.hashed for substring? ( "- a list item" )
+      assert "expected content after the blank line to be kept"
+
+      tell ^^.hashed to count_lines
+      eval it = 3
+      assert "expected 3 lines: heading, blank, list item"
+
+  starts_with [test] :
+    description [string] : Check if the string starts with a value
+    on_test [script] :
+      put 'hello' into ^^.b
+      tell ^^.b to starts_with? ('he')
+      assert "expected it to be true that it starts with 'he'"
+
+  ends_with [test] :
+    description [string] : Check if the string ends with a value
+    on_test [script] :
+      put 'hello' into ^^.b
+      tell ^^.b to ends_with? ('lo')
+      assert "expected it to be true that it ends with 'lo'"
+
+  contains [test] :
+    description [string] : Check if the string contains a value
+    on_test [script] :
+      put 'hello world' into ^^.b
+      tell ^^.b to substring? ('lo w')
+      assert "expected it to be true that it contains 'lo w'"

data/test.gloo/objs/untyped.test.gloo

@@ -2,42 +2,40 @@
 # Untyped object tests
 #
 
-tests [can] :
-  objs [can] :
-    untyped [can] :
-
-      a [any] :
-
-      test_untyped [test] :
-        description [string] : Test untyped with different values
-        on_test [script] :
-          put "hello" into ^^.a
-          eval ^^.a = "hello"
-          assert "expected it to be hello"
-
-          put 123 into ^^.a
-          eval ^^.a = 123
-          assert "expected it to be 123"
-
-          put true into ^^.a
-          eval ^^.a = true
-          assert "expected it to be true"
-
-      base_messages_work [test] :
-        description [string] : an untyped object still receives the base object messages
-        on_test [script] :
-          put "" into ^^.a
-          check ^^.a for blank?
-          assert "expected an empty untyped object to be blank"
-
-          put "x" into ^^.a
-          check ^^.a for blank?
-          refute "expected a non-empty untyped object to not be blank"
-
-      type_messages_do_not [test] :
-        description [string] : an untyped object does not receive type-specific messages
-        on_test [script] :
-          put "hello" into ^^.a
-          check ^^.a for responds_to? ( "up" )
-          refute "expected an untyped object to not respond to 'up'"
+tests.objs.untyped [can] :
+
+  a [any] :
+
+  test_untyped [test] :
+    description [string] : Test untyped with different values
+    on_test [script] :
+      put "hello" into ^^.a
+      eval ^^.a = "hello"
+      assert "expected it to be hello"
+
+      put 123 into ^^.a
+      eval ^^.a = 123
+      assert "expected it to be 123"
+
+      put true into ^^.a
+      eval ^^.a = true
+      assert "expected it to be true"
+
+  base_messages_work [test] :
+    description [string] : an untyped object still receives the base object messages
+    on_test [script] :
+      put "" into ^^.a
+      check ^^.a for blank?
+      assert "expected an empty untyped object to be blank"
+
+      put "x" into ^^.a
+      check ^^.a for blank?
+      refute "expected a non-empty untyped object to not be blank"
+
+  type_messages_do_not [test] :
+    description [string] : an untyped object does not receive type-specific messages
+    on_test [script] :
+      put "hello" into ^^.a
+      check ^^.a for responds_to? ( "up" )
+      refute "expected an untyped object to not respond to 'up'"