gloo 5.1.0 → 5.2.0

data/test.gloo/string/str.test.gloo

@@ -0,0 +1,118 @@
+#
+# String tests
+#
+
+tests [can] :
+  string [can] :
+
+    on_load [script] :
+      log 'Include functionality for all test in on_load' (debug)
+
+    s [string] : 
+
+    put_value [test] :
+      description [string] : Put a value into the string
+      on_test [script] :
+        put 'hello' into ^^.s
+        eval ^^.s = "hello"
+        assert "expected s to be 'hello'"
+
+        put ^^.s and ' world' into ^^.s
+        eval ^^.s = "hello world"
+        assert "expected s to be 'hello world'"
+
+    blank [test] :
+      description [string] : Check to see if the string is blank
+      on_test [script] :
+        put '' into ^^.s
+        check ^^.s for blank?
+        assert "expected s to be blank?"
+
+        put 'abc' into ^^.s
+        check ^^.s for blank?
+        refute "expected s to not be blank?"
+
+    uppercase [test] :
+      description [string] : Uppercase the string
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to up
+        eval ^^.s = "HELLO"
+        assert "expected s to be 'HELLO'"
+
+    lowercase [test] :
+      description [string] : Lowercase the string
+      on_test [script] :
+        put 'HELLO' into ^^.s
+        tell ^^.s to down
+        eval ^^.s = "hello"
+        assert "expected s to be 'hello'"
+
+    length [test] :
+      description [string] : Get the length of the string
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to size
+        eval it = 5 
+        assert "expected length to be 5"
+
+    count_chars [test] :
+      description [string] : Get the number of characters
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to count_chars
+        eval it = 5
+        assert "expected text to have 5 characters"
+
+    count_words [test] :
+      description [string] : Get the number of words
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to count_words
+        eval it = 1
+        assert "expected text to have 1 word"
+
+        put '' into ^^.s
+        tell ^^.s to count_words
+        eval it = 0
+        assert "expected text to have no words"
+
+        put 'hello world!' into ^^.s
+        tell ^^.s to count_words
+        eval it = 2
+        assert "expected text to have 2 words"
+
+    count_lines [test] :
+      description [string] : Get the number of lines 
+      on_test [script] :
+        put '' into ^^.s
+        tell ^^.s to count_lines
+        eval it = 0
+        assert "expected text to have 0 lines"
+
+        put 'hello world!' into ^^.s
+        tell ^^.s to count_lines
+        eval it = 1
+        assert "expected text to have 1 line"
+
+    starts_with [test] :
+      description [string] : Check if the string starts with a value
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to starts_with? ('he')
+        assert "expected it to be true that s starts with 'he'"
+
+    ends_with [test] :
+      description [string] : Check if the string ends with a value
+      on_test [script] :
+        put 'hello' into ^^.s
+        tell ^^.s to ends_with? ('lo')
+        assert "expected it to be true that s ends with 'lo'"
+
+    contains [test] :
+      description [string] : Check if the string ends with a value
+      on_test [script] :
+        put 'hello world' into ^^.s
+        tell ^^.s to substring? ('lo w')
+        assert "expected it to be true that s contains 'lo w'"
+

data/test.gloo/string/str_gen.test.gloo

