gloo 7.0.3 → 7.1

data/lib/gloo/core/obj.rb

@@ -338,7 +338,7 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return %w[save reload unload blank? contains? responds_to? doc]
+        return %w[save reload unload blank? contains? responds_to? doc source_file source_dir]
       end
 
       #
@@ -492,6 +492,27 @@ module Gloo
         return self.doc
       end
 
+      #
+      # The path of the file this object was loaded from, into 'it';
+      # blank if it didn't come from a file.
+      #
+      def msg_source_file
+        path = @engine.persist_man.source_file_of( self ).to_s
+        @engine.heap.it.set_to path
+        return path
+      end
+
+      #
+      # The folder of the file this object was loaded from, with no
+      # trailing slash, into 'it'; blank if it didn't come from a file.
+      #
+      def msg_source_dir
+        path = @engine.persist_man.source_file_of( self )
+        dir = path ? File.dirname( path ) : ''
+        @engine.heap.it.set_to dir
+        return dir
+      end
+
 
       # ---------------------------------------------------------------------
       #    Render

data/lib/gloo/core/tokens.rb

@@ -176,6 +176,17 @@ module Gloo
         return nil
       end
 
+      #
+      # A copy of these tokens with one more token added at the end,
+      # taken as is (not split on spaces or quotes). The original is
+      # left alone.
+      #
+      def with_token( token )
+        copy = dup
+        copy.append_token token
+        return copy
+      end
+
       #
       # Get the item after a given token.
       #
@@ -186,6 +197,15 @@ module Gloo
         return nil
       end
 
+      protected
+
+      #
+      # Add a token at the end, in a new list (see with_token).
+      #
+      def append_token( token )
+        @tokens += [ token ]
+      end
+
       # ---------------------------------------------------------------------
       #    Private functions
       # ---------------------------------------------------------------------

data/lib/gloo/core/verb.rb

@@ -83,6 +83,26 @@ module Gloo
         return true
       end
 
+      #
+      # For a verb whose arguments are literal text (a file name, a
+      # path, a name): a trailing ( expr ) is worked out and its value
+      # added as the last argument, so the text can be computed, as in
+      # load ( $.gloo_tmp '/x.gloo' ). The parser has already split the
+      # parenthetical off into params. Returns false if the expression
+      # couldn't be worked out (already reported), true otherwise.
+      #
+      def take_evaluated_arg
+        return true unless @params
+
+        errors_before = @engine.heap.error.error_count
+        value = Gloo::Expr::Expression.new( @engine, @params.tokens ).evaluate
+        return false if @engine.heap.error.error_count > errors_before
+
+        @tokens = @tokens.with_token( value.to_s )
+        @params = nil
+        return true
+      end
+
       #
       # Run the verb.
       #

data/lib/gloo/objs/basic/string_msgs.rb

@@ -57,7 +57,7 @@ module Gloo
           'split ({from} {to}) — Get the substring from index {from} up to (not including) index {to}. Indexes are 0-based; out-of-range indexes are clamped to the start or end of the string. Both parameters are required. Does not change the value of the string. It will have the substring.',
           'splitl ({index}) — Get the substring to the left of index {index} (same as split (0, {index})). A parameter is required. Does not change the value of the string. It will have the substring.',
           'splitr ({index}) — Get the substring from index {index} to the end of the string (same as split ({index}, size)). A parameter is required. Does not change the value of the string. It will have the substring.',
-          'split_list ({delim} {dst.path}) — Split the string by {delim} and put the parts into children of the container at {dst.path} (or an alias that points to one), one part per child, in order. Existing children are matched by position and have their values set; extra parts get new (untyped) children, numbered from 1; extra existing children are left alone. Both parameters are required. Does not change the value of the string. It will have the number of parts.',
+          'split_list ({delim} {dst.path}) — Split the string by {delim} and put the parts into children of the container at {dst.path} (or an alias that points to one), one part per child, in order. Existing children are matched by position and have their values set; extra parts get new (untyped) children, numbered from 1; extra existing children are left alone. Both parameters are required. Does not change the value of the string. It will be true (also when the string is empty), or false if a parameter or the target is bad.',
           'word_wrap ({width}) — Word-wrap the string to {width} columns, breaking on whitespace (never mid-word; an overlong word is left on its own line rather than broken). The {width} parameter is optional; it defaults to the terminal\'s current width. This message changes the value of the string. It will have the wrapped string.',
           'page — Show the value in a pager (less), for viewing long content a screen at a time.'
         ]
