gloo 6.7.2 → 7.0.1

data/test.gloo/math/mult.test.gloo

@@ -25,11 +25,11 @@ tests.math.mult [can] :
       eval 1.5 * 5.5 = 8.25
       assert 'expected 1.5 * 5.5 = 8.25'
 
-      eval 10.5 * 20.5 = 214.5
-      assert 'expected 10.5 * 20.5 = 214.5'
+      eval 10.5 * 20.5 = 215.25
+      assert 'expected 10.5 * 20.5 = 215.25'
 
-      eval 100.5 * 200.5 = 20100.25
-      assert 'expected 100.5 * 200.5 = 20100.25'
+      eval 100.5 * 200.5 = 20150.25
+      assert 'expected 100.5 * 200.5 = 20150.25'
 
       eval 1.5 * 10.5 = 10
       refute 'expected 1.5 * 10.5 != 10'

data/test.gloo/objs/can.test.gloo

@@ -43,3 +43,107 @@ tests.objs.can [can] :
       eval it = 0
       assert "expected it to be 0"
 
+
+#
+# Child value and path messages.
+#
+
+tests.objs.can_child [can] :
+
+  list [can] :
+    x [string] : ex
+    y [integer] : 7
+    book [can] :
+      title [string] : Walden
+
+  empty [can] :
+  path [string] :
+  ptr [alias] :
+  slot [alias] :
+  idx [integer] : 0
+  n [integer] : 0
+  found [integer] : 0
+  picked [can] :
+
+  # Pick distinct random children: a random index, skipped if already used.
+  pick_distinct [repeat] :
+    times [integer] : 200
+    index [integer] : 0
+    do [script] :
+      tell tests.objs.can_child.idx to randomize ( tests.objs.can_child.n )
+      check tests.objs.can_child.picked for child_exists ( tests.objs.can_child.idx )
+      unless it do tell tests.objs.can_child.mark to run
+
+  mark [script] :
+    put 'tests.objs.can_child.picked.' + tests.objs.can_child.idx into tests.objs.can_child.slot*
+    create tests.objs.can_child.slot* as integer
+    put tests.objs.can_child.found + 1 into tests.objs.can_child.found
+
+  value_at [test] :
+    description [string] : child_value_at gets a simple child's value by 0-based index.
+    on_test [script] :
+      tell ^^.list to child_value_at ( 0 )
+      eval it = 'ex'
+      assert "expected index 0 to be the first child"
+
+      tell ^^.list to child_value_at ( 1 )
+      eval it = 7
+      assert "expected index 1 to be the second child"
+
+  value_at_container_child [test] :
+    description [string] : child_value_at on a container child is an error, and it is false.
+    expect_errors [bool] : true
+    on_test [script] :
+      tell ^^.list to child_value_at ( 2 )
+      eval it = false
+      assert "expected false for a container child"
+
+  path_at_alias [test] :
+    description [string] : child_path_at into an alias reaches a container child's fields.
+    on_test [script] :
+      tell ^^.list to child_path_at ( 2 )
+      put it into ^^.path
+      eval ^^.path = 'tests.objs.can_child.list.book'
+      assert "expected the path from root"
+
+      put ^^.path into ^^.ptr*
+      eval ^^.ptr.title = 'Walden'
+      assert "expected to read the field through the alias"
+
+  out_of_range [test] :
+    description [string] : An out-of-range index is an error, and it is false.
+    expect_errors [bool] : true
+    on_test [script] :
+      tell ^^.list to child_path_at ( 3 )
+      eval it = false
+      assert "expected false for index 3 of 3 children"
+
+  random_path [test] :
+    description [string] : random_child_path gives the path of one of the children.
+    on_test [script] :
+      tell ^^.list to random_child_path
+      put it into ^^.path
+      check ^^.path for starts_with? ( 'tests.objs.can_child.list.' )
+      assert "expected a child's path"
+
+  random_empty [test] :
+    description [string] : random_child_value on an empty container is an error, and it is false.
+    expect_errors [bool] : true
+    on_test [script] :
+      tell ^^.empty to random_child_value
+      eval it = false
+      assert "expected false for an empty container"
+
+  distinct_random_picks [test] :
+    description [string] : A random index plus a picked container gives distinct picks.
+    on_test [script] :
+      tell ^^.list to count
+      put it into ^^.n
+      tell ^^.pick_distinct to run
+
+      tell ^^.picked to count
+      eval it = 3
+      assert "expected every child picked exactly once"
+
+      eval ^^.found = 3
+      assert "expected no index to be picked twice"

