gloo 6.3.1 → 6.5.0

data/test.gloo/objs/int.test.gloo

@@ -2,69 +2,67 @@
 # Integer tests
 #
 
-tests [can] :
-  objs [can] :
-    int [can] :
+tests.objs.int [can] :
 
-      a [int] : 
-      b [int] : 
+  a [int] : 
+  b [int] : 
 
-      set_value_with_msg [test] :
-        description [string] : Set the value of the integer
-        on_test [script] :
-          put 1 into ^^.b
-          eval ^^.b = 1
-          assert "expected it to be 1"
+  set_value_with_msg [test] :
+    description [string] : Set the value of the integer
+    on_test [script] :
+      put 1 into ^^.b
+      eval ^^.b = 1
+      assert "expected it to be 1"
 
-          put 2 into ^^.a
-          eval ^^.a = ^^.b
-          refute "expected them to not be equal"
+      put 2 into ^^.a
+      eval ^^.a = ^^.b
+      refute "expected them to not be equal"
 
-          put 1 into ^^.a
-          eval ^^.a = ^^.b
-          assert "expected them to be equal"
+      put 1 into ^^.a
+      eval ^^.a = ^^.b
+      assert "expected them to be equal"
 
-      inc_int [test] :
-        description [string] : Increment the integer
-        on_test [script] :
-          put 1 into ^^.a
-          tell ^^.a to inc
-          eval ^^.a = 2
-          assert "expected it to be 2"
+  inc_int [test] :
+    description [string] : Increment the integer
+    on_test [script] :
+      put 1 into ^^.a
+      tell ^^.a to inc
+      eval ^^.a = 2
+      assert "expected it to be 2"
 
-      dec_int [test] :
-        description [string] : Decrement the integer
-        on_test [script] :
-          put 1 into ^^.a
-          tell ^^.a to dec
-          eval ^^.a = 0
-          assert "expected it to be 0"
+  dec_int [test] :
+    description [string] : Decrement the integer
+    on_test [script] :
+      put 1 into ^^.a
+      tell ^^.a to dec
+      eval ^^.a = 0
+      assert "expected it to be 0"
 
-      rand_int [test] :
-        description [string] : Randomize the integer
-        on_test [script] :
-          put 1 into ^^.a
-          tell ^^.a to randomize
-          eval ^^.a >= 0
-          assert "expected it to be greater than or equal to 0"
-          eval ^^.a <= 100
-          assert "expected it to be less than or equal to 100"
+  rand_int [test] :
+    description [string] : Randomize the integer
+    on_test [script] :
+      put 1 into ^^.a
+      tell ^^.a to randomize
+      eval ^^.a >= 0
+      assert "expected it to be greater than or equal to 0"
+      eval ^^.a <= 100
+      assert "expected it to be less than or equal to 100"
           
-          tell ^^.a to randomize (10000)
-          tell ^^.b to randomize (10000)
-          eval ^^.a = ^^.b
-          refute "expected them to not be equal"
+      tell ^^.a to randomize (10000)
+      tell ^^.b to randomize (10000)
+      eval ^^.a = ^^.b
+      refute "expected them to not be equal"
 
-      format_int [test] :
-        description [string] : Format an integer
-        f [int] : 
-        on_test [script] :
-          put 1234567 into ^.f
-          tell ^.f to format
-          eval it = '1,234,567'
-          assert "expected formatted integer to match"
+  format_int [test] :
+    description [string] : Format an integer
+    f [int] : 
+    on_test [script] :
+      put 1234567 into ^.f
+      tell ^.f to format
+      eval it = '1,234,567'
+      assert "expected formatted integer to match"
 
-          put 42 into ^.f
-          tell ^.f to format ('%05d')
-          eval it = '00042'
-          assert "expected formatted integer to match"
+      put 42 into ^.f
+      tell ^.f to format ('%05d')
+      eval it = '00042'
+      assert "expected formatted integer to match"

