Test/Context_test.rb in maroon-0.7.0 vs Test/Context_test.rb in maroon-0.7.1

@@ -1,16 +1,19 @@
 require 'test/unit'
 require_relative 'test_helper'
+
 class MaroonInternal
 
 end
+#Context::generate_files_in('.')
 class ContextTest < Test::Unit::TestCase
 
   def test_role_method_call
     name = :MyContextRoleMethodCall
     role_name = :rol
-    Context::define name do
+
+    c=Context::define name do
       role role_name do
         def rolem(x, y)
           x+y
         end
       end
@@ -21,35 +24,56 @@
 
     assert_equal(7, MyContextRoleMethodCall.new.send(:self_rol_rolem, 3, 4))
     assert_equal(7, MyContextRoleMethodCall.new.add(3, 4))
   end
 
-  def test_simple
+  def xtest_simple
     name = :MyContextSimple
     role_name = :r
     Context::define name do
       role role_name do
       end
     end
     assert(Kernel::const_defined? name)
+  end
 
+  def xtest_bind
+    name = :MyContextBind
+
+    c= Context::define name do
+      role :role_name do
+        def sum
+          @sum += role_name
+        end
+      end
+      def inter
+        @sum = 0
+        [1,2].each {|p|
+          bind :p=>:role_name
+          role_name.sum()
+        }
+        @sum
+      end
+    end
+    assert(Kernel::const_defined? name)
+    assert_equal(3, MyContextBind.new.inter)
   end
 
-  def test_role_method
+  def xtest_role_method
     name = :MyContext
     role_name = :rol
-    c = Context::define name do
+    Context::define name do
       role role_name do
         def rolem
           0+1
         end
       end
     end
     assert_equal(1, MyContext.new.send(:self_rol_rolem))
   end
 
-  def test_role_method_args
+  def xtest_role_method_args
     name = :MyContextArgs
     role_name = :rol
     Context::define name do
       role role_name do
         def rolem(x, y)
@@ -58,11 +82,11 @@
       end
     end
     assert_equal(7, MyContextArgs.new.send(:self_rol_rolem, 3, 4))
   end
 
-  def test_role_method_splat
+  def xtest_role_method_splat
     name = :MyContextSplat
     role_name = :rol
     Context::define name do
       role role_name do
         def rolem(x, *args)
@@ -71,27 +95,34 @@
       end
     end
     assert_equal(7, MyContextSplat.new.send(:self_rol_rolem, 3, 4))
   end
 
-  def test_role_method_block
+  def xtest_role_method_block
     name = :MyContextBlock
     role_name = :rol
-    Context::define name do
+    c= Context::define name do
+      role :num do
+        def next
+          num + 3
+        end
+      end
+
       role role_name do
         def rolem(*args, &b)
           res = 0
           args.each { |x|
-            res = b.call res, x
+            bind :x=>:num
+            res = b.call res, num.next
           }
           res
         end
       end
     end
-    assert_equal(7, MyContextBlock.new.send(:self_rol_rolem, 3, 4) { |x, res| res + x })
+    assert_equal(9, MyContextBlock.new.send(:self_rol_rolem, 3, 4) { |x, res| res + x })
   end
 
-  def test_class_method_block
+  def xtest_class_method_block
     name = :MyContextClass
     role_name = :rol
     Context::define name do
       role :dummy do end
       role role_name do