fOOrth 0.6.6 → 0.6.11

data/lib/fOOrth/library/stubs_library.rb

@@ -0,0 +1,49 @@
+# coding: utf-8
+
+#* library/stubs_library.rb - Support for method stubs in fOOrth.
+module XfOOrth
+  VirtualMachine.create_shared_method('stub:', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.class.create_shared_method(#{name}, VmSpec, [:stub]); ")
+  })
+
+  VirtualMachine.create_shared_method('.stub:', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.create_shared_stub(#{name}); ")
+  })
+
+  VirtualMachine.create_shared_method('.stub::', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.create_exclusive_stub(#{name}); ")
+  })
+
+  # Stub support methods in the VirtualMachine class.
+  class VirtualMachine
+
+    #Create a shared method stub
+    def create_shared_stub(name)
+      unless (target = pop).is_a?(Class)
+        error "F13: The target of .stub: must be a class"
+      end
+
+      type = XfOOrth.name_to_type(name, self)
+      XfOOrth.validate_type(self, type, name)
+      target.create_shared_method(name, type, [:stub])
+      clear_cast
+    end
+
+    #Create an exclusive method stub
+    def create_exclusive_stub(name)
+      target = pop
+      type = XfOOrth.name_to_type(name, self)
+      XfOOrth.validate_type(self, type, name)
+      target.create_exclusive_method(name, type, [:stub])
+      clear_cast
+    end
+
+  end
+
+end

data/lib/fOOrth/monkey_patch/exceptions.rb

@@ -108,13 +108,9 @@ end
 #Extensions to the RunTimeError to support fOOrth
 class RuntimeError
 
-  #Massage the messages a bit
-  #<br>Endemic Code Smells
-  #* :reek:FeatureEnvy
+  #Massage the messages a bit.
   def message
-    msg = super
-    msg["frozen"] && msg["frozen"] = "protected"
-    msg
+    super.gsub(/frozen/, "protected")
   end
 
 end

data/lib/fOOrth/monkey_patch/object.rb

@@ -38,6 +38,13 @@ class Object
     fail XfOOrth::XfOOrthError, msg, caller
   end
 
+  #A helper macro for method not understood errors.
+  def f20_error(recvr, name, symbol)
+    fail XfOOrth::XfOOrthError,
+         "F20: A #{recvr.foorth_name} does not understand #{name} (#{symbol.inspect}).",
+         caller
+  end
+
   #Argument coercion methods. These are stubs.
 
   #Coerce the argument to match my type. Stub

data/lib/fOOrth/version.rb

@@ -3,5 +3,5 @@
 #* version.rb - The version string for fOOrth.
 module XfOOrth
   #The version string for fOOrth.
-  VERSION = "0.6.6"
+  VERSION = "0.6.11"
 end

data/reek.txt

