gloo 6.3.1 → 6.5.0

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/string/str.test.gloo

@@ -21,6 +21,21 @@ tests [can] :
         eval ^^.s = "hello world"
         assert "expected s to be 'hello world'"
 
+    put_a_quote_containing_value [test] :
+      description [string] : Put a literal that contains quote characters
+      on_test [script] :
+        put '{"x":1}' into ^^.s
+        eval ^^.s = '{"x":1}'
+        assert "expected s to hold the JSON string"
+
+        put "it's here" into ^^.s
+        eval ^^.s = "it's here"
+        assert "expected s to hold the apostrophe string"
+
+        put "say \"hi\"" into ^^.s
+        eval ^^.s = 'say "hi"'
+        assert "expected s to hold the unescaped double-quote string"
+
     blank [test] :
       description [string] : Check to see if the string is blank
       on_test [script] :

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"

data/test.gloo/verbs/invoke.test.gloo

@@ -2,92 +2,90 @@
 # Invoke verb tests
 #
 
-tests [can] :
-  verbs [can] :
-    invoke [can] :
+tests.verbs.invoke [can] :
 
-      f [ƒ] :
-        params [can] :
-        on_invoke [script] :
-          put 42 into ^.result
-        result [int] :
+  f [ƒ] :
+    params [can] :
+    on_invoke [script] :
+      put 42 into ^.result
+    result [int] :
 
-      invoke_test [test] :
-        description [string] : Invoke a function and check the result.
-        on_test [script] :
-          invoke tests.verbs.invoke.f
-          eval it = 42
-          assert "expected it to be 42"
+  invoke_test [test] :
+    description [string] : Invoke a function and check the result.
+    on_test [script] :
+      invoke tests.verbs.invoke.f
+      eval it = 42
+      assert "expected it to be 42"
 
-      add [ƒ] :
-        on_invoke [script] :
-          put ^.params.x + ^.params.y into ^.result
-        params [can] :
-          x [int] :
-          y [int] :
-        result [int] :
+  add [ƒ] :
+    on_invoke [script] :
+      put ^.params.x + ^.params.y into ^.result
+    params [can] :
+      x [int] :
+      y [int] :
+    result [int] :
 
-      total [int] :
+  total [int] :
 
-      inline_invoke_in_show_test [test] :
-        description [string] : Inline invoke( ... ) works inside show.
-        on_test [script] :
-          show invoke( tests.verbs.invoke.add 3 4 )
-          eval it = 7
-          assert "expected it to be 7"
+  inline_invoke_in_show_test [test] :
+    description [string] : Inline invoke( ... ) works inside show.
+    on_test [script] :
+      show invoke( tests.verbs.invoke.add 3 4 )
+      eval it = 7
+      assert "expected it to be 7"
 
-      inline_shortcut_in_show_test [test] :
-        description [string] : Inline ~>( ... ) works inside show, same as invoke( ... ).
-        on_test [script] :
-          show ~>( tests.verbs.invoke.add 3 4 )
-          eval it = 7
-          assert "expected it to be 7"
+  inline_shortcut_in_show_test [test] :
+    description [string] : Inline ~>( ... ) works inside show, same as invoke( ... ).
+    on_test [script] :
+      show ~>( tests.verbs.invoke.add 3 4 )
+      eval it = 7
+      assert "expected it to be 7"
 
-      inline_invoke_with_operator_test [test] :
-        description [string] : Inline invoke( ... ) composes with an operator.
-        on_test [script] :
-          show "Total: " + invoke( tests.verbs.invoke.add 3 4 )
-          eval it = "Total: 7"
-          assert "expected it to be 'Total: 7'"
+  inline_invoke_with_operator_test [test] :
+    description [string] : Inline invoke( ... ) composes with an operator.
+    on_test [script] :
+      show "Total: " + invoke( tests.verbs.invoke.add 3 4 )
+      eval it = "Total: 7"
+      assert "expected it to be 'Total: 7'"
 
-      inline_invoke_in_put_test [test] :
-        description [string] : Inline invoke( ... ) works inside put ... into.
-        on_test [script] :
-          put 0 into ^^.total
-          put invoke( tests.verbs.invoke.add 3 4 ) into ^^.total
-          eval ^^.total = 7
-          assert "expected total to be 7"
+  inline_invoke_in_put_test [test] :
+    description [string] : Inline invoke( ... ) works inside put ... into.
+    on_test [script] :
+      put 0 into ^^.total
+      put invoke( tests.verbs.invoke.add 3 4 ) into ^^.total
+      eval ^^.total = 7
+      assert "expected total to be 7"
 