data/test.gloo/objs/function.test.gloo

@@ -45,6 +45,7 @@ tests.objs.function [can] :
 
   after_invoke_runs_on_failure [test] :
     description [string] : after_invoke still runs when on_invoke hits an error.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.after_ran
       tell ^^.boom to invoke

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

@@ -52,6 +52,30 @@ tests.objs.string [can] :
       eval ^^.s = 'one two three'
       assert "expected split to leave the string unchanged"
 
+  index_of [test] :
+    description [string] : Find the position of a substring
+    on_test [script] :
+      put 'one two three' into ^^.s
+      tell ^^.s to index_of ('two')
+      eval it = 4
+      assert "expected index_of ('two') to equal 4"
+      tell ^^.s to index_of ('four')
+      eval it = -1
+      assert "expected index_of a missing needle to equal -1"
+      eval ^^.s = 'one two three'
+      assert "expected index_of to leave the string unchanged"
+
+  index_of_from [test] :
+    description [string] : Find a substring at or after a start position
+    on_test [script] :
+      put '![[123.png]] and ]]' into ^^.s
+      tell ^^.s to index_of (']]' 3)
+      eval it = 10
+      assert "expected index_of (']]' 3) to equal 10"
+      tell ^^.s to index_of (']]' 11)
+      eval it = 17
+      assert "expected index_of (']]' 11) to equal 17"
+
   splitl [test] :
     description [string] : Get the substring to the left of an index
     on_test [script] :

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

@@ -131,3 +131,31 @@ tests [can] :
         tell ^^.s to substring? ('lo w')
         assert "expected it to be true that s contains 'lo w'"
 
+
+#
+# format_for_html: each leading space becomes one   (not the
+#   plus the space), and it gets the formatted string.
+#
+
+tests.string_html [can] :
+
+  s [string] :
+
+  leading_spaces_appear_once [test] :
+    description [string] : format_for_html turns leading spaces into   once, and puts the result in it.
+    on_test [script] :
+      put '  b' into ^^.s
+      tell ^^.s to format_for_html
+      eval it = '  b'
+      assert "expected it to have the formatted string"
+
+      eval ^^.s = '  b'
+      assert "expected each leading space once, as  "
+
+  inner_spaces_are_kept [test] :
+    description [string] : Only leading spaces are converted.
+    on_test [script] :
+      put ' a b' into ^^.s
+      tell ^^.s to format_for_html
+      eval ^^.s = ' a b'
+      assert "expected the inner space to stay a space"

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

@@ -4,9 +4,12 @@
 
 tests.verbs.check [can] :
 
-  c [container] :
+  c [container] : has a value
     a [string] : "a"
   t [container] :
+  # Children but no simple value: blank? looks at the value only.
+  kids [container] :
+    a [string] : "a"
 
   check_contains [test] :
     description [string] : Check an object for containment
@@ -31,3 +34,9 @@ tests.verbs.check [can] :
 
       check ^^.c.a for blank?
       refute "expected a to not be blank"
+
+  blank_ignores_children [test] :
+    description [string] : blank? asks about the simple value only; contains? asks about children
+    on_test [script] :
+      check ^^.kids for blank?
+      assert "expected kids to be blank: it has children but no simple value"

data/test.gloo/verbs/create.test.gloo

