phenomenal 0.99.0 → 1.0.0

data/spec/dsl_spec.rb

@@ -1,18 +1,11 @@
 require "spec_helper"
 
 describe Phenomenal::DSL do
-  
-  describe "#phen_define_context" do
-    pending "TODO"
-  end
-  
   describe "#phen_context" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_context
     end
     
-    pending "TODO"
-    
     describe "#context" do
       it "should exist in Kernel" do 
         Kernel.should respond_to :context
@@ -29,8 +22,6 @@ describe Phenomenal::DSL do
       Kernel.should respond_to :phen_feature
     end
     
-    pending "TODO"
-    
     describe "#feature" do
       it "should exist in Kernel" do 
         Kernel.should respond_to :feature
@@ -46,39 +37,29 @@ describe Phenomenal::DSL do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_forget_context
     end
-    
-    pending "TODO"
   end
   describe "#phen_add_adaptation" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_add_adaptation
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_add_class_adaptation" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_add_class_adaptation
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_remove_adaptation" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_remove_adaptation
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_remove_class_adaptation" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_remove_class_adaptation
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_activate_context" do
@@ -86,8 +67,6 @@ describe Phenomenal::DSL do
       Kernel.should respond_to :phen_activate_context
     end
     
-    pending "TODO"
-    
     describe "#activate_context" do
       it "should exist in Kernel" do 
         Kernel.should respond_to :activate_context
@@ -104,8 +83,6 @@ describe Phenomenal::DSL do
       Kernel.should respond_to :phen_deactivate_context
     end
     
-    pending "TODO"
-    
     describe "#deactivate_context" do
       it "should exist in Kernel" do 
         Kernel.should respond_to :deactivate_context
@@ -121,32 +98,24 @@ describe Phenomenal::DSL do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_context_active?
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_context_information" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_context_information
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_default_context" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_default_context
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_defined_contexts" do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_defined_contexts
     end
-    
-    pending "TODO"
   end
   
   describe "#phen_proceed" do
@@ -154,8 +123,6 @@ describe Phenomenal::DSL do
       Kernel.should respond_to :phen_proceed
     end
     
-    pending "TODO"
-    
     describe "#proceed" do
       it "should exist in Kernel" do 
         Kernel.should respond_to :proceed
@@ -171,11 +138,5 @@ describe Phenomenal::DSL do
     it "should exist in Kernel" do 
       Kernel.should respond_to :phen_change_conflict_policy
     end
-    
-    pending "TODO"
-  end
-  
-  describe ".phen_alias" do
-    pending "TODO"
   end
 end

data/spec/integration/adaptation_spec.rb

@@ -0,0 +1,127 @@
+require "spec_helper"
+
+describe "Simple adaptations" do
+  before :each do
+  
+    phen_change_conflict_policy { |a,b| no_resolution_conflict_policy(a,b) }
+    
+    context(:quiet) do
+      adaptations_for Phone
+      adapt :advertise do |a_call|
+        "vibrator"
+      end 
+    end
+    
+    context(:offHook) do
+      adaptations_for Phone
+      adapt :advertise do |a_call|
+        "call waiting signal"
+      end 
+    end
+
+    
+    context(:test) do
+      adaptations_for TestClass
+      adapt :to_s do
+        @value + " @access " + value + " attr_accessor_access"
+      end
+    end
+    
+    context(:test_2) do
+      adaptations_for TestClass
+      adapt_class :klass_var_access do
+        @@klass_var+1
+      end
+    end
+
+    context(:test_3) do
+      adaptations_for TestClass
+      adapt_class :klass_inst_var_access do
+        @klass_inst_var+1
+      end
+    end
+    
+  end
+  
+  after :each do
+    force_forget_context(context(:quiet))
+    force_forget_context(context(:offHook))
+    force_forget_context(context(:test))
+    force_forget_context(context(:test_2))
+    force_forget_context(context(:test_3))
+  end
+  
+  it "should override default behavior" do
+    phone = Phone.new
+    call = Call.new("Bob")
+  	phone.receive(call)
+  	phone.advertise(call).should=="ringtone"
+  	activate_context(:quiet)
+  	phone.advertise(call).should=="vibrator"
+  	deactivate_context(:quiet)
+  	phone.advertise(call).should=="ringtone"
+  end
+  
+  it "should refuse confliction adaptations in the same context" do
+    expect{context(:quiet).add_adaptation(Phone,:advertise,true) do |a_call|
+        "A call test"
+      end}.to raise_error Phenomenal::Error
+  end
+  
+  it "should refuse adaptations for inexistent methods" do
+    expect{phen_add_adaptation(:test,Phone,:phonyAdvertise){|a_call| "vibrator"}}.
+    to raise_error Phenomenal::Error
+  end
+  
+  it "should be possible to add/remove adaptations at runtime" do
+    phone = Phone.new
+    call = Call.new("Bob")
+  	phone.receive(call)
+  	
+  	activate_context(:quiet)
+    phen_context_active?(:quiet).should be_true
+    expect{phen_remove_adaptation(:quiet,Phone,:advertise)}.to_not raise_error
+    
+    phone.advertise(call).should=="ringtone"
+    
+    expect{phen_add_adaptation(:quiet,Phone,:advertise){|a_call| "vibrator" }}.to_not raise_error
+    
+    phone.advertise(call).should=="vibrator"
+    expect{deactivate_context(:quiet)}.to_not raise_error
+    
+    phone.advertise(call).should=="ringtone"
+  end
+  
+  it "should be possible to access instance variables in adaptations" do
+    t = TestClass.new("VAR")
+    t.to_s.should=="VAR"
+    
+    activate_context(:test)
+    
+    t.to_s.should == "VAR @access VAR attr_accessor_access"
+
+    deactivate_context(:test)
+    t.to_s.should=="VAR"
+  end
+  
+  it "sould be possible to access class variables" do
+    TestClass.klass_var_access.should==1
+    activate_context(:test_2)
+    
+    pending "Adaptations doesn't have access to class variables, seems to be a Ruby bug"
+    TestClass.klass_var_access.should==2
+    
+    deactivate_context(:test_2)
+    TestClass.klass_var_access.should==1
+  end
+  
+  it "should be possible to access class instance variables adaptations" do
+    TestClass.klass_inst_var_access.should==2
+    
+    activate_context(:test_3)
+    TestClass.klass_inst_var_access.should==3
+
+    deactivate_context(:test_3)
+    TestClass.klass_inst_var_access.should==2
+  end
+end

