gloo 6.4.0 → 6.5.1

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'"
 

data/test.gloo/objs/uri.test.gloo

@@ -2,42 +2,40 @@
 # URI object tests
 #
 
-tests [can] :
-  objs [can] :
-    uri [can] :
-
-      link [uri] : https://example.com:8443/docs/guide?page=3&sort=asc#install
-      bare [uri] : https://example.com
-
-      parts_of_a_url [test] :
-        description [string] : the get_ messages pull each piece of the URL into it.
-        on_test [script] :
-          tell ^^.link to get_scheme
-          eval it = 'https'
-          assert "expected scheme https"
-
-          tell ^^.link to get_host
-          eval it = 'example.com'
-          assert "expected host example.com (no port)"
-
-          tell ^^.link to get_path
-          eval it = '/docs/guide'
-          assert "expected path /docs/guide"
-
-          tell ^^.link to get_query
-          eval it = 'page=3&sort=asc'
-          assert "expected the query string"
-
-          tell ^^.link to get_fragment
-          eval it = 'install'
-          assert "expected fragment install"
-
-      missing_pieces [test] :
-        description [string] : a bare URL has an empty path.
-        on_test [script] :
-          tell ^^.bare to get_path
-          put it into tests.objs.uri.result
-          check tests.objs.uri.result for blank?
-          assert "expected the path of a bare URL to be blank"
-
-      result [string] :
+tests.objs.uri [can] :
+
+  link [uri] : https://example.com:8443/docs/guide?page=3&sort=asc#install
+  bare [uri] : https://example.com
+
+  parts_of_a_url [test] :
+    description [string] : the get_ messages pull each piece of the URL into it.
+    on_test [script] :
+      tell ^^.link to get_scheme
+      eval it = 'https'
+      assert "expected scheme https"
+
+      tell ^^.link to get_host
+      eval it = 'example.com'
+      assert "expected host example.com (no port)"
+
+      tell ^^.link to get_path
+      eval it = '/docs/guide'
+      assert "expected path /docs/guide"
+
+      tell ^^.link to get_query
+      eval it = 'page=3&sort=asc'
+      assert "expected the query string"
+
+      tell ^^.link to get_fragment
+      eval it = 'install'
+      assert "expected fragment install"
+
+  missing_pieces [test] :
+    description [string] : a bare URL has an empty path.
+    on_test [script] :
+      tell ^^.bare to get_path
+      put it into tests.objs.uri.result
+      check tests.objs.uri.result for blank?
+      assert "expected the path of a bare URL to be blank"
+
+  result [string] :

data/test.gloo/verbs/break.test.gloo

@@ -2,21 +2,19 @@
 # Break verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    break [can] :
+tests.verbs.break [can] :
 
-      b [bool] : true
+  b [bool] : true
 
-      s [script] :
-        if ^.b  then break
+  s [script] :
+    if ^.b  then break
         
-        # Should not get here
-        put false into ^.b
+    # Should not get here
+    put false into ^.b
 
-      break [test] :
-        description [string] : Break out of a script
-        on_test [script] :
-          tell ^^.s to run
-          eval ^^.b
-          assert "expected b to be true"
+  break [test] :
+    description [string] : Break out of a script
+    on_test [script] :
+      tell ^^.s to run
+      eval ^^.b
+      assert "expected b to be true"

data/test.gloo/verbs/check.test.gloo

@@ -2,34 +2,32 @@
 # Check verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    check [can] :
+tests.verbs.check [can] :
 
-      c [container] :
-        a [string] : "a"
-      t [container] :
+  c [container] :
+    a [string] : "a"
+  t [container] :
 
-      check_contains [test] :
-        description [string] : Check an object for containment
-        on_test [script] :
-          check ^^.c for contains?
-          assert "expected c to contain a"
+  check_contains [test] :
+    description [string] : Check an object for containment
+    on_test [script] :
+      check ^^.c for contains?
+      assert "expected c to contain a"
 
-          check ^^.t for contains?
-          refute "expected t to not contain a"
+      check ^^.t for contains?
+      refute "expected t to not contain a"
 
-          check ^^.c.a for contains?
-          refute "expected a to not be a container"
+      check ^^.c.a for contains?
+      refute "expected a to not be a container"
 
-      check_blank [test] :
-        description [string] : Check an object for blankness
-        on_test [script] :
-          check ^^.c for blank?
-          refute "expected c to not be blank"
+  check_blank [test] :
+    description [string] : Check an object for blankness
+    on_test [script] :
+      check ^^.c for blank?
+      refute "expected c to not be blank"
 
-          check ^^.t for blank?
-          assert "expected t to be blank"
+      check ^^.t for blank?
+      assert "expected t to be blank"
 
-          check ^^.c.a for blank?
-          refute "expected a to not be blank"
+      check ^^.c.a for blank?
+      refute "expected a to not be blank"

data/test.gloo/verbs/context.test.gloo

@@ -2,18 +2,16 @@
 # Context verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    context [can] :