@@ -10,3 +10,40 @@ tests.verbs.create [can] :
       create cx as string : 'hello'
       eval it = 'hello'
       assert "expected it to equal the created value"
+
+tests.verbs.create_names [can] :
+
+  err_fired [bool] : false
+  list [can] :
+  n [int] : 3
+  before [int] : 0
+  slot [alias] :
+
+  on_error [script] :
+    put true into ^.err_fired
+
+  parenthesised_name_is_an_error [test] :
+    description [string] : create doesn't compute a name; a parenthesised one is reported and nothing is created.
+    expect_errors [bool] : true
+    on_test [script] :
+      tell ^^.list to count
+      put it into ^^.before
+      put false into ^^.err_fired
+      create ( 'tests.verbs.create_names.list.' + ^^.n ) as string
+      eval it = false
+      assert "expected it to be false"
+
+      eval ^^.err_fired = true
+      assert "expected a parenthesised name to be an error"
+
+      tell ^^.list to count
+      eval it = ^^.before
+      assert "expected nothing to be created"
+
+  alias_computes_the_name [test] :
+    description [string] : The way to create at a computed path: point an alias at it, then create the alias.
+    on_test [script] :
+      put 'tests.verbs.create_names.list.' + ^^.n into ^^.slot*
+      create ^^.slot* as string
+      exists? instance tests.verbs.create_names.list.3
+      assert "expected the object to be created at the computed path"

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

@@ -44,4 +44,37 @@ tests.verbs.exists [can] :
       assert "expected instance to exist"
 
       exists? instance tests.verbs.exists.instance2
-      refute "expected instance to not exist"
+      refute "expected instance to not exist"
+  any_finds_an_instance [test] :
+    description [string] : With no kind, exists? finds an object instance too.
+    on_test [script] :
+      exists? tests.verbs.exists.instance
+      assert "expected exists? with no kind to find the instance"
+
+      exists? any tests.verbs.exists.instance
+      assert "expected exists? any to find the instance"
+
+      exists? tests.verbs.exists.instance2
+      refute "expected a missing instance to not exist"
+
+      exists? object tests.verbs.exists.instance
+      refute "expected object to check for a type, not an instance"
+
+tests.verbs.exists_unknown_kind [can] :
+
+  err_fired [bool] : false
+
+  on_error [script] :
+    put true into ^.err_fired
+
+  unknown_kind_is_an_error [test] :
+    description [string] : A misspelled kind is reported, not answered false.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      exists? instanse tests.verbs.exists_unknown_kind
+      eval it = false
+      assert "expected it to be false"
+
+      eval ^^.err_fired = true
+      assert "expected an unknown kind to be an error"

data/test.gloo/verbs/invoke.test.gloo

@@ -70,6 +70,7 @@ tests.verbs.invoke [can] :
 
   inline_invoke_error_test [test] :
     description [string] : Inline invoke( ... ) reports an error for an unresolved target, same as the standalone verb.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.err_fired
       show invoke( tests.verbs.invoke.no_such_function )

data/test.gloo/verbs/list.test.gloo

@@ -25,6 +25,7 @@ tests.verbs.list [can] :
 
   list_missing_target [test] :
     description [string] : listing a missing target fires on_error.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.err_fired
       list tests.verbs.list.no_such_thing

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

@@ -23,6 +23,7 @@ tests.verbs.load [can] :
 
   load_no_args_errors [test] :
     description [string] : load with no arguments fires on_error.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.err_fired
       load
@@ -31,6 +32,7 @@ tests.verbs.load [can] :
 
   load_missing_file_errors [test] :
     description [string] : load of a file that can't be found fires on_error.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.err_fired
       load no_such_file_xyz

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

@@ -41,6 +41,7 @@ END
 
   reload_discards_an_in_memory_edit [test] :
     description [string] : an unsaved change is thrown away by reload.
