gloo 6.4.0 → 6.5.0

data/test.gloo/lang/dt_comparisons.test.gloo

@@ -2,123 +2,121 @@
 # Date/time/datetime comparison operator tests
 #
 
-tests [can] :
-  lang [can] :
-    dt_comparisons [can] :
+tests.lang.dt_comparisons [can] :
 
-      early_date [date] :
-      late_date [date] :
-      early_time [time] :
-      late_time [time] :
-      early_dt [datetime] :
-      late_dt [datetime] :
+  early_date [date] :
+  late_date [date] :
+  early_time [time] :
+  late_time [time] :
+  early_dt [datetime] :
+  late_dt [datetime] :
 
-      confirm_date_ops [test] :
-        description [string] : Confirm comparisons between two dates.
-        on_test [script] :
-          put '2025.01.01' into ^^.early_date
-          put '2025.06.01' into ^^.late_date
+  confirm_date_ops [test] :
+    description [string] : Confirm comparisons between two dates.
+    on_test [script] :
+      put '2025.01.01' into ^^.early_date
+      put '2025.06.01' into ^^.late_date
 
-          eval ^^.late_date > ^^.early_date
-          assert "expected late date to be greater than early date"
+      eval ^^.late_date > ^^.early_date
+      assert "expected late date to be greater than early date"
 
-          eval ^^.early_date < ^^.late_date
-          assert "expected early date to be less than late date"
+      eval ^^.early_date < ^^.late_date
+      assert "expected early date to be less than late date"
 
-          eval ^^.early_date = ^^.early_date
-          assert "expected a date to equal itself"
+      eval ^^.early_date = ^^.early_date
+      assert "expected a date to equal itself"
 
-          eval ^^.early_date != ^^.late_date
-          assert "expected different dates to not be equal"
+      eval ^^.early_date != ^^.late_date
+      assert "expected different dates to not be equal"
 
-          eval ^^.early_date >= ^^.early_date
-          assert "expected a date to be >= itself"
+      eval ^^.early_date >= ^^.early_date
+      assert "expected a date to be >= itself"
 
-          eval ^^.late_date <= ^^.early_date
-          refute "expected late date to not be <= early date"
+      eval ^^.late_date <= ^^.early_date
+      refute "expected late date to not be <= early date"
 
-      confirm_time_ops [test] :
-        description [string] : Confirm comparisons between two times.
-        on_test [script] :
-          put '09:00:00 am' into ^^.early_time
-          put '05:00:00 pm' into ^^.late_time
+  confirm_time_ops [test] :
+    description [string] : Confirm comparisons between two times.
+    on_test [script] :
+      put '09:00:00 am' into ^^.early_time
+      put '05:00:00 pm' into ^^.late_time
 
-          eval ^^.late_time > ^^.early_time
-          assert "expected late time to be greater than early time"
+      eval ^^.late_time > ^^.early_time
+      assert "expected late time to be greater than early time"
 
-          eval ^^.early_time < ^^.late_time
-          assert "expected early time to be less than late time"
+      eval ^^.early_time < ^^.late_time
+      assert "expected early time to be less than late time"
 
-          eval ^^.early_time = ^^.early_time
-          assert "expected a time to equal itself"
+      eval ^^.early_time = ^^.early_time
+      assert "expected a time to equal itself"
 
-          eval ^^.early_time != ^^.late_time
-          assert "expected different times to not be equal"
+      eval ^^.early_time != ^^.late_time
+      assert "expected different times to not be equal"
 
-      confirm_datetime_ops [test] :
-        description [string] : Confirm comparisons between two datetimes.
-        on_test [script] :
-          put '2025.01.01 09:00:00 am' into ^^.early_dt
-          put '2025.01.01 05:00:00 pm' into ^^.late_dt
+  confirm_datetime_ops [test] :
+    description [string] : Confirm comparisons between two datetimes.
+    on_test [script] :
+      put '2025.01.01 09:00:00 am' into ^^.early_dt
+      put '2025.01.01 05:00:00 pm' into ^^.late_dt
 