data/spec/integration/combined_contexts_spec.rb

@@ -0,0 +1,48 @@
+require "spec_helper"
+
+describe "Combined contexts" do
+  it "should be possible to define combined contexts" do
+    expect{ context :a,:b}.to_not raise_error
+    force_forget_context(:a)
+    force_forget_context(:b)
+  end
+  
+  it "should reopen the same combined context " do
+    context(:a,:b).should==context(:a,:b)
+    force_forget_context(:a)
+    force_forget_context(:b)
+  end
+  
+  it "should use the adaptation of the combined context before the adaptations of the separated contexts" do
+    context :a do
+      adaptations_for TestString2
+      adapt :length do 
+        84
+      end
+    end
+    
+    context :a,:b do
+      adaptations_for TestString2
+      adapt :length do 
+        42
+      end
+    end
+    
+    
+    inst = TestString2.new("1234")
+    inst.length.should==4
+    activate_context :a
+    inst.length.should==84
+    activate_context :b
+    inst.length.should==42
+    activate_context :a
+    inst.length.should==42
+    deactivate_context :a
+    deactivate_context :a
+    inst.length.should==4
+    
+    force_forget_context(:a)
+    force_forget_context(:b)
+  end
+  
+end

data/spec/integration/composition_spec.rb

@@ -0,0 +1,62 @@
+require "spec_helper"
+
+describe "Composition of adaptations" do
+  before :each do
+    
+    context(:screening) do
+      adaptations_for Phone
+      adapt :advertise do |a_call|
+        proceed(a_call)+" with screening"
+      end
+    end
+    
+    context(:test)
+  end
+  
+  after :each do
+    force_forget_context(:screening)
+    force_forget_context(:test)
+  end
+  
+  it "should adapt methods without args" do
+    prefix = "It's a nice "
+    suffix = "simple composition"
+    composed = prefix+suffix
+    inst = TestClass.new(prefix)
+    phen_add_adaptation(:test,String,:to_s) {phen_proceed+suffix}
+    
+    inst.to_s.should == prefix
+    activate_context(:test)
+    inst.to_s.should==composed
+  end
+  
+  it "should adapt methods with args" do
+    str="Nice String!"
+    inst= TestClass.new(str)
+    phen_add_adaptation(:test,String,:eql?) do | str |
+      if phen_proceed(str)
+        "OK"
+      else
+        "KO"
+      end
+    end
+    
+    inst.eql?(str).should be_true
+    activate_context(:test)
+    
+    inst.eql?(str).should=="OK"
+    inst.eql?(str+str).should=="KO"
+  end
+  
+  it "should allow nested compositions" do
+    phone = Phone.new
+    call = Call.new("Alice")
+    phone.receive(call)
+
+    phone.advertise(call).should=="ringtone"
+    activate_context(:screening)
+    phone.advertise(call).should=="ringtone with screening"
+    deactivate_context(:screening)
+    phone.advertise(call).should=="ringtone"
+  end
+end

data/spec/integration/conflict_policy_spec.rb

