phenomenal 0.11.11.24.4 → 0.99.0

data/demo_dsl.rb

@@ -1,28 +0,0 @@
-require_relative 'lib/phenomenal.rb'
-class Foo
-  def initialize
-    @inst_var = "bar"
-  end
-  def print
-    "Base: " +@inst_var
-  end
-end
-
-context :Test do 
-  implies :plop
-  
-  adaptations_for Foo
-  adapt :print do 
-    pnml_proceed + "ADAPT"
-  end
-end
-
-f = Foo.new
-puts f.print
-
-pnml_activate_context(:Test)
-puts f.print
-
-pnml_deactivate_context(:Test)
-puts f.print
-

data/phenomenal.gemspec

@@ -1,15 +0,0 @@
-Gem::Specification.new do |s|
-   s.name = "phenomenal"
-   s.summary = "A context oriented programing framework for ruby"
-   s.description = "A context oriented programing framework for ruby"
-   s.version = "0.11.11.24.4"
-   s.authors = "Loic Vigneron - Thibault Poncelet"
-   s.email = "thibault.poncelet@student.uclouvain.be - loic.vigneron@student.uclouvain.be"
-   s.date = "2011-11-24"
-   s.platform = Gem::Platform::RUBY
-   s.required_ruby_version = '>=1.9.2'
-   s.files = Dir['**/**']
-   s.has_rdoc = false
-   s.test_files = Dir['test/*.rb']
-   s.homepage    = "http://www.phenomenal-gem.com"
-end

data/test/test_cop_adaptation.rb