@@ -0,0 +1,76 @@
+#
+# String generation tests
+#
+
+tests [can] :
+  string [can] :
+
+    on_load [script] :
+      log 'Include functionality for all test in on_load' (debug)
+
+    s [string] : 
+    a [string] : 
+
+    uuid [test] :
+      description [string] : Generate a couple of UUIDs
+      on_test [script] :
+        tell ^^.s to gen_uuid
+        tell ^^.a to gen_uuid
+        eval ^^.a != ^^.s
+        assert "expected a to be different from s"
+
+        tell ^^.a to size
+        eval it = 36
+        assert "expected a to be 36 characters long"
+
+    gen_alpha [test] :
+      description [string] : Generate a couple of alpha strings
+      on_test [script] :
+        tell ^^.s to gen_alphanumeric (10)
+        tell ^^.a to gen_alphanumeric (10)
+        eval ^^.a != ^^.s
+        assert "expected a to be different from s"
+
+        tell ^^.a to size
+        eval it = 10
+        assert "expected a to be 10 characters long"
+
+        tell ^^.a to gen_alphanumeric (7)
+        tell ^^.a to size
+        eval it = 7
+        assert "expected a to be 7 characters long"
+
+    gen_hex [test] :
+      description [string] : Generate a couple of hex strings
+      on_test [script] :
+        tell ^^.s to gen_hex (10)
+        tell ^^.a to gen_hex (10)
+        eval ^^.a != ^^.s
+        assert "expected a to be different from s"
+
+        tell ^^.a to size
+        eval it >= 10
+        assert "expected a to be 10 characters long"
+
+        tell ^^.a to gen_hex (30)
+        tell ^^.a to size
+        eval it >= 30
+        assert "expected a to be 30 characters long"
+
+    gen_base64 [test] :
+      description [string] : Generate a couple of base64 strings
+      on_test [script] :
+        tell ^^.s to gen_base64 (30)
+        tell ^^.a to gen_base64 (30)
+        eval ^^.a != ^^.s
+        assert "expected a to be different from s"
+
+        tell ^^.a to size
+        eval it >= 30
+        assert "expected a to be >= 30 characters long"
+
+        tell ^^.a to gen_base64 (10)
+        tell ^^.a to size
+        eval it >= 10
+        assert "expected a to be >= 10 characters long"
+

data/test.gloo/verbs/break.test.gloo

@@ -0,0 +1,22 @@
+#
+# Break verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    break [can] :
+
+      b [bool] : true
+
+      s [script] :
+        if ^.b  then break
+        
+        # Should not get here
+        put false into ^.b
+
+      break [test] :
+        description [string] : Break out of a script
+        on_test [script] :
+          tell ^^.s to run
+          eval ^^.b
+          assert "expected b to be true"

data/test.gloo/verbs/check.test.gloo

@@ -0,0 +1,35 @@
+#
+# Check verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    check [can] :
+
+      c [container] :
+        a [string] : "a"
+      t [container] :
+
+      check_contains [test] :
+        description [string] : Check an object for containment
+        on_test [script] :
+          check ^^.c for contains?
+          assert "expected c to contain a"
+
+          check ^^.t for contains?
+          refute "expected t to not contain a"
+
+          check ^^.c.a for contains?
+          refute "expected a to not be a container"
+
+      check_blank [test] :
+        description [string] : Check an object for blankness
+        on_test [script] :
+          check ^^.c for blank?
+          refute "expected c to not be blank"
+
+          check ^^.t for blank?
+          assert "expected t to be blank"
+
+          check ^^.c.a for blank?
+          refute "expected a to not be blank"

data/test.gloo/verbs/eval.test.gloo

@@ -0,0 +1,19 @@
+#
+# Eval verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    eval [can] :
+
+      eval_expr [test] :
+        description [string] : Evaluate an expression.
+        on_test [script] :
+          eval 1 + 1 = 2
+          assert "expected 1 + 1 to equal 2"
+
+          eval true
+          assert "expected true to be true"
+
+          eval false
+          refute "expected false to be false"

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

@@ -0,0 +1,49 @@
+#
+# Exists verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    exists [can] :
+
+      verb [test] :
+        description [string] : Check on existance of exists verb
+        on_test [script] :
+          exists? verb exists?
+          assert "expected exists? to exist"
+
+          exists? verb does_not_exist
+          refute "expected does_not_exist to not exist"
+
+      object [test] :
+        description [string] : Check on existance of exists object type
+        on_test [script] :
+          exists? object container
+          assert "expected container to exist"
+
+          exists? object can
+          assert "expected can to exist"
+
+          exists? object does_not_exist
+          refute "expected does_not_exist to not exist"
+
+      any_v_or_o [test] :
+        description [string] : Check on existance of any type
+        on_test [script] :
+          exists? str
+          assert "expected str to exist"
+
+          exists? show
+          assert "expected show to exist"
+
+          exists? does_not_exist
+          refute "expected does_not_exist to not exist"
+
+      instance [test] :
+        description [string] : Check on existance of objects.
+        on_test [script] :
+          exists? instance tests.verbs.exists.instance
+          assert "expected instance to exist"
+
+          exists? instance tests.verbs.exists.instance2
+          refute "expected instance to not exist"

