gloo 6.3.1 → 6.5.0

data/test.gloo/lang/gloo_sys.test.gloo

@@ -2,105 +2,103 @@
 # Gloo System tests
 #
 
-tests [can] :
-  lang [can] :
-    gloo_sys [can] :
-
-      get_platform_info [test] :
-        description [string] : Get the platform info.
-        on_test [script] :
-          eval $.platform_cpu
-          eval it = ''
-          refute "expected cpu to not be empty"
-
-          eval $.platform_os
-          eval it = ''
-          refute "expected os to not be empty"
-
-          eval $.platform_version
-          eval it = ''
-          refute "expected version to not be empty"
-
-          eval $.platform_mac?
-          eval it = ''
-          refute "expected mac? to not be empty"
-
-      get_hostname [test] :
-        description [string] : Get the hostname.
-        on_test [script] :
-          eval $.hostname = ''
-          refute "expected hostname to not be empty"
-
-      get_working_dir [test] :
-        description [string] : Get the working directory.
-        on_test [script] :
-          eval $.working_dir
-          eval it = ''
-          refute "expected working_dir to not be empty"
-
-          eval $.working_dir = gloo.working_dir
-          assert "expected gloo. and $. to be the same"
-
-      get_app_dir [test] :
-        description [string] : Get the app directory.
-        on_test [script] :
-          eval $.app
-          eval it = ''
-          refute "expected app_dir to not be empty"
-
-      get_user_info [test] :
-        description [string] : Get the user directories.
-        on_test [script] :
-          eval $.user_home
-          eval it = ''
-          refute "expected user_home to not be empty"
-
-          eval $.user
-          eval it = ''
-          refute "expected user to not be empty"
-
-      get_gloo_dirs [test] :
-        description [string] : Get the gloo directories.
-        on_test [script] :
-          eval $.gloo_home
-          eval it = ''
-          refute "expected gloo_home to not be empty"
-
-          eval $.gloo_config
-          eval it = ''
-          refute "expected gloo_config to not be empty"
-
-          eval $.gloo_projects
-          eval it = ''
-          refute "expected gloo_projects to not be empty"
-
-          eval $.gloo_log
-          eval it = ''
-          refute "expected gloo_log to not be empty"
-
-      get_screen_dims [test] :
-        description [string] : Get the screen dimensions.
-        i [int] :
-        on_test [script] :
-          put $.screen_lines into ^.i
-          eval ^.i > 0
-          assert "expected screen_lines to be greater than 0"
-
-          put $.screen_cols into ^.i
-          eval ^.i > 0
-          assert "expected screen_cols to be greater than 0"
-
-      get_platform_os [test] :
-        description [string] : Get the platform OS.
-        on_test [script] :
-          eval $.platform_mac? = true
-          assert "expected platform_mac to be true"
-
-          eval $.platform_windows? = false
-          assert "expected platform_windows to be false"
-
-          eval $.platform_linux? = false
-          assert "expected platform_linux to be false"
-
-          eval $.platform_wsl? = false
-          assert "expected platform_wsl to be false"
+tests.lang.gloo_sys [can] :
+
+  get_platform_info [test] :
+    description [string] : Get the platform info.
+    on_test [script] :
+      eval $.platform_cpu
+      eval it = ''
+      refute "expected cpu to not be empty"
+
+      eval $.platform_os
+      eval it = ''
+      refute "expected os to not be empty"
+
+      eval $.platform_version
+      eval it = ''
+      refute "expected version to not be empty"
+
+      eval $.platform_mac?
+      eval it = ''
+      refute "expected mac? to not be empty"
+
+  get_hostname [test] :
+    description [string] : Get the hostname.
+    on_test [script] :
+      eval $.hostname = ''
+      refute "expected hostname to not be empty"
+
+  get_working_dir [test] :
+    description [string] : Get the working directory.
+    on_test [script] :
+      eval $.working_dir
+      eval it = ''
+      refute "expected working_dir to not be empty"
+
+      eval $.working_dir = gloo.working_dir
+      assert "expected gloo. and $. to be the same"
+
+  get_app_dir [test] :
+    description [string] : Get the app directory.
+    on_test [script] :
+      eval $.app
+      eval it = ''
+      refute "expected app_dir to not be empty"
+
+  get_user_info [test] :
+    description [string] : Get the user directories.
+    on_test [script] :
+      eval $.user_home
+      eval it = ''
+      refute "expected user_home to not be empty"
+
+      eval $.user
+      eval it = ''
+      refute "expected user to not be empty"
+
+  get_gloo_dirs [test] :
+    description [string] : Get the gloo directories.
+    on_test [script] :
+      eval $.gloo_home
+      eval it = ''
+      refute "expected gloo_home to not be empty"
+
+      eval $.gloo_config
+      eval it = ''
+      refute "expected gloo_config to not be empty"
+
+      eval $.gloo_projects
+      eval it = ''
+      refute "expected gloo_projects to not be empty"
+
+      eval $.gloo_log
+      eval it = ''
+      refute "expected gloo_log to not be empty"
+
+  get_screen_dims [test] :
+    description [string] : Get the screen dimensions.
+    i [int] :
+    on_test [script] :
+      put $.screen_lines into ^.i
+      eval ^.i > 0
+      assert "expected screen_lines to be greater than 0"
+
+      put $.screen_cols into ^.i
+      eval ^.i > 0
+      assert "expected screen_cols to be greater than 0"
+
+  get_platform_os [test] :
+    description [string] : Get the platform OS.
+    on_test [script] :
+      eval $.platform_mac? = true
+      assert "expected platform_mac to be true"
+
+      eval $.platform_windows? = false
+      assert "expected platform_windows to be false"
+
+      eval $.platform_linux? = false
+      assert "expected platform_linux to be false"
+
+      eval $.platform_wsl? = false
+      assert "expected platform_wsl to be false"