+    expect_errors [bool] : true
     on_test [script] :
       tell ^^.f to write ( ^^.v1 )
       load /tmp/gloo_reload_test.gloo

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

@@ -163,6 +163,7 @@ END
 
   extracting_a_subtree_spanning_multiple_files_is_an_error [test] :
     description [string] : save {obj} to {path} refuses when obj's own subtree has declarations in more than one file.
+    expect_errors [bool] : true
     on_test [script] :
       put false into ^^.err
       tell ^^.f to write ( ^^.fixture )
@@ -184,6 +185,7 @@ END
 
   reload_discards_unsaved_changes [test] :
     description [string] : reload throws away edits that were not saved.
+    expect_errors [bool] : true
     on_test [script] :
       tell ^^.f to write ( ^^.fixture )
       load /tmp/gloo_save_test.gloo

data/test.gloo/verbs/throw.test.gloo

@@ -22,6 +22,7 @@ tests.verbs.throw [can] :
 
   default_message [test] :
     description [string] : bare throw uses the default message and execution continues.
+    expect_errors [bool] : true
     on_test [script] :
       put '' into tests.verbs.throw.caught
       eval false
@@ -35,6 +36,7 @@ tests.verbs.throw [can] :
 
   custom_message [test] :
     description [string] : throw evaluates its argument as the message.
+    expect_errors [bool] : true
     on_test [script] :
       put '' into tests.verbs.throw.caught
       throw 'boom ' + '42'

data/test.gloo/verbs/unload.test.gloo

@@ -17,3 +17,38 @@ tests.verbs.unload [can] :
       tell tests.verbs.unload.temp to unload
       exists? instance tests.verbs.unload.temp
       refute "temp should be gone after unload"
+
+#
+# The unload verb takes no object: 'unload x' is an error, and nothing
+# is unloaded. (If this ever regressed, it would unload the test run.)
+#
+
+tests.verbs.unload_no_object [can] :
+
+  err_fired [bool] : false
+  temp [string] : still here
+
+  on_error [script] :
+    put true into ^.err_fired
+
+  error_data [can] :
+    message [string] :
+    backtrace [string] :
+    kind [string] :
+    location [string] :
+
+  unload_with_an_object_unloads_nothing [test] :
+    description [string] : 'unload x' reports an error, points to 'tell x to unload', and unloads nothing.
+    expect_errors [bool] : true
+    on_test [script] :
+      put false into ^^.err_fired
+      unload tests.verbs.unload_no_object.temp
+
+      eval ^^.err_fired = true
+      assert "expected unload with an object to be an error"
+
+      eval ^^.error_data.message = "unload takes no object, so nothing was unloaded; to unload one object, use tell x to unload."
+      assert "expected the error to point to tell x to unload"
+
+      exists? instance tests.verbs.unload_no_object.temp
+      assert "expected temp to still be loaded"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gloo
 version: !ruby/object:Gem::Version
-  version: 6.7.2
+  version: 7.0.1
 platform: ruby
 authors:
 - Eric Crane
@@ -318,6 +318,7 @@ files:
 - lib/gloo/core/invoker.rb
 - lib/gloo/core/it.rb
 - lib/gloo/core/literal.rb
+- lib/gloo/core/not_found.rb
 - lib/gloo/core/obj.rb
 - lib/gloo/core/obj_finder.rb
 - lib/gloo/core/op.rb
@@ -446,8 +447,10 @@ files:
 - test.gloo/dt/time.test.gloo
 - test.gloo/lang/continuation.test.gloo
 - test.gloo/lang/convert.test.gloo
+- test.gloo/lang/declaration.test.gloo
 - test.gloo/lang/dt_comparisons.test.gloo
 - test.gloo/lang/exceptions.test.gloo
+- test.gloo/lang/failures.test.gloo
 - test.gloo/lang/gloo_sys.test.gloo
 - test.gloo/lang/here.test.gloo
 - test.gloo/lang/it.test.gloo