@@ -0,0 +1,143 @@
+require "spec_helper"
+
+describe "Conflict policies" do
+  
+  before :each do
+    phen_change_conflict_policy { |a,b| no_resolution_conflict_policy(a,b) }
+    context(:screening) do
+      adaptations_for Phone
+      adapt :advertise do |a_call|
+        phen_proceed(a_call)+" with screening"
+      end
+    end
+    
+    context(:quiet) do  
+      adaptations_for Phone
+      adapt :advertise do |a_call| 
+        "vibrator" 
+      end
+    end    
+  end
+  
+  after :each do
+    force_forget_context(:screening)
+    force_forget_context(:quiet)
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+  end
+  
+  it "should not allow two contexts with an adaptation for the same method to be active at the same time" do
+  
+  expect{activate_context(:screening)}.to_not raise_error
+  expect{activate_context(:quiet)}.to raise_error Phenomenal::Error  
+  end
+  
+  it "should set the age of the context such that the most recent one has the smaller age" do
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+    
+    phen_context_active?(phen_default_context).should be_true
+    phen_context_active?(:screening).should be_false
+    phen_context_active?(:quiet).should be_false
+
+    phen_activate_context(:screening)
+    
+    (phen_context_information(:screening)[:age] <
+            phen_context_information(phen_default_context)[:age]).should be_true,
+            "screening context has been activated more recently than default"
+
+    phen_activate_context(:quiet)
+    (phen_context_information(:quiet)[:age] <
+            phen_context_information(:screening)[:age]).should be_true
+            "quiet context has been activated more recently than screening"
+    (phen_context_information(:screening)[:age] <
+            phen_context_information(phen_default_context)[:age]).should be_true,
+            "quiet context has still been activated more recently than default"
+    phen_deactivate_context(:quiet)
+    phen_deactivate_context(:screening)
+    phen_activate_context(:screening)
+    (phen_context_information(:screening)[:age] <
+          phen_context_information(:quiet)[:age]).should be_true,
+            "screening context has now been activated more recently than quiet"
+  end
+  
+  it "should choose the context the most recently activated" do
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+    expect{activate_context(:screening)}.to_not raise_error
+    expect{activate_context(:quiet)}.to_not raise_error
+  end
+  
+  it "should work with interleaved activation of contexts" do
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+    phone = Phone.new
+    call = Call.new("Alice")
+    phone.receive(call)
+
+    phone.advertise(call).should=="ringtone"
+
+    activate_context(:quiet)
+    phone.advertise(call).should=="vibrator"
+
+    activate_context(:screening)
+    phone.advertise(call).should=="vibrator with screening"
+
+    deactivate_context(:quiet)
+    phone.advertise(call).should=="ringtone with screening"
+
+    deactivate_context(:screening)
+    phone.advertise(call).should=="ringtone"
+  end
+  
+  it "should nest calls with the age policy" do
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+    phone = Phone.new
+    call = Call.new("Alice")
+    phone.receive(call)
+
+    phone.advertise(call).should=="ringtone"
+
+    activate_context(:quiet)
+    phone.advertise(call).should=="vibrator"
+
+    activate_context(:screening)
+    phone.advertise(call).should=="vibrator with screening"
+
+    deactivate_context(:screening)
+    phone.advertise(call).should=="vibrator"
+
+    deactivate_context(:quiet)
+    phone.advertise(call).should=="ringtone"
+  end
+  
+  it "should PPPPPPPPPPPPPPPPPPPP" do
+    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
+    context(:level1)
+    phen_add_adaptation(:level1,TestClass,:print) do |arg|
+      phen_proceed(arg) + " 1 -> ARG1: #{arg.to_s}"
+    end
+
+    context(:level2)
+    phen_add_adaptation(:level2,TestClass,:print) do |arg|
+      phen_proceed(arg) + " 2 -> ARG2: #{arg.to_s}"
+    end
+
+    context(:level3)
+    phen_add_adaptation(:level3,TestClass,:print) do |arg|
+      phen_proceed(arg) + " 3 -> ARG3: #{arg.to_s}"
+    end
+
+    context(:level4)
+    phen_add_adaptation(:level4,TestClass,:print) do |arg|
+      phen_proceed(arg) + " 4 -> ARG4: #{arg.to_s}"
+    end
+    t = TestClass.new("Foo")
+    t.print("bar").should=="0 -> ARG: bar"
+    activate_context(:level1)
+    activate_context(:level2)
+    activate_context(:level3)
+    activate_context(:level4)
+    t.print("bar").should=="0 -> ARG: bar 1 -> ARG1: bar 2 -> ARG2: bar 3 -> ARG3: bar 4 -> ARG4: bar"
+    force_forget_context(:level1)
+    force_forget_context(:level2)
+    force_forget_context(:level3)
+    force_forget_context(:level4)
+  end
+end