data/test.gloo/lang/here.test.gloo

@@ -5,37 +5,35 @@
 # parent, ^^^ its grandparent, and so on.
 #
 
-tests [can] :
-  lang [can] :
-    here [can] :
-
-      s [string] : level 0
-
-      r1 [string] :
-      r2 [string] :
-      r3 [string] :
-
-      a [can] :
-        s [string] : level 1
-        b [can] :
-          s [string] : level 2
-          c [can] :
-            s [string] : level 3
-            capture [script] :
-              put ^.s into tests.lang.here.r1
-              put ^^.s into tests.lang.here.r2
-              put ^^^.s into tests.lang.here.r3
-
-      caret_walks_up_the_tree [test] :
-        description [string] : ^, ^^, ^^^ resolve relative to the running script's location.
-        on_test [script] :
-          tell tests.lang.here.a.b.c.capture to run
-
-          eval ^^.r1 = 'level 3'
-          assert "expected ^ to be the script's own container"
-
-          eval ^^.r2 = 'level 2'
-          assert "expected ^^ to be the parent container"
-
-          eval ^^.r3 = 'level 1'
-          assert "expected ^^^ to be the grandparent container"
+tests.lang.here [can] :
+
+  s [string] : level 0
+
+  r1 [string] :
+  r2 [string] :
+  r3 [string] :
+
+  a [can] :
+    s [string] : level 1
+    b [can] :
+      s [string] : level 2
+      c [can] :
+        s [string] : level 3
+        capture [script] :
+          put ^.s into tests.lang.here.r1
+          put ^^.s into tests.lang.here.r2
+          put ^^^.s into tests.lang.here.r3
+
+  caret_walks_up_the_tree [test] :
+    description [string] : ^, ^^, ^^^ resolve relative to the running script's location.
+    on_test [script] :
+      tell tests.lang.here.a.b.c.capture to run
+
+      eval ^^.r1 = 'level 3'
+      assert "expected ^ to be the script's own container"
+
+      eval ^^.r2 = 'level 2'
+      assert "expected ^^ to be the parent container"
+
+      eval ^^.r3 = 'level 1'
+      assert "expected ^^^ to be the grandparent container"

data/test.gloo/lang/it.test.gloo

@@ -4,38 +4,36 @@
 # 'it' holds the result of the last statement that produced one.
 #
 
-tests [can] :
-  lang [can] :
-    it [can] :
+tests.lang.it [can] :
 
-      n [int] : 5
-      r [string] :
+  n [int] : 5
+  r [string] :
 
-      set_by_the_previous_statement [test] :
-        description [string] : show, eval, tell and put all leave their result in it.
-        on_test [script] :
-          show 3 + 4
-          eval it = 7
-          assert "expected show to leave the evaluated value in it"
+  set_by_the_previous_statement [test] :
+    description [string] : show, eval, tell and put all leave their result in it.
+    on_test [script] :
+      show 3 + 4
+      eval it = 7
+      assert "expected show to leave the evaluated value in it"
 
-          eval 10 * 2
-          eval it = 20
-          assert "expected eval to leave its result in it"
+      eval 10 * 2
+      eval it = 20
+      assert "expected eval to leave its result in it"
 
-          put 'hello' into ^^.r
-          eval it = 'hello'
-          assert "expected put to leave the stored value in it"
+      put 'hello' into ^^.r
+      eval it = 'hello'
+      assert "expected put to leave the stored value in it"
 