-      inline_invoke_in_if_test [test] :
-        description [string] : Inline invoke( ... ) works inside if.
-        on_test [script] :
-          eval false
-          if invoke( tests.verbs.invoke.add 3 4 ) = 7 then eval true
-          assert "expected the if branch to have run"
+  inline_invoke_in_if_test [test] :
+    description [string] : Inline invoke( ... ) works inside if.
+    on_test [script] :
+      eval false
+      if invoke( tests.verbs.invoke.add 3 4 ) = 7 then eval true
+      assert "expected the if branch to have run"
 
-      err_fired [bool] : false
+  err_fired [bool] : false
 
-      on_error [script] :
-        put true into ^.err_fired
+  on_error [script] :
+    put true into ^.err_fired
 
-      inline_invoke_error_test [test] :
-        description [string] : Inline invoke( ... ) reports an error for an unresolved target, same as the standalone verb.
-        on_test [script] :
-          put false into ^^.err_fired
-          show invoke( tests.verbs.invoke.no_such_function )
-          eval ^^.err_fired = true
-          assert "expected on_error to have fired for an unresolved inline call target"
+  inline_invoke_error_test [test] :
+    description [string] : Inline invoke( ... ) reports an error for an unresolved target, same as the standalone verb.
+    on_test [script] :
+      put false into ^^.err_fired
+      show invoke( tests.verbs.invoke.no_such_function )
+      eval ^^.err_fired = true
+      assert "expected on_error to have fired for an unresolved inline call target"
 
-      greet [ƒ] :
-        on_invoke [script] :
-          put 'Hi, ' + ^.params.name into ^.result
-        params [can] :
-          name [string] :
-        result [string] :
+  greet [ƒ] :
+    on_invoke [script] :
+      put 'Hi, ' + ^.params.name into ^.result
+    params [can] :
+      name [string] :
+    result [string] :
 
-      inline_invoke_with_quoted_arg_test [test] :
-        description [string] : A quoted string arg inside invoke( ... ) is passed through as one arg, not split on its internal space.
-        on_test [script] :
-          show invoke( tests.verbs.invoke.greet "Bob Smith" )
-          eval it = "Hi, Bob Smith"
-          assert "expected it to be 'Hi, Bob Smith'"
+  inline_invoke_with_quoted_arg_test [test] :
+    description [string] : A quoted string arg inside invoke( ... ) is passed through as one arg, not split on its internal space.
+    on_test [script] :
+      show invoke( tests.verbs.invoke.greet "Bob Smith" )
+      eval it = "Hi, Bob Smith"
+      assert "expected it to be 'Hi, Bob Smith'"

data/test.gloo/verbs/list.test.gloo

@@ -5,30 +5,28 @@
 # behaviour rather than its output.
 #
 
-tests [can] :
-  verbs [can] :
-    list [can] :
+tests.verbs.list [can] :
 
-      data [can] :
-        a [string] : A
-        b [string] : B
+  data [can] :
+    a [string] : A
+    b [string] : B
 
-      err_fired [bool] : false
-      on_error [script] :
-        put true into ^.err_fired
+  err_fired [bool] : false
+  on_error [script] :
+    put true into ^.err_fired
 
-      list_real_container [test] :
-        description [string] : listing a real container does not fire on_error.
-        on_test [script] :
-          put false into ^^.err_fired
-          list tests.verbs.list.data
-          eval ^^.err_fired = false
-          assert "listing a real container should not fire on_error"
+  list_real_container [test] :
+    description [string] : listing a real container does not fire on_error.
+    on_test [script] :
+      put false into ^^.err_fired
+      list tests.verbs.list.data
+      eval ^^.err_fired = false
+      assert "listing a real container should not fire on_error"
 
-      list_missing_target [test] :
-        description [string] : listing a missing target fires on_error.
-        on_test [script] :
-          put false into ^^.err_fired
-          list tests.verbs.list.no_such_thing
-          eval ^^.err_fired = true
-          assert "listing a missing target should fire on_error"
+  list_missing_target [test] :
+    description [string] : listing a missing target fires on_error.
+    on_test [script] :
+      put false into ^^.err_fired
+      list tests.verbs.list.no_such_thing
+      eval ^^.err_fired = true
+      assert "listing a missing target should fire on_error"