data/test.gloo/objs/json.test.gloo

@@ -2,69 +2,76 @@
 # JSON object tests
 #
 
-tests [can] :
-  objs [can] :
-    json [can] :
+tests.objs.json [can] :
 
-      payload [json] : BEGIN
+  payload [json] : BEGIN
         { "title":"Brute Force",
           "meta":{ "author":"ESR", "year":"2003" } }
         END
 
-      compact [json] : {"a":"1","b":{"c":"2"}}
+  compact [json] : {"a":"1","b":{"c":"2"}}
 
-      source [can] :
-        name [string] : gloo
-        kind [string] : language
+  source [can] :
+    name [string] : gloo
+    kind [string] : language
 
-      built [json] :
-      out [can] :
-      found [string] :
+  built [json] :
+  out [can] :
+  found [string] :
+  assigned [json] :
 
-      get_a_value [test] :
-        description [string] : get pulls a value out by dotted path.
-        on_test [script] :
-          tell ^^.payload to get ( 'title' )
-          eval it = 'Brute Force'
-          assert "expected the top-level title"
+  get_a_value [test] :
+    description [string] : get pulls a value out by dotted path.
+    on_test [script] :
+      tell ^^.payload to get ( 'title' )
+      eval it = 'Brute Force'
+      assert "expected the top-level title"
 
-          tell ^^.payload to get ( 'meta.author' )
-          eval it = 'ESR'
-          assert "expected the nested author"
+      tell ^^.payload to get ( 'meta.author' )
+      eval it = 'ESR'
+      assert "expected the nested author"
 
-      get_missing_is_blank [test] :
-        description [string] : get for a path that isn't there returns blank.
-        on_test [script] :
-          tell ^^.payload to get ( 'nope' )
-          put it into tests.objs.json.found
-          check tests.objs.json.found for blank?
-          assert "expected a missing path to return blank"
+  get_missing_is_blank [test] :
+    description [string] : get for a path that isn't there returns blank.
+    on_test [script] :
+      tell ^^.payload to get ( 'nope' )
+      put it into tests.objs.json.found
+      check tests.objs.json.found for blank?
+      assert "expected a missing path to return blank"
 
-      parse_into_objects [test] :
-        description [string] : parse builds an object tree from the JSON.
-        on_test [script] :
-          tell ^^.payload to parse ( tests.objs.json.out )
+  parse_into_objects [test] :
+    description [string] : parse builds an object tree from the JSON.
+    on_test [script] :
+      tell ^^.payload to parse ( tests.objs.json.out )
 
-          eval tests.objs.json.out.title = 'Brute Force'
-          assert "expected parse to set the title"
+      eval tests.objs.json.out.title = 'Brute Force'
+      assert "expected parse to set the title"
 
-          eval tests.objs.json.out.meta.author = 'ESR'
-          assert "expected parse to build the nested meta container"
+      eval tests.objs.json.out.meta.author = 'ESR'
+      assert "expected parse to build the nested meta container"
 
-      set_from_objects_round_trip [test] :
-        description [string] : set serialises an object tree; get reads it back.
-        on_test [script] :
-          # a path inside ( ) params must be absolute, not a ^ ref
-          tell ^^.built to set ( tests.objs.json.source )
+  set_from_objects_round_trip [test] :
+    description [string] : set serialises an object tree; get reads it back.
+    on_test [script] :
+      # a path inside ( ) params must be absolute, not a ^ ref
+      tell ^^.built to set ( tests.objs.json.source )
 
-          tell ^^.built to get ( 'name' )
-          eval it = 'gloo'
-          assert "expected set then get to round-trip a value"
+      tell ^^.built to get ( 'name' )
+      eval it = 'gloo'
+      assert "expected set then get to round-trip a value"
 