@@ -239,11 +239,12 @@ module Gloo
       # have their values set; if there are more parts than children,
       # new (untyped) children are created for the extras, numbered
       # from 1. Existing children beyond the part count are left alone.
-      # The string's own value is unchanged; the number of parts is put
-      # into 'it'.
+      # The string's own value is unchanged. 'it' is true once the parts
+      # are in place (also when there's nothing to split), or false if
+      # the parameters or the target are bad.
       #
       def msg_split_list
-        return @engine.heap.it.set_to( 0 ) unless value
+        return @engine.heap.it.set_to( true ) unless value
 
         if @params&.token_count.to_i < 2
           @engine.syntax_err MISSING_PARAM_MSG
@@ -265,9 +266,7 @@ module Gloo
           child.set_value part
         end
 
-        count = parts.count
-        @engine.heap.it.set_to count
-        return count
+        return @engine.heap.it.set_to( true )
       end
 
       #

data/lib/gloo/objs/basic/untyped.rb

@@ -50,7 +50,8 @@ module Gloo
           :description => 'An object with no type. A type declares ' \
             'which messages an object can receive; an untyped object ' \
             'receives only the base object messages (blank?, ' \
-            'contains?, responds_to?, reload, unload) but can hold a ' \
+            'contains?, responds_to?, doc, source_dir, source_file, ' \
+            'reload, unload) but can hold a ' \
             'value of any kind. If no type is specified when an object ' \
             'is created, it is untyped. Prefer untyped when you only ' \
             'need to hold, compare, or show a value and do not need ' \

data/lib/gloo/objs/system/file_handle.rb

@@ -74,7 +74,9 @@ module Gloo
       end
 
       #
-      # Read the contents of the file into the object.
+      # Read the contents of the file. With a destination, the contents
+      # go into it and 'it' is true; with none, the contents go in 'it'.
+      # 'it' is false if the file can't be read.
       #
       def msg_read
         return @engine.heap.it.set_to( false ) unless check_file_exists?
@@ -91,6 +93,7 @@ module Gloo
           end
 
           o.set_value data
+          return @engine.heap.it.set_to( true )
         end
         @engine.heap.it.set_to data
       end