data/test.gloo/verbs/if.test.gloo

@@ -0,0 +1,16 @@
+#
+# If verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    if [can] :
+
+      b [bool] : true
+
+      if_test [test] :
+        description [string] : If true then evaluate
+        on_test [script] :
+          eval false
+          if ^^.b then eval true
+          assert "expected b to be true"

data/test.gloo/verbs/log.test.gloo

@@ -0,0 +1,14 @@
+#
+# Log verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    log [can] :
+
+      write_log [test] :
+        description [string] : Write to the log.
+        on_test [script] :
+          log 'debug' (debug)
+          eval it = 'debug'
+          assert "expected it to be 'debug'"

data/test.gloo/verbs/move.test.gloo

@@ -0,0 +1,20 @@
+#
+# Move verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    move [can] :
+
+      c [container] :
+        a [string] : "a"
+      t [container] :
+
+      move_a [test] :
+        description [string] : Move an object and verify.
+        on_test [script] :
+          move tests.verbs.move.c.a to tests.verbs.move.t
+          exists? instance tests.verbs.move.t.a
+          assert "expected a to be in t"
+          exists? instance tests.verbs.move.c.a
+          refute "expected a not to be in c"

data/test.gloo/verbs/put.test.gloo

@@ -0,0 +1,19 @@
+#
+# Put verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    put [can] :
+
+      s [string] : abc
+
+      put_into [test] :
+        description [string] : Assign a value.
+        on_test [script] :
+          eval ^^.s = 'abc'
+          assert 'initial value is abc'
+
+          put 'xyz' into ^^.s
+          eval it = ^^.s
+          assert "expected it to be 'xyz'"

data/test.gloo/verbs/run.test.gloo

@@ -0,0 +1,16 @@
+#
+# Run verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    run [can] :
+
+      s [script] :
+        eval true
+
+      run [test] :
+        description [string] : Run a script.
+        on_test [script] :
+          run ^^.s
+          assert "expected it to be true"

data/test.gloo/verbs/tell.test.gloo

@@ -0,0 +1,16 @@
+#
+# Tell verb tests
+#
+
+tests [can] :
+  verbs [can] :
+    tell [can] :
+
+      s [string] : abc123d
+
+      tell [test] :
+        description [string] : Tell verb sets value to it
+        on_test [script] :
+          tell ^^.s to count_chars
+          eval it = 7
+          assert "expected it to be 7"

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: gloo
 version: !ruby/object:Gem::Version
-  version: 5.1.0
+  version: 5.2.0
 platform: ruby
 authors:
 - Eric Crane
 autorequire:
 bindir: exe
 cert_chain: []
-date: 2026-02-15 00:00:00.000000000 Z
+date: 2026-03-06 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -348,10 +348,12 @@ files:
 - lib/gloo/objs/basic/script.rb
 - lib/gloo/objs/basic/string.rb
 - lib/gloo/objs/basic/string_generator.rb
+- lib/gloo/objs/basic/string_msgs.rb
 - lib/gloo/objs/basic/text.rb
 - lib/gloo/objs/basic/untyped.rb
 - lib/gloo/objs/ctrl/each.rb
 - lib/gloo/objs/ctrl/each_child.rb
+- lib/gloo/objs/ctrl/each_dir.rb
 - lib/gloo/objs/ctrl/each_file.rb
 - lib/gloo/objs/ctrl/each_line.rb
 - lib/gloo/objs/ctrl/each_word.rb
@@ -366,7 +368,6 @@ files:
 - lib/gloo/objs/str_utils/outline.rb
 - lib/gloo/objs/str_utils/password.rb
 - lib/gloo/objs/system/erb.rb