-      pretty_keeps_it_valid [test] :
-        description [string] : pretty reformats the text without breaking it.
-        on_test [script] :
-          tell ^^.compact to pretty
-          tell ^^.compact to get ( 'b.c' )
-          eval it = '2'
-          assert "expected the value to still be reachable after pretty"
+  pretty_keeps_it_valid [test] :
+    description [string] : pretty reformats the text without breaking it.
+    on_test [script] :
+      tell ^^.compact to pretty
+      tell ^^.compact to get ( 'b.c' )
+      eval it = '2'
+      assert "expected the value to still be reachable after pretty"
+
+  assign_a_json_string_at_run_time [test] :
+    description [string] : a quote-containing literal can be put into an object at run time.
+    on_test [script] :
+      put '{"lang":"gloo","ok":true}' into tests.objs.json.assigned
+      tell ^^.assigned to get ( 'lang' )
+      eval it = 'gloo'
+      assert "expected the run-time JSON string to be assigned and readable"

data/test.gloo/objs/obj.test.gloo

@@ -2,51 +2,71 @@
 # Root object tests
 #
 
-tests [can] :
-  objs [can] :
-    obj [can] :
-
-      o [any] :
-      a [can] :
-        b [string] : "b"
-        c [string] : "c"
-        d [string] : "d"
-
-      obj_contains [test] :
-        description [string] : Check to see if an object contains children
-        on_test [script] :
-          check tests.objs.obj.o for contains?
-          refute "the object does not contain children"
-
-          check tests.objs.obj.a for contains?
-          assert "the object contains children"
-
-      blank_object [test] :
-        description [string] : Check for a blank string
-        on_test [script] :
-          check tests.objs.obj.a.b for blank?
-          refute "the string should be blank"
-
-          check tests.objs.obj.o for blank?
-          assert "the object should be blank"
-
-      responds_to_blank [test] :
-        description [string] : Verify that all objects respond to blank? msessage
-        on_test [script] :
-          check tests.objs.obj.o for responds_to? ('blank?')
-          assert "expected any object to respond to blank?"
-
-      responds_to_contains [test] :
-        description [string] : Verify that all objects respond to contains? msessage
-        on_test [script] :
-          check tests.objs.obj.o for responds_to? ('contains?')
-          assert "expected any object to respond to contains?"
-
-      responds_to_up [test] :
-        description [string] : Verify that strings respond to up msessage
-        on_test [script] :
-          check tests.objs.obj.o for responds_to? ('up')
-          refute "expected any object to not respond to up"
-
-          check tests.objs.obj.a.b for responds_to? ('up')
-          assert "expected string to respond to up"
+tests.objs.obj [can] :
+
+  o [any] :
+  a [can] :
+    b [string] : "b"
+    c [string] : "c"
+    d [string] : "d"
+
+  # A documented string, used to check the doc message.
+  documented [string] : "value"
+
+  no_doc [string] : "value"
+
+  obj_contains [test] :
+    description [string] : Check to see if an object contains children
+    on_test [script] :
+      check tests.objs.obj.o for contains?
+      refute "the object does not contain children"
+
+      check tests.objs.obj.a for contains?
+      assert "the object contains children"
+
+  blank_object [test] :
+    description [string] : Check for a blank string
+    on_test [script] :
+      check tests.objs.obj.a.b for blank?
+      refute "the string should be blank"
+
+      check tests.objs.obj.o for blank?
+      assert "the object should be blank"
+
+  responds_to_blank [test] :
+    description [string] : Verify that all objects respond to blank? msessage
+    on_test [script] :
+      check tests.objs.obj.o for responds_to? ('blank?')
+      assert "expected any object to respond to blank?"
+
+  responds_to_contains [test] :
+    description [string] : Verify that all objects respond to contains? msessage
+    on_test [script] :
+      check tests.objs.obj.o for responds_to? ('contains?')
+      assert "expected any object to respond to contains?"
+
+  responds_to_up [test] :
+    description [string] : Verify that strings respond to up msessage
+    on_test [script] :
+      check tests.objs.obj.o for responds_to? ('up')
+      refute "expected any object to not respond to up"
+
+      check tests.objs.obj.a.b for responds_to? ('up')
+      assert "expected string to respond to up"
+
+  responds_to_doc [test] :
+    description [string] : Verify that all objects respond to doc message
+    on_test [script] :
+      check tests.objs.obj.o for responds_to? ('doc')
+      assert "expected any object to respond to doc"
+
+  doc_message [test] :
+    description [string] : doc returns the object's leading comment, cleaned up.
+    on_test [script] :
+      check tests.objs.obj.documented for doc
+      eval it = "A documented string, used to check the doc message."
+      assert "expected doc to return the cleaned leading comment"
+
+      check tests.objs.obj.no_doc for doc
+      eval it = ""
+      assert "expected doc to be blank for an object with no leading comment"