@@ -1,59 +1 @@
-lib/fOOrth/compiler/context/map_name.rb -- 1 warning:
-  [31]:ControlParameter: XfOOrth::Context#do_map_name is controlled by argument allow_defaults [https://github.com/troessner/reek/blob/master/docs/Control-Parameter.md]
-lib/fOOrth/library/compile_library.rb -- 2 warnings:
-  [230]:ControlParameter: XfOOrth#self.name_to_type is controlled by argument cast_spec [https://github.com/troessner/reek/blob/master/docs/Control-Parameter.md]
-  [191]:TooManyStatements: XfOOrth#self.add_common_compiler_locals has approx 8 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/formatting/bullets.rb -- 10 warnings:
-  [20, 22]:DuplicateMethodCall: XfOOrth::BulletPoints#add calls raw_bullet.in_array 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 68]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls ' ' * @key_length 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [67, 76]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls result << temp 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [63, 69]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls temp.length 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [26, 27]:FeatureEnvy: XfOOrth::BulletPoints#add refers to items more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [20, 22]:FeatureEnvy: XfOOrth::BulletPoints#add refers to raw_bullet more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [18, 23]:FeatureEnvy: XfOOrth::BulletPoints#add refers to raw_item more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [83]:IrresponsibleModule: Array has no descriptive comment [https://github.com/troessner/reek/blob/master/docs/Irresponsible-Module.md]
-  [103]:IrresponsibleModule: Hash has no descriptive comment [https://github.com/troessner/reek/blob/master/docs/Irresponsible-Module.md]
-  [51]:TooManyStatements: XfOOrth::BulletPoints#render_bullet has approx 15 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/formatting/columns.rb -- 2 warnings:
-  [36]:NestedIterators: XfOOrth::ColumnizedPage#render contains iterators nested 2 deep [https://github.com/troessner/reek/blob/master/docs/Nested-Iterators.md]
-  [31]:TooManyStatements: XfOOrth::ColumnizedPage#render has approx 8 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/class.rb -- 15 warnings:
-  [35, 42]:DuplicateMethodCall: Class#foorth_method_info calls !spec.has_tag?(:stub) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls (results << ["", ""]).concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [35, 42]:DuplicateMethodCall: Class#foorth_method_info calls spec.has_tag?(:stub) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 74]:DuplicateMethodCall: Class#get_info calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [61, 73]:DuplicateMethodCall: Class#get_info calls XfOOrth::SymbolMap.map_info(name) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 74]:DuplicateMethodCall: Class#get_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls results.concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls results.concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [35, 36, 42, 43]:FeatureEnvy: Class#foorth_method_info refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [28]:TooManyStatements: Class#foorth_method_info has approx 10 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [54]:TooManyStatements: Class#get_info has approx 14 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/context.rb -- 3 warnings:
-  [14, 28]:DuplicateMethodCall: XfOOrth::Context#get_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [14, 17, 18, 19, 21, 22, 28, 29]:FeatureEnvy: XfOOrth::Context#get_info refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [10]:TooManyStatements: XfOOrth::Context#get_info has approx 11 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/object.rb -- 3 warnings:
-  [53, 57]:FeatureEnvy: Object#foorth_method_info refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [52, 53]:FeatureEnvy: Object#foorth_method_info refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [18]:TooManyStatements: Object#get_info has approx 12 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/string.rb -- 10 warnings:
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls (results << ["", ""]).concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20, 23]:FeatureEnvy: String#foorth_method_scan refers to found more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [17, 20, 23]:FeatureEnvy: String#foorth_method_scan refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [13, 17, 20]:FeatureEnvy: String#foorth_method_scan refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [7]:TooManyStatements: String#foorth_method_scan has approx 12 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [14]:UncommunicativeVariableName: String#foorth_method_scan has the variable name 'a' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-  [14]:UncommunicativeVariableName: String#foorth_method_scan has the variable name 'b' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-lib/fOOrth/library/introspection/vm.rb -- 3 warnings:
-  [10]:TooManyStatements: XfOOrth::VirtualMachine#get_info has approx 22 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [47]:UncommunicativeVariableName: XfOOrth::VirtualMachine#get_info has the variable name 'a' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-  [47]:UncommunicativeVariableName: XfOOrth::VirtualMachine#get_info has the variable name 'b' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-49 total warnings
+0 total warnings

data/sire.rb

@@ -1,7 +1,6 @@
 # coding: utf-8
 # A Simple Interactive Ruby Environment
 
-$no_alias_read_line_module = true
 require 'mini_readline'
 require 'pp'
 

data/tests/compiler/context_tests.rb