-          eval ^^.late_dt > ^^.early_dt
-          assert "expected late datetime to be greater than early datetime"
+      eval ^^.late_dt > ^^.early_dt
+      assert "expected late datetime to be greater than early datetime"
 
-          eval ^^.early_dt < ^^.late_dt
-          assert "expected early datetime to be less than late datetime"
+      eval ^^.early_dt < ^^.late_dt
+      assert "expected early datetime to be less than late datetime"
 
-          eval ^^.early_dt = ^^.early_dt
-          assert "expected a datetime to equal itself"
+      eval ^^.early_dt = ^^.early_dt
+      assert "expected a datetime to equal itself"
 
-          eval ^^.early_dt != ^^.late_dt
-          assert "expected different datetimes to not be equal"
+      eval ^^.early_dt != ^^.late_dt
+      assert "expected different datetimes to not be equal"
 
-      confirm_date_vs_datetime [test] :
-        description [string] : Confirm a date coerces to midnight when compared to a datetime.
-        on_test [script] :
-          put '2025.06.01' into ^^.early_date
-          put '2025.06.01 12:00:00 am' into ^^.early_dt
-          put '2025.06.01 09:00:00 am' into ^^.late_dt
+  confirm_date_vs_datetime [test] :
+    description [string] : Confirm a date coerces to midnight when compared to a datetime.
+    on_test [script] :
+      put '2025.06.01' into ^^.early_date
+      put '2025.06.01 12:00:00 am' into ^^.early_dt
+      put '2025.06.01 09:00:00 am' into ^^.late_dt
 
-          eval ^^.early_date = ^^.early_dt
-          assert "expected date to equal midnight of the same day"
+      eval ^^.early_date = ^^.early_dt
+      assert "expected date to equal midnight of the same day"
 
-          eval ^^.late_dt > ^^.early_date
-          assert "expected later datetime to be greater than the date"
+      eval ^^.late_dt > ^^.early_date
+      assert "expected later datetime to be greater than the date"
 
-      confirm_date_vs_time_is_false [test] :
-        description [string] : Confirm dates and times never compare as equal or ordered.
-        on_test [script] :
-          put '2025.06.01' into ^^.early_date
-          put '09:00:00 am' into ^^.early_time
+  confirm_date_vs_time_is_false [test] :
+    description [string] : Confirm dates and times never compare as equal or ordered.
+    on_test [script] :
+      put '2025.06.01' into ^^.early_date
+      put '09:00:00 am' into ^^.early_time
 
-          eval ^^.early_date > ^^.early_time
-          refute "expected date > time to be false"
+      eval ^^.early_date > ^^.early_time
+      refute "expected date > time to be false"
 
-          eval ^^.early_date = ^^.early_time
-          refute "expected date = time to be false"
+      eval ^^.early_date = ^^.early_time
+      refute "expected date = time to be false"
 
-          eval ^^.early_date != ^^.early_time
-          refute "expected date != time to be false, since they can't be compared"
+      eval ^^.early_date != ^^.early_time
+      refute "expected date != time to be false, since they can't be compared"
 
-      confirm_date_vs_loose_string [test] :
-        description [string] : Confirm a date can compare against a loosely formatted string.
-        on_test [script] :
-          put '2025.06.01' into ^^.late_date
+  confirm_date_vs_loose_string [test] :
+    description [string] : Confirm a date can compare against a loosely formatted string.
+    on_test [script] :
+      put '2025.06.01' into ^^.late_date
 
-          eval ^^.late_date > "2025-01-01"
-          assert "expected date to be greater than a loosely parsed earlier date string"
+      eval ^^.late_date > "2025-01-01"
+      assert "expected date to be greater than a loosely parsed earlier date string"
 
-          eval ^^.late_date > "not a date"
-          refute "expected comparison against an unparseable string to be false"
+      eval ^^.late_date > "not a date"
+      refute "expected comparison against an unparseable string to be false"
 
-      confirm_date_vs_integer_is_false [test] :
-        description [string] : Confirm a date never compares as equal or ordered against an integer.
-        on_test [script] :
-          put '2025.06.01' into ^^.late_date
+  confirm_date_vs_integer_is_false [test] :
+    description [string] : Confirm a date never compares as equal or ordered against an integer.
+    on_test [script] :
+      put '2025.06.01' into ^^.late_date
 