+tests.verbs.context [can] :
 
-      set_context [test] :
-        description [string] : context {path} sets the context and puts the path in it.
-        on_test [script] :
-          context tests.verbs.context
-          eval it = 'tests.verbs.context'
-          assert "expected it to be the new context path"
+  set_context [test] :
+    description [string] : context {path} sets the context and puts the path in it.
+    on_test [script] :
+      context tests.verbs.context
+      eval it = 'tests.verbs.context'
+      assert "expected it to be the new context path"
 
-          # restore, so later tests run at root
-          context root
-          eval it = 'root'
-          assert "expected context to be restored to root"
+      # restore, so later tests run at root
+      context root
+      eval it = 'root'
+      assert "expected context to be restored to root"

data/test.gloo/verbs/create.test.gloo

@@ -2,13 +2,11 @@
 # Create verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    create [can] :
+tests.verbs.create [can] :
 
-      create_str [test] :
-        description [string] : Create sets it to the initial value.
-        on_test [script] :
-          create cx as string : 'hello'
-          eval it = 'hello'
-          assert "expected it to equal the created value"
+  create_str [test] :
+    description [string] : Create sets it to the initial value.
+    on_test [script] :
+      create cx as string : 'hello'
+      eval it = 'hello'
+      assert "expected it to equal the created value"

data/test.gloo/verbs/eval.test.gloo

@@ -2,18 +2,16 @@
 # Eval verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    eval [can] :
+tests.verbs.eval [can] :
 
-      eval_expr [test] :
-        description [string] : Evaluate an expression.
-        on_test [script] :
-          eval 1 + 1 = 2
-          assert "expected 1 + 1 to equal 2"
+  eval_expr [test] :
+    description [string] : Evaluate an expression.
+    on_test [script] :
+      eval 1 + 1 = 2
+      assert "expected 1 + 1 to equal 2"
 
-          eval true
-          assert "expected true to be true"
+      eval true
+      assert "expected true to be true"
 
-          eval false
-          refute "expected false to be false"
+      eval false
+      refute "expected false to be false"

data/test.gloo/verbs/exists.test.gloo

@@ -2,48 +2,46 @@
 # Exists verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    exists [can] :
-
-      verb [test] :
-        description [string] : Check on existance of exists verb
-        on_test [script] :
-          exists? verb exists?
-          assert "expected exists? to exist"
-
-          exists? verb does_not_exist
-          refute "expected does_not_exist to not exist"
-
-      object [test] :
-        description [string] : Check on existance of exists object type
-        on_test [script] :
-          exists? object container
-          assert "expected container to exist"
-
-          exists? object can
-          assert "expected can to exist"
-
-          exists? object does_not_exist
-          refute "expected does_not_exist to not exist"
-
-      any_v_or_o [test] :
-        description [string] : Check on existance of any type
-        on_test [script] :
-          exists? str
-          assert "expected str to exist"
-
-          exists? show
-          assert "expected show to exist"
-
-          exists? does_not_exist
-          refute "expected does_not_exist to not exist"
-
-      instance [test] :
-        description [string] : Check on existance of objects.
-        on_test [script] :
-          exists? instance tests.verbs.exists.instance
-          assert "expected instance to exist"
-
-          exists? instance tests.verbs.exists.instance2
-          refute "expected instance to not exist"
+tests.verbs.exists [can] :
+
+  verb [test] :
+    description [string] : Check on existance of exists verb
+    on_test [script] :
+      exists? verb exists?
+      assert "expected exists? to exist"
+
+      exists? verb does_not_exist
+      refute "expected does_not_exist to not exist"
+
+  object [test] :
+    description [string] : Check on existance of exists object type
+    on_test [script] :
+      exists? object container
+      assert "expected container to exist"
+
+      exists? object can
+      assert "expected can to exist"
+
+      exists? object does_not_exist
+      refute "expected does_not_exist to not exist"
+
+  any_v_or_o [test] :
+    description [string] : Check on existance of any type
+    on_test [script] :
+      exists? str
+      assert "expected str to exist"
+
+      exists? show
+      assert "expected show to exist"
+
+      exists? does_not_exist
+      refute "expected does_not_exist to not exist"
+
+  instance [test] :
+    description [string] : Check on existance of objects.
+    on_test [script] :
+      exists? instance tests.verbs.exists.instance
+      assert "expected instance to exist"
+
+      exists? instance tests.verbs.exists.instance2
+      refute "expected instance to not exist"

data/test.gloo/verbs/if.test.gloo

@@ -2,15 +2,13 @@
 # If verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    if [can] :
+tests.verbs.if [can] :
 
-      b [bool] : true
+  b [bool] : true
 
-      if_test [test] :
-        description [string] : If true then evaluate
-        on_test [script] :
-          eval false
-          if ^^.b then eval true
-          assert "expected b to be true"
+  if_test [test] :
+    description [string] : If true then evaluate
+    on_test [script] :
+      eval false
+      if ^^.b then eval true
+      assert "expected b to be true"