@@ -1,168 +0,0 @@
-require_relative "../lib/phenomenal.rb"
-require_relative "./test_classes.rb"
-require "test/unit"
-
-class TestCopAdaptation < Test::Unit::TestCase
-  def setup
-    phen_define_context(:quiet)
-    phen_define_context(:offHook)
-    phen_add_adaptation(:quiet,Phone,:advertise){|a_call| "vibrator" }
-    phen_add_adaptation(:offHook,Phone,:advertise) do |a_call|
-                                                      "call waiting signal"
-                                                    end
-    phen_define_context(:test)
-    phen_add_adaptation(:test,TestClass,:to_s) do
-      @value + " @access " + value + " attr_accessor_access"
-    end
-
-    phen_define_context(:test_2)
-    phen_add_adaptation(:test_2,TestClass,:klass_var_access) do
-      @@klass_var+1
-    end
-
-    phen_define_context(:test_3)
-    phen_add_adaptation(:test_3,TestClass,:klass_inst_var_access) do
-      @klass_inst_var+1
-    end
-  end
-
-  def teardown
-    while phen_context_active?(:quiet) do
-      phen_deactivate_context(:quiet)
-    end
-    phen_forget_context(:quiet)
-
-    while phen_context_active?(:offHook) do
-      phen_deactivate_context(:offHook)
-    end
-    phen_forget_context(:offHook)
-
-    while phen_context_active?(:test) do
-      phen_deactivate_context(:test)
-    end
-    phen_forget_context(:test)
-
-    while phen_context_active?(:test_2) do
-      phen_deactivate_context(:test_2)
-    end
-    phen_forget_context(:test_2)
-
-    while phen_context_active?(:test_3) do
-      phen_deactivate_context(:test_3)
-    end
-    phen_forget_context(:test_3)
-  end
-
-  def test_overriding_adaptation
-    phone = Phone.new
-    call = Call.new("Bob")
-  	phone.receive(call)
-  	assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-  	phen_activate_context(:quiet)
-  	assert((phone.advertise(call))=="vibrator",
-  	  "Behavior adapted to quiet environments should be expressed")
-  	phen_deactivate_context(:quiet)
-  	assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-	end
-
-  def test_conflicting_adaptation
-    assert_raise(Phenomenal::Error,
-      "A context cannot have two different adaptations for the same method.")do
-        phen_add_adaptation(:quiet,Phone,:advertise) do |a_call|
-                                                        "call waiting signal"
-                                                      end
-      end
-  end
-
-  def test_invalid_adaptation
-    phen_define_context(:temp)
-    assert_raise(Phenomenal::Error,
-      "Adaptation of inexistent methods should be forbidden.") do
-        phen_add_adaptation(:temp,Phone,:phonyAdvertise){|a_call| "vibrator"}
-      phen_activate_context(:temp)
-     end
-    phen_forget_context(:temp)
-  end
-
-  def test_conflicting_activation
-    assert(!phen_context_active?(:quiet))
-    assert_nothing_raised(Phenomenal::Error,
-      "Shoud be OK to activate the quiet context") do 
-        phen_activate_context(:quiet) 
-      end
-    assert(phen_context_active?(:quiet))
-    assert(!phen_context_active?(:offHook))
-    assert_raise(Phenomenal::Error,
-      "Should conflict with currently active quiet context") do
-        phen_activate_context(:offHook)
-      end
-    assert(!phen_context_active?(:offHook),
-      "Should not be mistakenly activated after error")
-  end
-
-  def test_runtime_adding_removing_adaptation
-    phone = Phone.new
-    call = Call.new("Bob")
-  	phone.receive(call)
-    phen_activate_context(:quiet)
-    assert(phen_context_active?(:quiet))
-    assert_nothing_raised("Should be ok to remove an active adaptation") do
-      phen_remove_adaptation(:quiet,Phone,:advertise)
-    end
-    assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-    assert_nothing_raised("Should be ok to add an active adaptation") do
-      phen_add_adaptation(:quiet,Phone,:advertise){|a_call| "vibrator" }
-    end
-    assert((phone.advertise(call))=="vibrator",
-      "Adapted behaviour should be expressed")
-    assert_nothing_raised("Should be ok to deactivate the context") do
-      phen_deactivate_context(:quiet)
-    end
-    assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-  end
-
-  def test_instance_variable_access
-    t = TestClass.new("VAR")
-    assert("VAR"==t.to_s, %(Default to_s should acess var and return
-                            string value))
-    phen_activate_context(:test)
-    assert("VAR @access VAR attr_accessor_access"==t.to_s, %(Adapted to_s should
-             acess both instance var and accessor meth and return string value))
-    phen_deactivate_context(:test)
-    assert("VAR"==t.to_s, %(Default to_s should acess var and return
-    string value))
-  end
-
-  def test_class_variable_access
-    assert(1==TestClass.klass_var_access, %(Default meth should acess var and
-                                            return val))
-    phen_activate_context(:test_2)
-
-    # Doesn't work:  Adaptations doesn't have access to class variables
-    # Seems to be a Ruby bug
-    #TODO
-
-    #assert(2==TestClass.klass_var_access, %(Adapted meth should
-    #         acess klass variable and return its value +1))
-    phen_deactivate_context(:test_2)
-     assert(1==TestClass.klass_var_access, %(Default meth should acess var and
-                                            return val))
-  end
-
-  def test_class_instance_variable_access
-    assert(2==TestClass.klass_inst_var_access, %(Default meth should acess var
-                                            and return val))
-    phen_activate_context(:test_3)
-
-    assert(3==TestClass.klass_inst_var_access, %(Adapted meth should
-             acess klass variable and return its value +1))
-    phen_deactivate_context(:test_3)
-     assert(2==TestClass.klass_inst_var_access, %(Default meth should acess var
-                                                  and return string value))
-  end
-end
-

data/test/test_cop_composition.rb