-          eval ^^.late_date > 5
-          refute "expected date > integer to be false"
+      eval ^^.late_date > 5
+      refute "expected date > integer to be false"
 
-          eval ^^.late_date = 5
-          refute "expected date = integer to be false"
+      eval ^^.late_date = 5
+      refute "expected date = integer to be false"

data/test.gloo/lang/exceptions.test.gloo

@@ -2,62 +2,60 @@
 # Exception handling tests (on_exception / throw)
 #
 
-tests [can] :
-  lang [can] :
-    exceptions [can] :
+tests.lang.exceptions [can] :
 
-      exc_fired [bool] : false
-      err_fired [bool] : false
+  exc_fired [bool] : false
+  err_fired [bool] : false
 
-      on_exception [script] :
-        put true into ^.exc_fired
+  on_exception [script] :
+    put true into ^.exc_fired
 
-      on_error [script] :
-        put true into ^.err_fired
+  on_error [script] :
+    put true into ^.err_fired
 
-      exception_data [can] :
-        message [string] :
-        backtrace [string] :
+  exception_data [can] :
+    message [string] :
+    backtrace [string] :
 
-      error_data [can] :
-        message [string] :
-        backtrace [string] :
+  error_data [can] :
+    message [string] :
+    backtrace [string] :
 
-      confirm_throw_fires_on_exception [test] :
-        description [string] : Confirm throw fires on_exception and populates exception_data, but does not fire on_error.
-        on_test [script] :
-          put false into ^^.exc_fired
-          put false into ^^.err_fired
+  confirm_throw_fires_on_exception [test] :
+    description [string] : Confirm throw fires on_exception and populates exception_data, but does not fire on_error.
+    on_test [script] :
+      put false into ^^.exc_fired
+      put false into ^^.err_fired
 
-          throw "test message"
+      throw "test message"
 
-          eval ^^.exc_fired = true
-          assert "expected on_exception to have fired"
+      eval ^^.exc_fired = true
+      assert "expected on_exception to have fired"
 
-          eval ^^.err_fired = false
-          assert "expected on_error to NOT have fired for a thrown exception"
+      eval ^^.err_fired = false
+      assert "expected on_error to NOT have fired for a thrown exception"
 
-          eval ^^.exception_data.message = "test message"
-          assert "expected exception_data.message to be populated"
+      eval ^^.exception_data.message = "test message"
+      assert "expected exception_data.message to be populated"
 
-      confirm_execution_continues_after_throw [test] :
-        description [string] : Confirm execution continues with the next line after a throw.
-        on_test [script] :
-          throw "boom"
-          eval 2 + 2
-          eval it = 4
-          assert "expected execution to continue after throw"
+  confirm_execution_continues_after_throw [test] :
+    description [string] : Confirm execution continues with the next line after a throw.
+    on_test [script] :
+      throw "boom"
+      eval 2 + 2
+      eval it = 4
+      assert "expected execution to continue after throw"
 
-      confirm_on_error_still_works [test] :
-        description [string] : Confirm on_error still fires for a genuine gloo-level error, independent of on_exception.
-        on_test [script] :
-          put false into ^^.exc_fired
-          put false into ^^.err_fired
+  confirm_on_error_still_works [test] :
+    description [string] : Confirm on_error still fires for a genuine gloo-level error, independent of on_exception.
+    on_test [script] :
+      put false into ^^.exc_fired
+      put false into ^^.err_fired
 
-          tell no_such_object_anywhere to run
+      tell no_such_object_anywhere to run
 
-          eval ^^.err_fired = true
-          assert "expected on_error to have fired for a bad path"
+      eval ^^.err_fired = true
+      assert "expected on_error to have fired for a bad path"
 
-          eval ^^.exc_fired = false
-          assert "expected on_exception to NOT have fired for a gloo-level error"
+      eval ^^.exc_fired = false
+      assert "expected on_exception to NOT have fired for a gloo-level error"

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"