gloo 7.0.4 → 7.1

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

@@ -15,6 +15,11 @@ tests.objs.obj [can] :
 
   no_doc [string] : "value"
 
+  # For source_dir / source_file.
+  this_file [string] : /obj.test.gloo
+  fixture_path [string] : /fixtures/source_dir_fixture.gloo
+  where [string] :
+
   obj_contains [test] :
     description [string] : Check to see if an object contains children
     on_test [script] :
@@ -70,3 +75,31 @@ tests.objs.obj [can] :
       check tests.objs.obj.no_doc for doc
       eval it = ""
       assert "expected doc to be blank for an object with no leading comment"
+
+  source_file_is_this_test_file [test] :
+    description [string] : source_file answers with the file the object was declared in.
+    on_test [script] :
+      check ^^ for source_file
+      put it into ^^.where
+      check ^^.where for ends_with? ( ^^.this_file )
+      assert "expected source_file to be this test file"
+
+  load_a_fixture_next_to_this_file [test] :
+    description [string] : source_dir finds this file's folder, so a fixture beside it can be loaded.
+    on_test [script] :
+      check ^^ for source_dir
+      put it into ^^.where
+      load ( ^^.where ^^.fixture_path )
+      eval source_dir_fixture.msg = 'found next door'
+      assert "expected the fixture next to this file to load"
+      tell source_dir_fixture to unload
+
+  source_dir_of_a_runtime_object_is_blank [test] :
+    description [string] : an object not loaded from a file has a blank source_dir.
+    on_test [script] :
+      create source_dir_runtime_obj as string : made at runtime
+      check source_dir_runtime_obj for source_dir
+      put it into ^^.where
+      check ^^.where for blank?
+      assert "expected a blank source_dir for a runtime object"
+      tell source_dir_runtime_obj to unload

data/test.gloo/objs/string.test.gloo

@@ -125,8 +125,8 @@ tests.objs.string [can] :
     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 it = true
+      assert "expected split_list to put true in it"
       eval ^^.dst.1 = 'one'
       assert "expected dst.1 to equal 'one'"
       eval ^^.dst.2 = 'two'

data/test.gloo/verbs/context.test.gloo

@@ -4,6 +4,8 @@
 
 tests.verbs.context [can] :
 
+  target [string] : tests.verbs.context
+
   set_context [test] :
     description [string] : context {path} sets the context and puts the path in it.
     on_test [script] :
@@ -15,3 +17,13 @@ tests.verbs.context [can] :
       context root
       eval it = 'root'
       assert "expected context to be restored to root"
+
+  set_context_to_a_computed_path [test] :
+    description [string] : context ( expr ) sets the context to the path the expression works out to.
+    on_test [script] :
+      context ( ^^.target )
+      eval it = 'tests.verbs.context'
+      assert "expected it to be the computed context path"
+
+      # restore, so later tests run at root
+      context root

data/test.gloo/verbs/exists.test.gloo

@@ -4,6 +4,9 @@
 
 tests.verbs.exists [can] :
 
+  type_start [string] : cont
+  verb_name [string] : show
+
   verb [test] :
     description [string] : Check on existance of exists verb
     on_test [script] :
@@ -60,6 +63,22 @@ tests.verbs.exists [can] :
       exists? object tests.verbs.exists.instance
       refute "expected object to check for a type, not an instance"
 
+  computed_name [test] :
+    description [string] : exists? ( expr ) checks the name the expression works out to.
+    on_test [script] :
+      exists? ( ^^.verb_name )
+      assert "expected show to exist"
+
+      exists? verb ( ^^.verb_name )
+      assert "expected show to exist as a verb"
+
+      exists? object ( ^^.type_start 'ainer' )
+      assert "expected container to exist as an object type"
+
+      exists? object ( ^^.type_start 'raption' )
+      refute "expected contraption to not exist"
+
+
 tests.verbs.exists_unknown_kind [can] :
 
   err_fired [bool] : false