@@ -290,7 +293,7 @@ module Gloo
             'on disk. The string value of the file object is the path ' \
             'and name of the file.',
           :messages => [
-            'read ({into.obj}) — Read the file and put the data in the specified object. If {into.obj} is not specified, the data will be in it. If {into.obj} does not exist, that is an error.',
+            'read ({into.obj}) — Read the file and put the data in the specified object; it will be true. If {into.obj} is not specified, the data will be in it. If {into.obj} does not exist, or the file can\'t be read, that is an error and it will be false.',
             'write ({from.obj}) — Write the data in {from.obj} into the file.',
             'append ({data}) — Append the given data to the file as a new line. Adds a leading newline first if the file doesn\'t already end with one.',
             'delete — Delete the file.',

data/lib/gloo/objs/web/json.rb

@@ -131,26 +131,28 @@ module Gloo
       #
       # Parse the JSON data and put it in objects.
       # The additional parameter is the path to the destination
-      # for the parsed objects.
+      # for the parsed objects. 'it' is true once they're built, or
+      # false if the destination or the JSON is bad.
       #
       def msg_parse
         if @params&.token_count&.positive?
           pn = Gloo::Core::Pn.new( @engine, @params.tokens.first )
           unless pn&.exists?
             @engine.err Gloo::Core::NotFound.object( @params.tokens.first )
-            return
+            return @engine.heap.it.set_to( false )
           end
         else
           @engine.syntax_err 'Destination path for parsed objects is required'
-          return
+          return @engine.heap.it.set_to( false )
         end
         parent = pn.resolve
 
         json = nil
-        return unless attempt( "parse the JSON in #{self.pn}", JSON::ParserError, set_it: false ) do
+        return false unless attempt( "parse the JSON in #{self.pn}", JSON::ParserError ) do
           json = JSON.parse( self.value )
         end
         self.handle_json_to_obj( json, parent )
+        return @engine.heap.it.set_to( true )
       end
 
       # ---------------------------------------------------------------------
@@ -240,7 +242,7 @@ module Gloo
           :messages => [
             'get ({path}) — Get a value from the JSON data. Example: tell myjson to get (\'title\'). The parameter is the path in JSON to the value we want. The value is put into it.',
             'set ({obj.path}) — Convert an object to an approximate JSON value. Example: tell myjson to set (my.object). The parameter is the path to the object used as the source. Note this is an approximate conversion — a gloo object can have both a simple value and be a container for child objects, which JSON can\'t represent the same way.',
-            'parse ({dst.path}) — Parse the JSON data and put values in the object specified by the parameter. Example: tell myjson to parse (path.to.dst).',
+            'parse ({dst.path}) — Parse the JSON data and put values in the object specified by the parameter; it will be true. If the destination is missing or the JSON is bad, that is an error and it will be false. Example: tell myjson to parse (path.to.dst).',
             'pretty — Make the JSON format pretty. The value of the json is changed. It will have the pretty JSON.'
           ],
           :examples => <<~EXAMPLES.strip

data/lib/gloo/persist/file_loader.rb

@@ -48,6 +48,7 @@ module Gloo
         @mech = @engine.platform.get_file_mech( @engine )
         @pn = pn
         @obj = nil
+        @found = false
         @source_doc = Gloo::Persist::Source::SourceDoc.new
         @trivia = Gloo::Persist::TriviaBuffer.new
         @body = Gloo::Persist::ScriptBodyCollector.new
@@ -66,6 +67,14 @@ module Gloo
         return @ledger.roots
       end
 
+      #
+      # Was the file there to read? False before load, or when the
+      # file couldn't be found (already reported as an error).
+      #
+      def found?
+        return @found
+      end
+
       #
       # Load the objects from the file.
       #
@@ -74,6 +83,7 @@ module Gloo
           @engine.err Gloo::Core::NotFound.file( @pn )
           return
         end
+        @found = true
 
         @engine.log.debug "Loading file '#{@pn}'"
         @indent_stack = IndentStack.new( @engine.heap.root, @source_doc )

data/lib/gloo/persist/file_storage.rb

@@ -8,6 +8,8 @@ module Gloo
   module Persist
     class FileStorage
 
+      NO_OBJECTS_WARNING = 'No objects in file; nothing loaded from '.freeze
+
       attr_reader :obj, :pn, :roots, :source_doc
 
       #
@@ -50,6 +52,10 @@ module Gloo
 
       #
       # Load the object from the file.
+      # A file that has no objects (empty, comments only, or only
+      # 'load lib' lines) isn't an error, so it's reported as a
+      # warning. A file that couldn't be found was already reported
+      # by the loader.
       #
       def load
         fl = FileLoader.new( @engine, @pn )
@@ -59,8 +65,8 @@ module Gloo
         @source_doc = fl.source_doc
         if @obj
           @engine.log.debug "Loaded object: #{@obj.name}"
-        else
-          @engine.err "Error loading file at #{@pn}"
+        elsif fl.found?
+          @engine.warn "#{NO_OBJECTS_WARNING}#{@pn}"
         end
       end
 

data/lib/gloo/persist/persist_man.rb

@@ -191,6 +191,25 @@ module Gloo
         return @maps.select { |fs| fs.roots.include?( root ) }
       end
 
+      #
+      # The path of the file an object was loaded from, or nil if it
+      # didn't come from one. Walks up from the object to the first one
+      # a loaded file declares, so an object created at runtime under a
+      # loaded one gets that file. When several files declare it (a
+      # namespace container), the first one loaded wins.
+      #
+      def source_file_of( obj )
+        declared = @maps.map { |fs| [ fs, declared_by( fs ) ] }
+        o = obj
+        while o && !o.root?
+          match = declared.find { |_, owned| owned.key?( o ) }
+          return match.first.pn if match
+
+          o = o.parent
+        end
+        return nil
+      end
+
 
       #
       # Get the full path and name of the file.
@@ -265,6 +284,15 @@ module Gloo
         end
       end
 
+      #
+      # Every heap object fs's SourceDoc declares.
+      #
+      def declared_by( fs )
+        owned = {}.compare_by_identity
+        collect_owned( fs.source_doc&.children, owned )
+        return owned
+      end
+
       #
       # Every heap object declared by some loaded file's SourceDoc
       # other than fs.

data/lib/gloo/verbs/context.rb

@@ -16,6 +16,8 @@ module Gloo
       # Run the verb.
       #
       def run
+        return unless take_evaluated_arg
+
         set_context if @tokens.token_count > 1
         show_context
       end
@@ -74,9 +76,12 @@ module Gloo
             "to that path. Use 'context root' to set the context back to " \
             'the root level. When context has been set, the pathname can ' \
             'start from the context container by use of the @. prefix.',
-          :syntax => [ 'context {path.to.new.context}' ],
+          :syntax => [ 'context {path.to.new.context}', 'context ( {expression} )' ],
           :parameters => [
-            '{path.to.new.context} — Optional. The path to the new context when setting the context.'
+            '{path.to.new.context} — Optional. The path to the new context when setting the context.',
+            '( {expression} ) — Instead of a literal path, an expression ' \
+              'in parentheses: it is worked out and its value is used as ' \
+              'the path to the new context.'
           ],
           :result => 'Context is optionally set. It will be set to the ' \
             'new context path when we are changing context. Context is ' \
@@ -100,6 +105,9 @@ module Gloo
                     @ context.sub
                     show @.msg
                     @ root
+
+            # The path can be worked out:
+            > context ( 'context.' 'sub' )
           EXAMPLES
         }
       end

