bunraku 3.0.0

data/spec/def_context_spec.rb

@@ -0,0 +1,34 @@
+
+require "bunraku"
+
+describe "Bunraku Context Def" do
+  it "should have no roles" do
+    Module.new {
+      context :MyContext do
+      end
+      c = const_get(:MyContext).new
+    }
+  end
+  
+  it "should have a role" do
+    Module.new {
+      context :MyContext do 
+        role :MyRole1 do
+        end
+      end
+      c = const_get(:MyContext).new
+    }
+  end
+  
+  it "should have roles" do
+    Module.new {
+      context :MyContext do 
+        role :MyRole1 do
+        end
+        role :MyRole2 do
+        end
+      end
+      c = const_get(:MyContext).new
+    }
+  end
+end

data/spec/interaction_spec.rb

@@ -0,0 +1,127 @@
+
+module InteractionSpec
+  class Equality
+    as_context
+    
+    def initialize
+      @busy = false
+    end
+    attr_accessor :busy
+    
+    class ActorA
+      as_role
+      def fire
+        core.fire()
+        unless context.busy
+          context.busy = true
+          context.ActorBs.fire
+          context.busy = false
+        end
+      end
+      override :fire
+    end
+    class ActorB
+      as_role
+      def fire
+        core.fire()
+        unless context.busy
+          context.busy = true
+          context.ActorAs.fire
+          context.busy = false
+        end
+      end
+      override :fire
+    end
+  end
+  
+  class Trigger
+    as_context
+    class ActorA
+      as_role
+      def fire
+        core.fire()
+        context.ActorBs.fire
+      end
+      override :fire
+    end
+    class ActorB
+      as_role
+    end
+  end
+  
+  class Core
+    def initialize
+      @fired = false
+    end
+    def fire
+      @fired = true
+    end
+    def fired?
+      @fired
+    end
+  end
+end
+
+describe "Single Equality" do
+  before do
+    # core1 <-> core2
+    @equality = InteractionSpec::Equality.new
+    @core1 = InteractionSpec::Core.new
+    @core2 = InteractionSpec::Core.new
+    @equality.ActorA.bind(@core1)
+    @equality.ActorB.bind(@core2)
+  end
+
+  it "should be fired when ActorA fired" do
+    @core1.fire
+    @core1.should be_fired
+    @core2.should be_fired
+  end
+end
+
+describe "Cycle Equality" do
+  before do
+    # core1 <-> core2 <-> core3 <-> core1
+    @equality1 = InteractionSpec::Equality.new
+    @equality2 = InteractionSpec::Equality.new
+    @equality3 = InteractionSpec::Equality.new
+    @core1 = InteractionSpec::Core.new
+    @core2 = InteractionSpec::Core.new
+    @core3 = InteractionSpec::Core.new
+    @equality1.ActorA.bind(@core1)
+    @equality1.ActorB.bind(@core2)
+    @equality2.ActorA.bind(@core2)
+    @equality2.ActorB.bind(@core3)
+    @equality2.ActorA.bind(@core3)
+    @equality2.ActorB.bind(@core1)
+  end
+
+  it "should be fired when ActorA fired" do
+    @core1.fire
+    @core1.should be_fired
+    @core2.should be_fired
+    @core3.should be_fired
+  end
+end
+
+describe "Part Equality" do
+  before do
+    # core1 <-> core2 <-> core3 
+    @equality1 = InteractionSpec::Equality.new
+    @equality2 = InteractionSpec::Equality.new
+    @core1 = InteractionSpec::Core.new
+    @core2 = InteractionSpec::Core.new
+    @core3 = InteractionSpec::Core.new
+    @equality1.ActorA.bind(@core1)
+    @equality1.ActorB.bind(@core2)
+    @equality2.ActorA.bind(@core2)
+    @equality2.ActorB.bind(@core3)
+  end
+
+  it "should be fired when ActorA fired" do
+    @core1.fire
+    @core1.should be_fired
+    @core2.should be_fired
+    # @core3.should be_fired
+  end
+end

data/spec/require_spec.rb

@@ -0,0 +1,44 @@
+require "bunraku"
+
+describe "Roles with requires" do
+  setup do
+    module RequiresSpec
+      class MyContext
+        as_context
+        class MyRole1
+          as_role
+          requires do |req|
+            req.method? "m1"
+          end
+        end
+        class MyRole2
+          as_role
+          def m2()
+            context.MyRole1.m1
+          end
+        end
+      end
+    end
+  end
+  
+  it "should bind object when requirement passed" do
+    c = RequiresSpec::MyContext.new
+    o1 = Object.new
+    o2 = Object.new
+    def o1.m1()
+      "m1"
+    end
+    
+    c.MyRole1.bind(o1)
+    c.MyRole2.bind(o2)
+    o2.m2().should == "m1"
+  end
+  
+  it "should not bind object when requirement not passed " do
+    c = RequiresSpec::MyContext.new
+    o1 = Object.new
+    proc {
+      c.MyRole1.bind(o1)
+    }.should raise_error(Bunraku::BindRoleError)
+  end
+end

data/spec/role2_spec.rb