data/test.gloo/verbs/load.test.gloo

@@ -1,12 +1,37 @@
 #
 # Load verb tests
 #
-# Uses 'load lib' because it is self-contained (no fixture files) and
-# its effect is observable through 'exists?'.
+# Mostly uses 'load lib' because it is self-contained (no fixture files) and
+# its effect is observable through 'exists?'. The no-objects and
+# computed-path tests write scratch files to $.gloo_tmp.
 #
 
 tests.verbs.load [can] :
 
+  f [file] :
+
+  # Scratch files live in the gloo tmp folder ($.gloo_tmp).
+  on_load [script] :
+    put $.gloo_tmp '/gloo_load_no_objects_test.gloo' into ^.f
+
+  comments_only [text] : BEGIN
+# This file has comments,
+
+# but no objects.
+END
+  load_lib_only [text] : BEGIN
+load lib md
+# and nothing else
+END
+
+  computed_name [string] : /gloo_load_computed_test.gloo
+  lib_name [string] : md
+  computed_f [file] :
+  computed_fixture [text] : BEGIN
+computed_demo [can] :
+  s [string] : hi
+END
+
   err_fired [bool] : false
   on_error [script] :
     put true into ^.err_fired
@@ -39,3 +64,77 @@ tests.verbs.load [can] :
       load no_such_file_xyz
       eval ^^.err_fired = true
       assert "expected 'load' of a missing file to fire on_error"
+
+  load_comments_only_file_does_not_error [test] :
+    description [string] : a file with only comments loads with a warning, not an error.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      tell ^^.f to write ( ^^.comments_only )
+      load ( ^^.f )
+      tell ^^.f to delete
+      eval ^^.err_fired = false
+      assert "expected a comments-only file not to fire on_error"
+
+  load_empty_file_does_not_error [test] :
+    description [string] : an empty file loads with a warning, not an error.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      tell ^^.f to write ( '' )
+      load ( ^^.f )
+      tell ^^.f to delete
+      eval ^^.err_fired = false
+      assert "expected an empty file not to fire on_error"
+
+  load_lib_only_file_does_not_error [test] :
+    description [string] : a file with only a load lib line loads with a warning, not an error.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      tell ^^.f to write ( ^^.load_lib_only )
+      load ( ^^.f )
+      tell ^^.f to delete
+      eval ^^.err_fired = false
+      assert "expected a file with only 'load lib' not to fire on_error"
+
+  load_a_computed_path [test] :
+    description [string] : load ( expr ) loads the file the expression works out to.
+    on_test [script] :
+      put $.gloo_tmp ^^.computed_name into ^^.computed_f
+      tell ^^.computed_f to write ( ^^.computed_fixture )
+      load ( $.gloo_tmp ^^.computed_name )
+      eval computed_demo.s = 'hi'
+      assert "expected load ( expr ) to load the computed path"
+      tell computed_demo to unload
+      tell ^^.computed_f to delete
+
+  load_a_path_held_in_a_file_object [test] :
+    description [string] : load ( {file obj} ) loads the path the object holds.
+    on_test [script] :
+      put $.gloo_tmp ^^.computed_name into ^^.computed_f
+      tell ^^.computed_f to write ( ^^.computed_fixture )
+      load ( ^^.computed_f )
+      eval computed_demo.s = 'hi'
+      assert "expected load ( {file obj} ) to load the path it holds"
+      tell computed_demo to unload
+      tell ^^.computed_f to delete
+
+  load_a_computed_path_from_an_unknown_object_errors [test] :
+    description [string] : load ( expr ) with an expression that can't be worked out fires on_error.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      load ( no_such_obj_xyz )
+      eval ^^.err_fired = true
+      assert "expected a bad expression in load ( ... ) to fire on_error"
+
+  load_lib_with_a_computed_name [test] :
+    description [string] : load lib ( expr ) loads the library the expression names.
+    on_test [script] :
+      put false into ^^.err_fired
+      load lib ( ^^.lib_name )
+      eval ^^.err_fired = false
+      assert "expected load lib ( expr ) not to fire on_error"
+      exists? object markdown
+      assert "expected the markdown type to be registered"