-- lib/gloo/objs/system/eval.rb
 - lib/gloo/objs/system/file_handle.rb
 - lib/gloo/objs/system/system.rb
 - lib/gloo/objs/web/http_get.rb
@@ -390,6 +391,7 @@ files:
 - lib/gloo/verbs/cls.rb
 - lib/gloo/verbs/context.rb
 - lib/gloo/verbs/create.rb
+- lib/gloo/verbs/eval.rb
 - lib/gloo/verbs/execute.rb
 - lib/gloo/verbs/exists.rb
 - lib/gloo/verbs/files.rb
@@ -413,6 +415,32 @@ files:
 - lib/gloo/verbs/version.rb
 - lib/gloo/verbs/wait.rb
 - lib/run.rb
+- test.gloo/basic.test.gloo
+- test.gloo/lang/gloo_sys.test.gloo
+- test.gloo/lang/ops.test.gloo
+- test.gloo/math/add.test.gloo
+- test.gloo/math/div.test.gloo
+- test.gloo/math/mult.test.gloo
+- test.gloo/math/sub.test.gloo
+- test.gloo/objs/bool.test.gloo
+- test.gloo/objs/can.test.gloo
+- test.gloo/objs/int.test.gloo
+- test.gloo/objs/obj.test.gloo
+- test.gloo/objs/script.test.gloo
+- test.gloo/objs/text.test.gloo
+- test.gloo/objs/untyped.test.gloo
+- test.gloo/string/str.test.gloo
+- test.gloo/string/str_gen.test.gloo
+- test.gloo/verbs/break.test.gloo
+- test.gloo/verbs/check.test.gloo
+- test.gloo/verbs/eval.test.gloo
+- test.gloo/verbs/exists.test.gloo
+- test.gloo/verbs/if.test.gloo
+- test.gloo/verbs/log.test.gloo
+- test.gloo/verbs/move.test.gloo
+- test.gloo/verbs/put.test.gloo
+- test.gloo/verbs/run.test.gloo
+- test.gloo/verbs/tell.test.gloo
 homepage: http://github.com/ecrane/gloo
 licenses:
 - MIT

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

@@ -1,107 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An object that evaluate a ruby statement.
-#
-
-module Gloo
-  module Objs
-    class Eval < Gloo::Core::Obj
-
-      KEYWORD = 'eval'.freeze
-      KEYWORD_SHORT = 'ruby'.freeze
-      CMD = 'command'.freeze
-      DEFAULT_CMD = '1+2'.freeze
-      RESULT = 'result'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Get the URI from the child object.
-      # Returns nil if there is none.
-      #
-      def cmd_value
-        cmd = find_child CMD
-        return nil unless cmd
-
-        return cmd.value
-      end
-
-      #
-      # Set the result of the system call.
-      #
-      def set_result( data )
-        r = find_child RESULT
-        return nil unless r
-
-        r.set_value data
-      end
-
-      # ---------------------------------------------------------------------
-      #    Children
-      # ---------------------------------------------------------------------
-
-      #
-      # Does this object have children to add when an object
-      # is created in interactive mode?
-      # This does not apply during obj load, etc.
-      #
-      def add_children_on_create?
-        return true
-      end
-
-      #
-      # Add children to this object.
-      # This is used by containers to add children needed
-      # for default configurations.
-      #
-      def add_default_children
-        fac = @engine.factory
-        fac.create_string CMD, DEFAULT_CMD, self
-        fac.create_string RESULT, nil, self
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + [ 'run' ]
-      end
-
-      #
-      # Run the command and evaluate the expression.
-      #
-      def msg_run
-        cmd = cmd_value
-        return unless cmd
-
-        begin
-          # rubocop:disable Security/Eval
-          result = eval cmd
-          # rubocop:enable Security/Eval
-          set_result result
-          @engine.heap.it.set_to result
-        rescue => e
-          @engine.log_exception e
-        end
-      end
-
-    end
-  end
-end