@@ -1,84 +0,0 @@
-require_relative "../lib/phenomenal.rb"
-require_relative "./test_classes.rb"
-require "test/unit"
-
-class TestCopComposition < Test::Unit::TestCase
-  def setup
-    phen_define_context(:screening)
-    phen_add_adaptation(:screening,Phone,:advertise) do |a_call|
-      phen_proceed(a_call)+" with screening"
-    end
-    phen_define_context(:test)
-  end
-
-  def teardown
-    while phen_context_active?(:test) do
-      phen_deactivate_context(:test)
-    end
-    phen_forget_context(:test)
-
-    while phen_context_active?(:screening) do
-      phen_deactivate_context(:screening)
-    end
-    phen_forget_context(:screening)
-  end
-
-  def test_invalid_proceed
-    assert_raise(Phenomenal::Error, %( 
-      Proceed cannot be used outside adaptation of
-     other methods)) {phen_proceed}
-  end
-
-  def test_simple_composition_noargs
-    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}
-    assert(inst.to_s==prefix,
-      "The base to_s method of String must have its default behaviour")
-    phen_activate_context(:test)
-    assert(inst.to_s==composed,
-      %(The adapted to_s method of String must had '#{suffix}'
-         at the end of the string))
-  end
-
-  def test_simple_composition_args
-    str="Nice String!"
-    inst= TestClass.new(str)
-    phen_add_adaptation(:test,String,:eql?) do | str |
-      if phen_proceed(str)
-        "OK"
-      else
-        "KO"
-      end
-    end
-    assert(inst.eql?(str),
-      "The base eql? method of String must have its default behaviour")
-    phen_activate_context(:test)
-    assert(inst.eql?(str)=="OK",
-      %(The adapted eql? method of String must return 'OK' if the two string
-        are equal))
-    assert(inst.eql?(str+str)=="KO",
-      %(The adapted eql? method of String must return 'KO' if the two string
-        are not equal))
-  end
-
-  def test_nested_activation
-    phone = Phone.new
-    call = Call.new("Alice")
-    phone.receive(call)
-
-    assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-  	 phen_activate_context(:screening)
-  	 assert((phone.advertise(call))=="ringtone with screening",
-  	  %(Screening information should be overlaid over the default ringtone
-  	  advertisement'.))
-  	  phen_deactivate_context(:screening)
-  	 assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed")
-
-  end
-end
-

data/test/test_cop_conflictpolicy.rb

@@ -1,177 +0,0 @@
-require_relative "../lib/phenomenal.rb"
-require_relative "./test_classes.rb"
-require "test/unit"
-
-class TestCopConflictPolicy < Test::Unit::TestCase
-  def setup
-    phen_define_context(:screening)
-    phen_add_adaptation(:screening,Phone,:advertise) do |a_call|
-      phen_proceed(a_call)+" with screening"
-    end
-
-    phen_define_context(:quiet)
-    phen_add_adaptation(:quiet,Phone,:advertise){|a_call| "vibrator" }
-
-  end
-
-  def teardown
-    while phen_context_active?(:screening) do
-      phen_deactivate_context(:screening)
-    end
-    phen_forget_context(:screening)
-
-    while phen_context_active?(:quiet) do
-      phen_deactivate_context(:quiet)
-    end
-    phen_forget_context(:quiet)
-    phen_change_conflict_policy { |a,b| no_resolution_conflict_policy(a,b) }
-  end
-
-  def test_no_resolution_policy
-    assert_nothing_raised(Phenomenal::Error,"The first context have to be
-      activated without any problem"){phen_activate_context(:screening)}
-    assert_raise(Phenomenal::Error,"In the default policy, a second context
-      that adapt the same method and is not the default one cannot
-      be activated"){phen_activate_context(:quiet)}
-  end
-
-  def test_protocol_age_policy
-    assert(phen_context_informations(
-      phen_default_context)[:activation_age].kind_of?(Fixnum),
-      "Contexts should have the age property")
-  end
-
-  def test_activation_age_policy
-    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
-    puts "llll #{phen_default_context.class}"
-    assert(phen_context_active?(phen_default_context), 
-      "Default context should normally be active")
-    assert(!phen_context_active?(:screening), "Context1 should be inactive")
-    assert(!phen_context_active?(:quiet),"Context2 should be inactive")
-
-    phen_activate_context(:screening)
-    assert(phen_context_informations(:screening)[:activation_age] <
-            phen_context_informations(phen_default_context)[:activation_age],
-            "screening context has been activated more recently than default")
-
-    phen_activate_context(:quiet)
-    assert(phen_context_informations(:quiet)[:activation_age] <
-            phen_context_informations(:screening)[:activation_age],
-            "quiet context has been activated more recently than screening")
-    assert(phen_context_informations(:screening)[:activation_age] <
-            phen_context_informations(phen_default_context)[:activation_age],
-            "quiet context has still been activated more recently than default")
-    phen_deactivate_context(:quiet)
-    phen_deactivate_context(:screening)
-    phen_activate_context(:screening)
-    assert(phen_context_informations(:screening)[:activation_age] <
-            phen_context_informations(:quiet)[:activation_age],
-            "screening context has now been activated more recently than quiet")
-  end
-
-  def test_conflicting_activation_age_policy
-    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
-    assert_nothing_raised(Phenomenal::Error,"The first context have to be
-      activated without any problem"){phen_activate_context(:screening)}
-    assert_nothing_raised(Phenomenal::Error,"In the age policy, a second context
-      that adapt the same method and is not the default one should
-      be activated without error"){phen_activate_context(:quiet)}
-  end
-
-  def test_interleaved_activation_age_policy
-    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
-    phone = Phone.new
-    call = Call.new("Alice")
-    phone.receive(call)
-
-    assert((phone.advertise(call))=="ringtone",
-  	  "Default behaviour should be expressed --> ringtone")
-
-    phen_activate_context(:quiet)
-    assert((phone.advertise(call))=="vibrator",
-     "Call advertisement should adapt to quiet context")
-
-    phen_activate_context(:screening)
-    assert((phone.advertise(call))=="vibrator with screening",
-     "Screening information should be overlaid over quiet context behaviour
-      (vibrator)")
-
-    phen_deactivate_context(:quiet)
-    assert((phone.advertise(call))=="ringtone with screening",
-     "Screening information should be overlaid over default context behaviour
-      (ringtone)")
-
-    phen_deactivate_context(:screening)
-     assert((phone.advertise(call))=="ringtone",
-     "Call advertisement should be reverted to the default")
-  end
-
-  def test_nested_activation_age_policy
-    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
-    phone = Phone.new
-    call = Call.new("Alice")
-    phone.receive(call)
-
-    assert((phone.advertise(call))=="ringtone",
-	    "Default behaviour should be expressed --> ringtone")
-
-    phen_activate_context(:quiet)
-    assert((phone.advertise(call))=="vibrator",
-     "Call advertisement should adapt to quiet context")
-
-    phen_activate_context(:screening)
-    assert((phone.advertise(call))=="vibrator with screening",
-     "Screening information should be overlaid over quiet context behaviour
-      (vibrator)")
-
-    phen_deactivate_context(:screening)
-    assert((phone.advertise(call))=="vibrator",
-     "Call advertisement should be reverted to that of quiet context")
-
-    phen_deactivate_context(:quiet)
-     assert((phone.advertise(call))=="ringtone",
-     "Call advertisement should be reverted to the default")
-  end
-
-  def test_4_level_age_policy
-    phen_change_conflict_policy { |a,b| age_conflict_policy(a,b) }
-    phen_define_context(:level1)
-    phen_add_adaptation(:level1,TestClass,:print) do |arg|
-      phen_proceed(arg) + " 1 -> ARG1: #{arg.to_s}"
-    end
-
-    phen_define_context(:level2)
-    phen_add_adaptation(:level2,TestClass,:print) do |arg|
-      phen_proceed(arg) + " 2 -> ARG2: #{arg.to_s}"
-    end
-
-    phen_define_context(:level3)
-    phen_add_adaptation(:level3,TestClass,:print) do |arg|
-      phen_proceed(arg) + " 3 -> ARG3: #{arg.to_s}"
-    end
-
-    phen_define_context(:level4)
-    phen_add_adaptation(:level4,TestClass,:print) do |arg|
-      phen_proceed(arg) + " 4 -> ARG4: #{arg.to_s}"
-    end
-    t = TestClass.new("Foo")
-    assert(t.print("bar")=="0 -> ARG: bar",
-	    "Default behaviour should be expressed")
-    phen_activate_context(:level1)
-    phen_activate_context(:level2)
-    phen_activate_context(:level3)
-    phen_activate_context(:level4)
-    assert(t.print("bar")==
-    "0 -> ARG: bar 1 -> ARG1: bar 2 -> ARG2: bar 3 -> ARG3: bar 4 -> ARG4: bar",
-	    "Composed behaviour should be expressed")
-    phen_deactivate_context(:level1)
-    phen_forget_context(:level1)
-    phen_deactivate_context(:level2)
-    phen_forget_context(:level2)
-    phen_deactivate_context(:level3)
-    phen_forget_context(:level3)
-    phen_deactivate_context(:level4)
-    phen_forget_context(:level4)
-  end
-end
-