@@ -1,177 +1,188 @@
-# coding: utf-8
-
-$exclude_fOOrth_library = true
-require_relative '../../lib/fOOrth'
-gem              'minitest'
-require          'minitest/autorun'
-require          'minitest_visible'
-
-class MockClass
-  def initialize; @data = {}; end
-  def []=(index, value); @data[index] = value; end
-  def map_foorth_shared(index); @data[index]; end
-end
-
-class MockObject
-  def initialize; @data = {}; end
-  def []=(index, value); @data[index] = value; end
-  def map_foorth_exclusive(index); @data[index]; end
-end
-
-#Test the monkey patches applied to the Object class.
-class ContextTester < Minitest::Test
-
-  #Track mini-test progress.
-  include MinitestVisible
-
-  def test_data_store
-    context = XfOOrth::Context.new(45, stuff: 'buy', price: :plenty)
-
-    assert_equal(context.previous, 45)
-    assert_equal(context[:stuff], 'buy')
-    assert_equal(context[:price], :plenty)
-
-    context[:stuff] = 'sell'
-    assert_equal(context[:stuff], 'sell')
-    assert_equal(context[:price], :plenty)
-
-    context[:price] = 9.95
-    assert_equal(context[:stuff], 'sell')
-    assert_equal(context[:price], 9.95)
-  end
-
-  #Test level counting
-  def test_level_tracking
-    context = XfOOrth::Context.new(nil, stuff: 'buy')
-    assert_equal(context.depth, 1)
-
-    context = XfOOrth::Context.new(context, stuff: 'other')
-    assert_equal(context.depth, 2)
-
-    context = XfOOrth::Context.new(context, stuff: 'more')
-    assert_equal(context.depth, 3)
-
-    context = context.previous
-    assert_equal(context.depth, 2)
-
-    context = context.previous
-    assert_equal(context.depth, 1)
-
-    context = context.previous
-    assert_equal(context, nil)
-  end
-
-  def test_the_nesting_of_scopes
-    context = XfOOrth::Context.new(nil, stuff: 'buy')
-    assert_equal(context[:foo], nil)
-    assert_equal(context[:jelly], nil)
-    assert_equal(context[:stuff], 'buy')
-    context[:foo] = 1
-    context[:jelly] = 'donut'
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'buy')
-    assert_equal(context[:foo], 1)
-
-    context = XfOOrth::Context.new(context, stuff: 'other')
-    assert_equal(context[:foo], 1)
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'other')
-    context[:foo] = 2
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'other')
-    assert_equal(context[:foo], 2)
-
-    context = XfOOrth::Context.new(context, stuff: 'more')
-    assert_equal(context[:foo], 2)
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'more')
-    context[:foo] = 3
-    context[:jelly] = 'Berliner'
-    assert_equal(context[:jelly], 'Berliner')
-    assert_equal(context[:stuff], 'more')
-    assert_equal(context[:foo], 3)
-
-    context = context.previous
-    assert_equal(context[:foo], 2)
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'other')
-
-    context = context.previous
-    assert_equal(context[:foo], 1)
-    assert_equal(context[:jelly], 'donut')
-    assert_equal(context[:stuff], 'buy')
-  end
-
-  def test_the_local_mapping_of_symbols
-    context = XfOOrth::Context.new(nil)
-
-    name = 'b'
-    sym = XfOOrth::SymbolMap.add_entry(name)
-    context[sym] = XfOOrth::VmSpec.new(name, sym, [])
-    spec = context.map(name)
-    assert(spec.is_a?(XfOOrth::VmSpec))
-  end
-
-  def test_the_class_mapping_of_symbols
-    mk = MockClass.new
-    context = XfOOrth::Context.new(nil, cls: mk)
-
-    name = '.c'
-    sym = XfOOrth::SymbolMap.add_entry(name)
-    mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
-    spec = context.map(name)
-    assert(spec.is_a?(XfOOrth::TosSpec))
-  end
-
-  def test_the_exclusive_mapping_of_symbols
-    mk = MockObject.new
-    context = XfOOrth::Context.new(nil, obj: mk)
-
-    name = '.d'
-    sym = XfOOrth::SymbolMap.add_entry(name)
-    mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
-    spec = context.map(name)
-    assert(spec.is_a?(XfOOrth::TosSpec))
-  end
-
-  def test_that_it_verifies_sets
-    context = XfOOrth::Context.new(nil, mode: :Execute, ctrl: :colon)
-
-    assert(context.check_set(:mode, [:Execute, :Compile]))
-
-    assert_raises(XfOOrth::XfOOrthError) do
-      context.check_set(:mode, [:Compile, :Deferred])
-    end
-
-    assert(context.check_set(:stuff, [nil]))
-  end
-
-  def test_the_locating_of_the_receiver
-    context = XfOOrth::Context.new(nil, vm: 'vm_sample')
-    assert_equal('vm_sample', context.target)
-
-    context = XfOOrth::Context.new(context, cls: 'cls_sample')
-    assert_equal('cls_sample', context.target)
-
-    context = XfOOrth::Context.new(context, obj: 'obj_sample')
-    assert_equal('obj_sample', context.target)
-
-    context = XfOOrth::Context.new(nil)
-    assert_raises(XfOOrth::XfOOrthError) { context.target }
-  end
-
-  def test_adding_and_removing_local_methods
-    context = XfOOrth::Context.new(nil, vm: 'vm_sample')
-    name = 'lm'
-    sym = XfOOrth::SymbolMap.add_entry(name)
-    spec = context.create_local_method(name, XfOOrth::LocalSpec, [])
-
-    assert_equal(spec, context[sym])
-
-    context.remove_local_method(name)
-
-    assert_equal(nil, context[sym])
-
-  end
-
-end
+# coding: utf-8
+
+$exclude_fOOrth_library = true
+require_relative '../../lib/fOOrth'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+class MockClass
+  def initialize; @data = {}; end
+  def []=(index, value); @data[index] = value; end
+  def map_foorth_shared(index); @data[index]; end
+end
+
+class MockObject
+  def initialize; @data = {}; end
+  def []=(index, value); @data[index] = value; end
+  def map_foorth_exclusive(index); @data[index]; end
+end
+
+#Test the monkey patches applied to the Object class.
+class ContextTester < Minitest::Test
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_data_store
+    context = XfOOrth::Context.new(45, stuff: 'buy', price: :plenty)
+
+    assert_equal(context.previous, 45)
+    assert_equal(context[:stuff], 'buy')
+    assert_equal(context[:price], :plenty)
+
+    context[:stuff] = 'sell'
+    assert_equal(context[:stuff], 'sell')
+    assert_equal(context[:price], :plenty)
+
+    context[:price] = 9.95
+    assert_equal(context[:stuff], 'sell')
+    assert_equal(context[:price], 9.95)
+  end
+
+  #Test level counting
+  def test_level_tracking
+    context = XfOOrth::Context.new(nil, stuff: 'buy')
+    assert_equal(context.depth, 1)
+
+    context = XfOOrth::Context.new(context, stuff: 'other')
+    assert_equal(context.depth, 2)
+
+    context = XfOOrth::Context.new(context, stuff: 'more')
+    assert_equal(context.depth, 3)
+
+    context = context.previous
+    assert_equal(context.depth, 2)
+
+    context = context.previous
+    assert_equal(context.depth, 1)
+
+    context = context.previous
+    assert_nil(context)
+  end
+
+  def test_the_nesting_of_scopes
+    context = XfOOrth::Context.new(nil, stuff: 'buy')
+    assert_nil(context[:foo])
+    assert_nil(context[:jelly])
+    assert_equal(context[:stuff], 'buy')
+    context[:foo] = 1
+    context[:jelly] = 'donut'
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'buy')
+    assert_equal(context[:foo], 1)
+
+    context = XfOOrth::Context.new(context, stuff: 'other')
+    assert_equal(context[:foo], 1)
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'other')
+    context[:foo] = 2
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'other')
+    assert_equal(context[:foo], 2)
+
+    context = XfOOrth::Context.new(context, stuff: 'more')
+    assert_equal(context[:foo], 2)
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'more')
+    context[:foo] = 3
+    context[:jelly] = 'Berliner'
+    assert_equal(context[:jelly], 'Berliner')
+    assert_equal(context[:stuff], 'more')
+    assert_equal(context[:foo], 3)
+
+    context = context.previous
+    assert_equal(context[:foo], 2)
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'other')
+
+    context = context.previous
+    assert_equal(context[:foo], 1)
+    assert_equal(context[:jelly], 'donut')
+    assert_equal(context[:stuff], 'buy')
+  end
+
+  def test_getting_context_with_a_specific_tag
+    c1 = XfOOrth::Context.new(nil, ctrl: :procedure)
+    c2 = XfOOrth::Context.new(c1, ctrl: :if)
+    c3 = XfOOrth::Context.new(c2, ctrl: :loop)
+
+    assert_equal(c1, c3.get_context_by_ctrl(:procedure))
+    assert_equal(c2, c3.get_context_by_ctrl(:if))
+    assert_equal(c3, c3.get_context_by_ctrl(:loop))
+    assert_raises(XfOOrth::XfOOrthError) { c3.get_context_by_ctrl(:wrong) }
+  end
+
+  def test_the_local_mapping_of_symbols
+    context = XfOOrth::Context.new(nil)
+
+    name = 'b'
+    sym = XfOOrth::SymbolMap.add_entry(name)
+    context[sym] = XfOOrth::VmSpec.new(name, sym, [])
+    spec = context.map_with_defaults(name)
+    assert(spec.is_a?(XfOOrth::VmSpec))
+  end
+
+  def test_the_class_mapping_of_symbols
+    mk = MockClass.new
+    context = XfOOrth::Context.new(nil, cls: mk)
+
+    name = '.c'
+    sym = XfOOrth::SymbolMap.add_entry(name)
+    mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
+    spec = context.map_with_defaults(name)
+    assert(spec.is_a?(XfOOrth::TosSpec))
+  end
+
+  def test_the_exclusive_mapping_of_symbols
+    mk = MockObject.new
+    context = XfOOrth::Context.new(nil, obj: mk)
+
+    name = '.d'
+    sym = XfOOrth::SymbolMap.add_entry(name)
+    mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
+    spec = context.map_with_defaults(name)
+    assert(spec.is_a?(XfOOrth::TosSpec))
+  end
+
+  def test_that_it_verifies_sets
+    context = XfOOrth::Context.new(nil, mode: :Execute, ctrl: :colon)
+
+    assert(context.check_set(:mode, [:Execute, :Compile]))
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      context.check_set(:mode, [:Compile, :Deferred])
+    end
+
+    assert(context.check_set(:stuff, [nil]))
+  end
+
+  def test_the_locating_of_the_receiver
+    context = XfOOrth::Context.new(nil, vm: 'vm_sample')
+    assert_equal('vm_sample', context.target)
+
+    context = XfOOrth::Context.new(context, cls: 'cls_sample')
+    assert_equal('cls_sample', context.target)
+
+    context = XfOOrth::Context.new(context, obj: 'obj_sample')
+    assert_equal('obj_sample', context.target)
+
+    context = XfOOrth::Context.new(nil)
+    assert_raises(XfOOrth::XfOOrthError) { context.target }
+  end
+
+  def test_adding_and_removing_local_methods
+    context = XfOOrth::Context.new(nil, vm: 'vm_sample')
+    name = 'lm'
+    sym = XfOOrth::SymbolMap.add_entry(name)
+    spec = context.create_local_method(name, XfOOrth::LocalSpec, [])
+
+    assert_equal(spec, context[sym])
+
+    context.remove_local_method(name)
+
+    assert_nil(context[sym])
+
+  end
+
+end