data/lib/gloo/verbs/exists.rb

@@ -23,6 +23,8 @@ module Gloo
       # Run the verb.
       #
       def run
+        return @engine.heap.it.set_to( false ) unless take_evaluated_arg
+
         if @tokens.token_count == 3
           type = @tokens.second.strip.downcase
           keyword = @tokens.last
@@ -105,7 +107,10 @@ module Gloo
           :description => 'Check to see if a verb or object type has ' \
             'been defined (or loaded), or if an object instance exists ' \
             'in the heap. With no kind, any of the three counts.',
-          :syntax => [ 'exists? |any,object,verb,instance| {keyword}' ],
+          :syntax => [
+            'exists? |any,object,verb,instance| {keyword}',
+            'exists? |any,object,verb,instance| ( {expression} )'
+          ],
           :parameters => [
             "Kind of Keyword — Optional; any is the default. " \
               "any checks for a verb, an object type, or an object instance; " \
@@ -115,7 +120,10 @@ module Gloo
               "instance exists at the pathname represented by keyword. " \
               "`exists? any markdown` is identical to `exists? markdown`.",
             '{keyword} — A verb or object type keyword or keyword shortcut, ' \
-              'or the pathname to an object instance. Must be specified.'
+              'or the pathname to an object instance. Must be specified.',
+            '( {expression} ) — Instead of a literal keyword, an expression ' \
+              'in parentheses: it is worked out and its value is used as ' \
+              'the keyword or pathname.'
           ],
           :result => 'If the verb, object type or instance exists, then ' \
             'true, otherwise false. The result will be in it.',
@@ -142,6 +150,10 @@ module Gloo
 
             \t\texists? instance exists.on_load
             \t\tshow it # true
+
+            \t\t# The keyword can be worked out
+            \t\texists? object ( 'mark' 'down' )
+            \t\tshow it # true
           EXAMPLES
         }
       end

data/lib/gloo/verbs/load.rb

@@ -23,6 +23,8 @@ module Gloo
       # Run the verb.
       #
       def run
+        return unless take_evaluated_arg
+
         if @tokens.token_count == 2
           opt = FILE_OPT
           fn = @tokens.second
@@ -109,13 +111,18 @@ module Gloo
           :syntax => [
             'load {file_name}',
             'load ext {my_ext}',
-            'load lib {lib_name}'
+            'load lib {lib_name}',
+            'load [ext|lib] ( {expression} )'
           ],
           :parameters => [
             '{file_name} — Name of the object file that is to be loaded.',
             'reference type — By default, the type is file. File can be ' \
               'specified, but does not need to be. Use ext to load a ' \
-              'User Extension. Use lib to load a Core Library.'
+              'User Extension. Use lib to load a Core Library.',
+            '( {expression} ) — Instead of a literal name, an expression ' \
+              'in parentheses: it is worked out and its value is used as ' \
+              'the file, extension or library name. Wildcards and the ' \
+              '.gloo extension work as they do for a literal name.'
           ],
           :result => 'Objects are loaded into the heap. on_load scripts ' \
             'are run within the loaded objects.',
