gloo 6.4.0 → 6.5.0

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"

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