data/test.gloo/objs/outline.test.gloo

@@ -6,67 +6,65 @@
 # child is the id and whose second child is the name.
 #
 
-tests [can] :
-  objs [can] :
-    outline [can] :
+tests.objs.outline [can] :
 
-      src [container] :
-        1 [container] :
-          id [int] : 1
-          name [string] : a/b/c
-        2 [container] :
-          id [int] : 2
-          name [string] : a/b/d
-        3 [container] :
-          id [int] : 3
-          name [string] : top
+  src [container] :
+    1 [container] :
+      id [int] : 1
+      name [string] : a/b/c
+    2 [container] :
+      id [int] : 2
+      name [string] : a/b/d
+    3 [container] :
+      id [int] : 3
+      name [string] : top
 
-      dotted [container] :
-        1 [container] :
-          id [int] : 9
-          name [string] : x.y.z
+  dotted [container] :
+    1 [container] :
+      id [int] : 9
+      name [string] : x.y.z
 
-      linked [outline] :
-        object_source [alias] : tests.objs.outline.src
-        entity_path [string] : /entity/
-        separator_char [string] : /
-        data [string] :
+  linked [outline] :
+    object_source [alias] : tests.objs.outline.src
+    entity_path [string] : /entity/
+    separator_char [string] : /
+    data [string] :
 
-      plain [outline] :
-        object_source [alias] : tests.objs.outline.dotted
-        separator_char [string] : .
-        data [string] :
+  plain [outline] :
+    object_source [alias] : tests.objs.outline.dotted
+    separator_char [string] : .
+    data [string] :
 
-      builds_nested_html_with_links [test] :
-        description [string] : generate nests shared path segments and links leaves that have an id.
-        on_test [script] :
-          tell ^^.linked to generate
+  builds_nested_html_with_links [test] :
+    description [string] : generate nests shared path segments and links leaves that have an id.
+    on_test [script] :
+      tell ^^.linked to generate
 
-          check ^^.linked.data for starts_with? ( "<ul>" )
-          assert "expected the outline to start with <ul>"
+      check ^^.linked.data for starts_with? ( "<ul>" )
+      assert "expected the outline to start with <ul>"
 
-          check ^^.linked.data for substring? ( "<li>a</li>" )
-          assert "expected a shared 'a' segment as a plain node"
+      check ^^.linked.data for substring? ( "<li>a</li>" )
+      assert "expected a shared 'a' segment as a plain node"
 
-          check ^^.linked.data for substring? ( "<li>b</li>" )
-          assert "expected a shared 'b' segment as a plain node"
+      check ^^.linked.data for substring? ( "<li>b</li>" )
+      assert "expected a shared 'b' segment as a plain node"
 
-          check ^^.linked.data for substring? ( "<a href='/entity/1'>c</a>" )
-          assert "expected leaf 'c' to be linked with its id and entity_path"
+      check ^^.linked.data for substring? ( "<a href='/entity/1'>c</a>" )
+      assert "expected leaf 'c' to be linked with its id and entity_path"
 