@@ -132,6 +139,9 @@ module Gloo
             'they merge in the heap. If two loaded files declare the ' \
             'same object with different values, the first one loaded ' \
             "wins and a warning is logged.\n\n" \
+            'A file with no objects in it (empty, comments only, or ' \
+            "only 'load lib' lines) loads nothing and logs a warning " \
+            "naming the file; it isn't an error.\n\n" \
             'A contiguous run of whole-line comments declared ' \
             'immediately above an object (same indent, no blank line ' \
             "in between) becomes that object's doc, captured as the " \
@@ -145,6 +155,10 @@ module Gloo
             > load my/app/*
             > load ~/.my_app/settings.gloo
 
+            # Load a file whose name is worked out
+            > load ( $.gloo_tmp '/scratch.gloo' )
+            > load ( my.file_obj )
+
             # Load a User Extension
             > load ext my_ext
 

data/lib/gloo/verbs/save.rb

@@ -48,9 +48,11 @@ module Gloo
       # Run 'save {obj} to {path}'.
       #
       def run_save_to
+        return unless take_evaluated_arg
+
         name = @tokens.before_token( TO )[ 1 ]
         path = @tokens.after_token( TO )
-        unless path
+        if path.blank?
           @engine.syntax_err MISSING_PATH_ERR
           return
         end
@@ -84,18 +86,26 @@ module Gloo
           :syntax => [
             'save',
             'save {path.to.object}',
-            'save {path.to.object} to {path}'
+            'save {path.to.object} to {path}',
+            'save {path.to.object} to ( {expression} )'
           ],
           :parameters => [
             '{path.to.object} — Name of the object to save.',
             '{path} — Where to save it, relative to the project root ' \
               '(.gloo appended if omitted). Registers the mapping, so ' \
-              'a later bare save includes it.'
+              'a later bare save includes it.',
+            '( {expression} ) — Instead of a literal path, an expression ' \
+              'in parentheses: it is worked out and its value is used as ' \
+              'the path.'
           ],
           :result => 'The file(s) are updated with the latest object ' \
             'state. This is a rewrite, not a regeneration: comments, ' \
             'blank lines, and the original formatting are preserved, ' \
             'and only values that actually changed are re-written. ' \
+            'A declaration you never touched comes back byte-for-byte. ' \
+            'An object counts as changed only when its value is set or ' \
+            'it is created, moved, or deleted (its doc comment goes with ' \
+            'it); changes to its children do not change it. ' \
             'With a path, the object also stops being declared in its ' \
             'old file (if it had one) -- both files are rewritten ' \
             'together.',
@@ -125,6 +135,7 @@ module Gloo
             > save my_obj
             > save my_obj to sub/my_obj
             > save app.core.settings to config/settings
+            > save my_obj to ( $.gloo_tmp '/my_obj' )
           EXAMPLES
         }
       end

data/test.gloo/ctrl/each.test.gloo

@@ -38,23 +38,37 @@ tests.ctrl.each [can] :
 
 #
 # Each file / each dir over a nested folder tree.
-# The tree is built under /tmp and removed at the end.
+# The tree is built in $.gloo_tmp and removed at the end. It's built
+# and removed with shell commands, so these tests need a Unix shell.
 #
 
 tests.ctrl.each_folder [can] :
 
   count [int] : 0
+  walk_name [string] : /gloo_each_walk
+  walk [string] :
 
   make_tree [system] :
-    command [string] : rm -rf /tmp/gloo_each_walk && mkdir -p /tmp/gloo_each_walk/a/deep /tmp/gloo_each_walk/.obs && touch /tmp/gloo_each_walk/top.md /tmp/gloo_each_walk/notes.txt /tmp/gloo_each_walk/a/x.md /tmp/gloo_each_walk/a/deep/Y.MD /tmp/gloo_each_walk/.obs/o.md
+    command [string] :
     get_output [bool] : false
   remove_tree [system] :
-    command [string] : rm -rf /tmp/gloo_each_walk
+    command [string] :
     get_output [bool] : false
 
+  # The tree lives in the gloo tmp folder ($.gloo_tmp); paths are
+  # quoted in the commands in case that folder has spaces.
+  on_load [script] :
+    put $.gloo_tmp ^.walk_name into ^.walk
+    put "rm -rf '" ^.walk "' && mkdir -p '" ^.walk "/a/deep' '" ^.walk "/.obs' && cd '" ^.walk "' && touch top.md notes.txt a/x.md a/deep/Y.MD .obs/o.md" into ^.make_tree.command
+    put "rm -rf '" ^.walk "'" into ^.remove_tree.command
+    put ^.walk into ^.files.in
+    put ^.walk '/**/' into ^.wild.in
+    put ^.walk into ^.top.in
+    put ^.walk into ^.dirs.in
+
   files [each] :
     file [file] :