-          put 5 into ^^.n
-          tell ^^.n to inc
-          eval it = 6
-          assert "expected tell to leave the message result in it"
+      put 5 into ^^.n
+      tell ^^.n to inc
+      eval it = 6
+      assert "expected tell to leave the message result in it"
 
-      persists_across_statements_that_produce_nothing [test] :
-        description [string] : statements like a bare show or list leave it untouched.
-        on_test [script] :
-          eval 42
-          show
-          list ^^.n
-          eval it = 42
-          assert "expected it to survive statements that don't produce a result"
+  persists_across_statements_that_produce_nothing [test] :
+    description [string] : statements like a bare show or list leave it untouched.
+    on_test [script] :
+      eval 42
+      show
+      list ^^.n
+      eval it = 42
+      assert "expected it to survive statements that don't produce a result"

data/test.gloo/lang/literal.test.gloo

@@ -2,60 +2,58 @@
 # Literal value tests
 #
 
-tests [can] :
-  lang [can] :
-    literal [can] :
-
-      s [string] :
-      i [integer] :
-      d [decimal] :
-      b [boolean] :
-
-      string_quote_styles [test] :
-        description [string] : single and double quotes both make a string; the other quote can appear inside.
-        on_test [script] :
-          put 'single quoted' into ^^.s
-          eval ^^.s = 'single quoted'
-          assert "expected single quotes to work"
-
-          put "double quoted" into ^^.s
-          eval ^^.s = 'double quoted'
-          assert "expected double quotes to work"
-
-          put "you're fine" into ^^.s
-          eval ^^.s = "you're fine"
-          assert "expected an apostrophe inside double quotes to be literal"
-
-      number_literals [test] :
-        description [string] : integer and decimal literals, including negatives.
-        on_test [script] :
-          put -5 into ^^.i
-          eval ^^.i = -5
-          assert "expected a negative integer literal"
-
-          put 3.14159 into ^^.d
-          eval ^^.d = 3.14159
-          assert "expected a decimal literal"
-
-          put -2.5 into ^^.d
-          eval ^^.d = -2.5
-          assert "expected a negative decimal literal"
-
-      boolean_literals_are_case_insensitive [test] :
-        description [string] : TRUE, true, False, FALSE all parse.
-        on_test [script] :
-          put TRUE into ^^.b
-          eval ^^.b = true
-          assert "expected TRUE to parse"
-
-          put true into ^^.b
-          eval ^^.b = true
-          assert "expected true to parse"
-
-          put False into ^^.b
-          eval ^^.b = false
-          assert "expected False to parse"
-
-          put FALSE into ^^.b
-          eval ^^.b = false
-          assert "expected FALSE to parse"
+tests.lang.literal [can] :
+
+  s [string] :
+  i [integer] :
+  d [decimal] :
+  b [boolean] :
+
+  string_quote_styles [test] :
+    description [string] : single and double quotes both make a string; the other quote can appear inside.
+    on_test [script] :
+      put 'single quoted' into ^^.s
+      eval ^^.s = 'single quoted'
+      assert "expected single quotes to work"
+
+      put "double quoted" into ^^.s
+      eval ^^.s = 'double quoted'
+      assert "expected double quotes to work"
+
+      put "you're fine" into ^^.s
+      eval ^^.s = "you're fine"
+      assert "expected an apostrophe inside double quotes to be literal"
+
+  number_literals [test] :
+    description [string] : integer and decimal literals, including negatives.
+    on_test [script] :
+      put -5 into ^^.i
+      eval ^^.i = -5
+      assert "expected a negative integer literal"
+
+      put 3.14159 into ^^.d
+      eval ^^.d = 3.14159
+      assert "expected a decimal literal"
+
+      put -2.5 into ^^.d
+      eval ^^.d = -2.5
+      assert "expected a negative decimal literal"
+
+  boolean_literals_are_case_insensitive [test] :
+    description [string] : TRUE, true, False, FALSE all parse.
+    on_test [script] :
+      put TRUE into ^^.b
+      eval ^^.b = true
+      assert "expected TRUE to parse"
+
+      put true into ^^.b
+      eval ^^.b = true
+      assert "expected true to parse"
+
+      put False into ^^.b
+      eval ^^.b = false
+      assert "expected False to parse"
+
+      put FALSE into ^^.b
+      eval ^^.b = false
+      assert "expected FALSE to parse"

data/test.gloo/lang/load_lib_directive.test.gloo

@@ -6,28 +6,26 @@
 #
 load lib yaml
 