@@ -0,0 +1,116 @@
+require "bunraku"
+
+module Roles2Spec
+  class Human
+    def initialize name
+      @name = name
+    end
+    attr :name
+  end
+  
+  context :City do
+    role :Civilian do
+      def declare()
+        name + " dime"
+      end
+    end
+    
+    role :Gatherer do
+      def gather
+        context.Civilian.declare
+      end
+      def gather_all
+        context.Civilians.declare
+      end
+    end
+  end
+end
+
+
+describe "Civilian2", :shared => true do
+  it "should declare tax" do
+    @first_civilian.declare.should == "A dime"
+  end  
+end
+
+describe "Gatherer2", :shared => true do
+  it "should gather tax from the first civilian" do
+    @gatherer.gather.should == "A dime"
+  end
+  
+  it "should gather tax from all civilians" do
+    @gatherer.gather_all.should == @all_taxes
+  end
+end
+
+
+describe "City2 that has a Civilian" do
+  before do
+    @city = Roles2Spec::City.new
+    @first_civilian = Roles2Spec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    
+    @all_taxes = ["A dime"]
+  end
+  
+  it_should_behave_like "Civilian2"
+end
+
+describe "City2, that has a Civilian and a Gatherer," do
+  before do
+    @city = Roles2Spec::City.new
+    @first_civilian = Roles2Spec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @gatherer = Roles2Spec::Human.new "G"
+    @city.Gatherer.bind(@gatherer)
+
+    @all_taxes = ["A dime"]
+  end
+
+  it_should_behave_like "Civilian2"
+  it_should_behave_like "Gatherer2"
+end
+
+describe "City2, that has Civilians and a Gatherer," do
+  before do
+    @city = Roles2Spec::City.new
+    @first_civilian = Roles2Spec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @second_civilian = Roles2Spec::Human.new "B"
+    @city.Civilian.bind(@second_civilian)
+    @third_civilian = Roles2Spec::Human.new "C"
+    @city.Civilian.bind(@third_civilian)
+    @gatherer = Roles2Spec::Human.new "G"
+    @city.Gatherer.bind(@gatherer)
+
+    @all_taxes = ["A dime", "B dime", "C dime"]
+  end
+
+  it_should_behave_like "Civilian2"
+  it_should_behave_like "Gatherer2"
+end
+
+
+
+describe "City2, that has Civilians and a Gatherer who is also Civilian," do
+  before do
+    @city = Roles2Spec::City.new
+    @first_civilian = Roles2Spec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @second_civilian = Roles2Spec::Human.new "B"
+    @city.Civilian.bind(@second_civilian)
+    @third_civilian = Roles2Spec::Human.new "C"
+    @city.Civilian.bind(@third_civilian)
+    @gatherer = Roles2Spec::Human.new "G"
+    @city.Civilian.bind(@gatherer)
+    @city.Gatherer.bind(@gatherer)
+    
+    @all_taxes = ["A dime", "B dime", "C dime", "G dime"]
+  end
+
+  it_should_behave_like "Civilian2"
+  it_should_behave_like "Gatherer2"
+end
+
+
+

data/spec/role_spec.rb

@@ -0,0 +1,120 @@
+require "bunraku"
+
+module RolesSpec
+  class Human
+    def initialize name
+      @name = name
+    end
+    attr :name
+  end
+  
+  class City
+    as_context
+    
+    class Civilian
+      as_role
+      def declare()
+        name + " dime"
+      end
+    end
+    
+    class Gatherer
+      as_role
+      def gather
+        context.Civilian.declare
+      end
+      def gather_all
+        context.Civilians.declare
+      end
+    end
+  end
+end
+
+
+describe "Civilian", :shared => true do
+  it "should declare tax" do
+    @first_civilian.declare.should == "A dime"
+  end  
+end
+
+describe "Gatherer", :shared => true do
+  it "should gather tax from the first civilian" do
+    @gatherer.gather.should == "A dime"
+  end
+  
+  it "should gather tax from all civilians" do
+    @gatherer.gather_all.should == @all_taxes
+  end
+end
+
+
+describe "City that has a Civilian" do
+  before do
+    @city = RolesSpec::City.new
+    @first_civilian = RolesSpec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    
+    @all_taxes = ["A dime"]
+  end
+  
+  it_should_behave_like "Civilian"
+end
+
+describe "City, that has a Civilian and a Gatherer," do
+  before do
+    @city = RolesSpec::City.new
+    @first_civilian = RolesSpec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @gatherer = RolesSpec::Human.new "G"
+    @city.Gatherer.bind(@gatherer)
+
+    @all_taxes = ["A dime"]
+  end
+
+  it_should_behave_like "Civilian"
+  it_should_behave_like "Gatherer"
+end
+
+describe "City, that has Civilians and a Gatherer," do
+  before do
+    @city = RolesSpec::City.new
+    @first_civilian = RolesSpec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @second_civilian = RolesSpec::Human.new "B"
+    @city.Civilian.bind(@second_civilian)
+    @third_civilian = RolesSpec::Human.new "C"
+    @city.Civilian.bind(@third_civilian)
+    @gatherer = RolesSpec::Human.new "G"
+    @city.Gatherer.bind(@gatherer)
+
+    @all_taxes = ["A dime", "B dime", "C dime"]
+  end
+
+  it_should_behave_like "Civilian"
+  it_should_behave_like "Gatherer"
+end
+
+
+
+describe "City, that has Civilians and a Gatherer who is also Civilian," do
+  before do
+    @city = RolesSpec::City.new
+    @first_civilian = RolesSpec::Human.new "A"
+    @city.Civilian.bind(@first_civilian)
+    @second_civilian = RolesSpec::Human.new "B"
+    @city.Civilian.bind(@second_civilian)
+    @third_civilian = RolesSpec::Human.new "C"
+    @city.Civilian.bind(@third_civilian)
+    @gatherer = RolesSpec::Human.new "G"
+    @city.Civilian.bind(@gatherer)
+    @city.Gatherer.bind(@gatherer)
+    
+    @all_taxes = ["A dime", "B dime", "C dime", "G dime"]
+  end
+
+  it_should_behave_like "Civilian"
+  it_should_behave_like "Gatherer"
+end
+
+
+

data/test/test_bunraku.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestBunraku < Test::Unit::TestCase
+
+  def setup
+  end
+  
+  def test_truth
+    assert true
+  end
+end