-          check ^^.linked.data for substring? ( "<a href='/entity/3'>top</a>" )
-          assert "expected the top-level 'top' item to be linked"
+      check ^^.linked.data for substring? ( "<a href='/entity/3'>top</a>" )
+      assert "expected the top-level 'top' item to be linked"
 
-      custom_separator_and_no_links [test] :
-        description [string] : separator_char sets the split char; with no entity_path leaves are plain.
-        on_test [script] :
-          tell ^^.plain to generate
+  custom_separator_and_no_links [test] :
+    description [string] : separator_char sets the split char; with no entity_path leaves are plain.
+    on_test [script] :
+      tell ^^.plain to generate
 
-          check ^^.plain.data for substring? ( "<li>x</li>" )
-          assert "expected '.' to split x.y.z so 'x' is its own node"
+      check ^^.plain.data for substring? ( "<li>x</li>" )
+      assert "expected '.' to split x.y.z so 'x' is its own node"
 
-          check ^^.plain.data for substring? ( "<li>z</li>" )
-          assert "expected leaf 'z' rendered plain (no entity_path)"
+      check ^^.plain.data for substring? ( "<li>z</li>" )
+      assert "expected leaf 'z' rendered plain (no entity_path)"
 
-          check ^^.plain.data for substring? ( "href" )
-          refute "expected no links when entity_path is not set"
+      check ^^.plain.data for substring? ( "href" )
+      refute "expected no links when entity_path is not set"

data/test.gloo/objs/password.test.gloo

@@ -2,39 +2,37 @@
 # Password object tests
 #
 
-tests [can] :
-  objs [can] :
-    password [can] :
-
-      hash_and_check [test] :
-        description [string] : check succeeds for the right password and fails for the wrong one.
-        on_test [script] :
-          create tests.objs.password.p as password
-          put 'user-1' into tests.objs.password.p.salt
-          put 's3cret' into tests.objs.password.p.password
-          tell tests.objs.password.p to hash
-
-          check tests.objs.password.p.hash for blank?
-          refute "expected hash to be populated"
-
-          tell tests.objs.password.p to check
-          assert "expected check to pass for the original password"
-
-          put 'not the password' into tests.objs.password.p.password
-          tell tests.objs.password.p to check
-          refute "expected check to fail for a wrong password"
-
-      generate_length [test] :
-        description [string] : generate makes a password of the requested length and puts it in it.
-        on_test [script] :
-          create tests.objs.password.g as password
-
-          tell tests.objs.password.g to generate
-          tell tests.objs.password.g.password to size
-          eval it = 7
-          assert "expected the default generated length to be 7"
-
-          tell tests.objs.password.g to generate ( 20 )
-          tell tests.objs.password.g.password to size
-          eval it = 20
-          assert "expected the generated length to be 20"
+tests.objs.password [can] :
+
+  hash_and_check [test] :
+    description [string] : check succeeds for the right password and fails for the wrong one.
+    on_test [script] :
+      create tests.objs.password.p as password
+      put 'user-1' into tests.objs.password.p.salt
+      put 's3cret' into tests.objs.password.p.password
+      tell tests.objs.password.p to hash
+
+      check tests.objs.password.p.hash for blank?
+      refute "expected hash to be populated"
+
+      tell tests.objs.password.p to check
+      assert "expected check to pass for the original password"
+
+      put 'not the password' into tests.objs.password.p.password
+      tell tests.objs.password.p to check
+      refute "expected check to fail for a wrong password"
+
+  generate_length [test] :
+    description [string] : generate makes a password of the requested length and puts it in it.
+    on_test [script] :
+      create tests.objs.password.g as password
+
+      tell tests.objs.password.g to generate
+      tell tests.objs.password.g.password to size
+      eval it = 7
+      assert "expected the default generated length to be 7"
+
+      tell tests.objs.password.g to generate ( 20 )
+      tell tests.objs.password.g.password to size
+      eval it = 20
+      assert "expected the generated length to be 20"