-    in [file] : /tmp/gloo_each_walk
+    in [file] :
     ext [string] : md
     recursive [bool] : true
     do [script] :
@@ -63,7 +77,7 @@ tests.ctrl.each_folder [can] :
 
   wild [each] :
     file [file] :
-    in [file] : /tmp/gloo_each_walk/**/
+    in [file] :
     ext [string] : md
     do [script] :
       eval ^^.count + 1
@@ -71,14 +85,14 @@ tests.ctrl.each_folder [can] :
 
   top [each] :
     file [file] :
-    in [file] : /tmp/gloo_each_walk
+    in [file] :
     do [script] :
       eval ^^.count + 1
       put it into ^^.count
 
   dirs [each] :
     dir [file] :
-    in [file] : /tmp/gloo_each_walk
+    in [file] :
     recursive [bool] : true
     do [script] :
       eval ^^.count + 1

data/test.gloo/lang/declaration.test.gloo

@@ -7,7 +7,12 @@ tests.lang.declaration [can] :
   # A fixture deliberately missing the ']' after its type, loaded inside
   # its test so the syntax error it reports belongs to that test.
   # Loading reads the type as 'int' anyway.
-  unclosed_file [file] : /tmp/gloo_declaration_test.gloo
+  unclosed_file [file] :
+
+  # Scratch files live in the gloo tmp folder ($.gloo_tmp).
+  on_load [script] :
+    put $.gloo_tmp '/gloo_declaration_test.gloo' into ^.unclosed_file
+
   unclosed_src [text] : BEGIN
 declaration_fixture [container] :
   unclosed [int : 7
@@ -20,7 +25,7 @@ END
     expect_errors [bool] : true
     on_test [script] :
       tell ^^.unclosed_file to write ( ^^.unclosed_src )
-      load /tmp/gloo_declaration_test.gloo
+      load ( ^^.unclosed_file )
       eval declaration_fixture.unclosed = 7
       assert "expected the value 7"
 

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

@@ -79,6 +79,18 @@ tests.lang.gloo_sys [can] :
       eval it = ''
       refute "expected gloo_log to not be empty"
 
+  get_gloo_tmp [test] :
+    description [string] : $.gloo_tmp is a folder that exists.
+    f [file] :
+    on_test [script] :
+      eval $.gloo_tmp
+      eval it = ''
+      refute "expected gloo_tmp to not be empty"
+
+      put $.gloo_tmp into ^.f
+      check ^.f for is_dir?
+      assert "expected gloo_tmp to be an existing folder"
+
   get_screen_dims [test] :
     description [string] : Get the screen dimensions.
     i [int] :

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

@@ -16,7 +16,12 @@ tests.lang.naming [can] :
 
   # A fixture with a deliberately nameless object, loaded inside its
   # test so the syntax error it reports belongs to that test.
-  nameless_file [file] : /tmp/gloo_naming_test.gloo
+  nameless_file [file] :
+
+  # Scratch files live in the gloo tmp folder ($.gloo_tmp).
+  on_load [script] :
+    put $.gloo_tmp '/gloo_naming_test.gloo' into ^.nameless_file
+
   nameless_src [text] : BEGIN
 naming_fixture [container] :
   [string] : no name given
@@ -54,7 +59,7 @@ END
     expect_errors [bool] : true
     on_test [script] :
       tell ^^.nameless_file to write ( ^^.nameless_src )
-      load /tmp/gloo_naming_test.gloo
+      load ( ^^.nameless_file )
       eval naming_fixture.unnamed_1 = 'no name given'
       assert "expected the nameless object to be reached as unnamed_1"