data/test.gloo/verbs/reload.test.gloo

@@ -2,13 +2,18 @@
 # Reload message tests -- 'tell {obj} to reload' re-reads the file.
 #
 # The bare 'reload' verb restarts the engine (covered by the unit
-# tests). These exercise per-object reload against a /tmp scratch file
+# tests). These exercise per-object reload against a scratch file in $.gloo_tmp
 # that gets rewritten between load and reload.
 #
 
 tests.verbs.reload [can] :
 
-  f [file] : /tmp/gloo_reload_test.gloo
+  f [file] :
+
+  # Scratch files live in the gloo tmp folder ($.gloo_tmp).
+  on_load [script] :
+    put $.gloo_tmp '/gloo_reload_test.gloo' into ^.f
+
   v1 [text] : BEGIN
 demo [container] :
   msg [string] : original
@@ -24,7 +29,7 @@ END
     description [string] : editing the file on disk then reloading takes effect.
     on_test [script] :
       tell ^^.f to write ( ^^.v1 )
-      load /tmp/gloo_reload_test.gloo
+      load ( ^^.f )
       eval demo.msg = 'original'
       assert "sanity: loaded the first version"
 
@@ -44,7 +49,7 @@ END
     expect_errors [bool] : true
     on_test [script] :
       tell ^^.f to write ( ^^.v1 )
-      load /tmp/gloo_reload_test.gloo
+      load ( ^^.f )
 
       put 'not saved' into demo.msg
       tell demo to reload

data/test.gloo/verbs/save.test.gloo

@@ -1,7 +1,7 @@
 #
 # Save verb tests -- real load -> edit -> save round trips.
 #
-# Each test writes a .gloo fixture to /tmp, loads it, does something,
+# Each test writes a .gloo fixture to $.gloo_tmp, loads it, does something,
 # saves, reads the file back, and asserts on the raw text. Every test
 # unloads its object and deletes its scratch file at the end so the
 # next one starts clean.
@@ -9,9 +9,18 @@
 
 tests.verbs.save [can] :
 
-  f [file] : /tmp/gloo_save_test.gloo
-  g [file] : /tmp/gloo_save_test_2.gloo
-  to_target [file] : /tmp/gloo_save_test_to.gloo
+  f [file] :
+  g [file] :
+  to_target [file] :
+
+  # Scratch files live in the gloo tmp folder ($.gloo_tmp).
+  on_load [script] :
+    put $.gloo_tmp '/gloo_save_test.gloo' into ^.f
+    put $.gloo_tmp '/gloo_save_test_2.gloo' into ^.g
+    put $.gloo_tmp '/gloo_save_test_to.gloo' into ^.to_target
+
+  computed_name [string] : /gloo_save_computed_to
+  computed_target [file] :
   out [string] :
   err [bool] : false
 
@@ -58,7 +67,7 @@ END
     on_test [script] :
       put false into ^^.err
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       put 'changed' into demo.msg
       save demo
       eval ^^.err = false
@@ -79,7 +88,7 @@ END
     description [string] : load then save with no change reproduces the file exactly.
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       save demo
       tell ^^.f to read ( ^^.out )
       eval ^^.out = ^^.fixture