-tests [can] :
-  lang [can] :
-    load_lib_directive [can] :
+tests.lang.load_lib_directive [can] :
 
-      # this declaration only parses because 'load lib yaml' above
-      # registered the type before the loader got here
-      cfg [yaml] :
+  # this declaration only parses because 'load lib yaml' above
+  # registered the type before the loader got here
+  cfg [yaml] :
 
-      library_type_is_available [test] :
-        description [string] : a load lib directive at the top of the file registers the library's types.
-        on_test [script] :
-          exists? object yaml
-          assert "expected the yaml type to be registered by the directive"
+  library_type_is_available [test] :
+    description [string] : a load lib directive at the top of the file registers the library's types.
+    on_test [script] :
+      exists? object yaml
+      assert "expected the yaml type to be registered by the directive"
 
-          exists? object yml
-          assert "expected the yaml short name to be registered too"
+      exists? object yml
+      assert "expected the yaml short name to be registered too"
 
-      typed_object_was_created [test] :
-        description [string] : an object of the library's type declared in the same file exists.
-        on_test [script] :
-          exists? instance tests.lang.load_lib_directive.cfg
-          assert "expected the [yaml] object to have been created during load"
+  typed_object_was_created [test] :
+    description [string] : an object of the library's type declared in the same file exists.
+    on_test [script] :
+      exists? instance tests.lang.load_lib_directive.cfg
+      assert "expected the [yaml] object to have been created during load"
 
-          check tests.lang.load_lib_directive.cfg for responds_to? ( 'load' )
-          assert "expected it to be a real yaml object that responds to load"
+      check tests.lang.load_lib_directive.cfg for responds_to? ( 'load' )
+      assert "expected it to be a real yaml object that responds to load"

data/test.gloo/lang/naming.test.gloo

@@ -2,43 +2,41 @@
 # Object naming tests
 #
 
-tests [can] :
-  lang [can] :
-    naming [can] :
+tests.lang.naming [can] :
 
-      dup [string] : first
-      dup [string] : second
+  dup [string] : first
+  dup [string] : second
 
-      Alpha [string] : mixed case
+  Alpha [string] : mixed case
 
-      1 [string] : numeric name
+  1 [string] : numeric name
 
-      string [string] : a type keyword as a name
-      put [string] : a verb keyword as a name
+  string [string] : a type keyword as a name
+  put [string] : a verb keyword as a name
 
-      first_of_a_duplicate_name_wins [test] :
-        description [string] : when two siblings share a name, the path always reaches the first.
-        on_test [script] :
-          eval ^^.dup = 'first'
-          assert "expected the first 'dup' to be the one reached"
+  first_of_a_duplicate_name_wins [test] :
+    description [string] : when two siblings share a name, the path always reaches the first.
+    on_test [script] :
+      eval ^^.dup = 'first'
+      assert "expected the first 'dup' to be the one reached"
 
-      path_lookup_is_case_insensitive [test] :
-        description [string] : a pathname segment matches a name regardless of case.
-        on_test [script] :
-          eval tests.lang.naming.alpha = 'mixed case'
-          assert "expected lower-case lookup to find 'Alpha'"
+  path_lookup_is_case_insensitive [test] :
+    description [string] : a pathname segment matches a name regardless of case.
+    on_test [script] :
+      eval tests.lang.naming.alpha = 'mixed case'
+      assert "expected lower-case lookup to find 'Alpha'"
 
-          eval tests.lang.naming.ALPHA = 'mixed case'
-          assert "expected upper-case lookup to find 'Alpha'"
+      eval tests.lang.naming.ALPHA = 'mixed case'
+      assert "expected upper-case lookup to find 'Alpha'"
 
-      numeric_and_keyword_names [test] :
-        description [string] : digits and reserved-looking words are valid object names.
-        on_test [script] :
-          eval tests.lang.naming.1 = 'numeric name'
-          assert "expected a numeric name to work"
+  numeric_and_keyword_names [test] :
+    description [string] : digits and reserved-looking words are valid object names.
+    on_test [script] :
+      eval tests.lang.naming.1 = 'numeric name'
+      assert "expected a numeric name to work"
 
-          eval ^^.string = 'a type keyword as a name'
-          assert "expected a type keyword to be usable as a name"
+      eval ^^.string = 'a type keyword as a name'
+      assert "expected a type keyword to be usable as a name"
 
-          eval ^^.put = 'a verb keyword as a name'
-          assert "expected a verb keyword to be usable as a name"
+      eval ^^.put = 'a verb keyword as a name'
+      assert "expected a verb keyword to be usable as a name"