@@ -91,7 +100,7 @@ END
     description [string] : An unchanged save reproduces blank lines before a container's first child too.
     on_test [script] :
       tell ^^.f to write ( ^^.blank_before_first_child_fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       save app
       tell ^^.f to read ( ^^.out )
       eval ^^.out = ^^.blank_before_first_child_fixture
@@ -103,7 +112,7 @@ END
     description [string] : removing a child and saving drops just that declaration.
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       tell demo.other to unload
       save demo
       tell ^^.f to read ( ^^.out )
@@ -118,8 +127,8 @@ END
     description [string] : save {obj} to {path} writes a new file and registers it.
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
-      save demo to /tmp/gloo_save_test_to
+      load ( ^^.f )
+      save demo to ( ^^.to_target )
       check ^^.to_target for exists?
       assert "save ... to should create the target file"
       tell ^^.to_target to read ( ^^.out )
@@ -129,12 +138,28 @@ END
       tell ^^.f to delete
       tell ^^.to_target to delete
 
+  save_to_a_computed_path [test] :
+    description [string] : save {obj} to ( expr ) writes the file the expression works out to.
+    on_test [script] :
+      tell ^^.f to write ( ^^.fixture )
+      load ( ^^.f )
+      save demo to ( $.gloo_tmp ^^.computed_name )
+      put $.gloo_tmp ^^.computed_name '.gloo' into ^^.computed_target
+      check ^^.computed_target for exists?
+      assert "save ... to ( expr ) should create the computed file"
+      tell ^^.computed_target to read ( ^^.out )
+      check ^^.out for substring? ( "msg [string] : hello" )
+      assert "the computed file should hold the object"
+      tell demo to unload
+      tell ^^.f to delete
+      tell ^^.computed_target to delete
+
   extracting_a_subtree_moves_it_to_the_new_file [test] :
     description [string] : save {nested obj} to {path} moves its declaration (and its own comment) out of the old file into the new one.
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
-      save demo.other to /tmp/gloo_save_test_to
+      load ( ^^.f )
+      save demo.other to ( ^^.to_target )
       check ^^.to_target for exists?
       assert "extraction should create the target file"
 
@@ -167,13 +192,13 @@ END
     on_test [script] :
       put false into ^^.err
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       # a second file adds its own child under the same 'demo' container --
       # a namespace pattern applied inside the subtree we'll try to extract
       tell ^^.g to write ( "demo [container] :\n  extra [string] : too\n" )
-      load /tmp/gloo_save_test_2.gloo
+      load ( ^^.g )
 
-      save demo to /tmp/gloo_save_test_to
+      save demo to ( ^^.to_target )
       eval ^^.err = true
       assert "extraction should refuse a subtree spanning multiple files"
       check ^^.to_target for exists?
@@ -188,7 +213,7 @@ END
     expect_errors [bool] : true
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
-      load /tmp/gloo_save_test.gloo
+      load ( ^^.f )
       put 'not saved' into demo.msg
       eval demo.msg = 'not saved'
       assert "sanity: the edit landed"

metadata

@@ -1,14 +1,13 @@
 --- !ruby/object:Gem::Specification
 name: gloo
 version: !ruby/object:Gem::Version
-  version: 7.0.4
+  version: '7.1'
 platform: ruby
 authors:
 - Eric Crane
-autorequire:
 bindir: exe
 cert_chain: []
-date: 2026-10-19 00:00:00.000000000 Z
+date: 1980-01-02 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -275,6 +274,7 @@ files:
 - docs/objects.md
 - docs/operators.md
 - docs/plugins.md
+- docs/testing.md
 - docs/verbs.md
 - docs/web_app.md
 - exe/gloo
@@ -472,6 +472,7 @@ files:
 - test.gloo/objs/decimal.test.gloo
 - test.gloo/objs/erb.test.gloo
 - test.gloo/objs/file.test.gloo
+- test.gloo/objs/fixtures/source_dir_fixture.gloo
 - test.gloo/objs/function.test.gloo
 - test.gloo/objs/int.test.gloo
 - test.gloo/objs/json.test.gloo
@@ -512,7 +513,6 @@ licenses:
 - MIT
 metadata:
   documentation_uri: https://github.com/ecrane/gloo
-post_install_message:
 rdoc_options: []
 require_paths:
 - lib
@@ -527,8 +527,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.5.16
-signing_key:
+rubygems_version: 4.0.17
 specification_version: 4
 summary: Gloo scripting language.  A scripting language built on ruby.
 test_files: []