apotomo 0.1.1

data/test/unit/render_test.rb

@@ -0,0 +1,203 @@
+require File.join(File.dirname(__FILE__), *%w[.. test_helper])
+
+class RenderTest < ActionView::TestCase
+  context "Rendering a single widget" do
+    setup do
+      @mum = mouse_mock
+    end
+    
+    should "per default display the state content framed in a div" do
+      assert_equal '<div id="mouse">burp!</div>', @mum.invoke(:eating)
+    end
+    
+    context "with :text" do
+      setup do
+        @mum.instance_eval { def eating; render :text => "burp!!!"; end }
+      end
+      
+      should "render the :text" do
+        assert_equal "burp!!!", @mum.invoke
+      end
+    end
+    
+    
+    context "with :suppress_js" do
+      setup do
+        @mum.instance_eval do
+          def snuggle; render; end
+          self.class.send :attr_reader, :suppress_js
+        end
+      end
+      
+      should "per default be false" do
+        @mum.invoke :snuggle
+        assert !@mum.suppress_js
+      end
+      
+      should "be true when set" do
+        @mum.instance_eval do
+          def snuggle; render :suppress_js => true; end
+        end
+        @mum.invoke :snuggle
+        assert @mum.suppress_js
+      end
+    end
+    
+    should "expose its instance variables in the rendered view" do
+      @mum = mouse_mock('mum', :educate) do
+        def educate
+          @who  = "the cat"
+          @what = "run away"
+          render
+        end
+      end
+      assert_equal 'If you see the cat do run away!', @mum.invoke(:educate)
+    end
+    
+    context "with #emit" do
+      setup do
+        @kid = mouse_mock('kid', :squeak)
+        @kid.instance_eval do
+          def squeak
+            render :text => "squeeeeaaak"
+          end
+          
+          def render(*)
+            @rendered = true
+            super
+          end
+          def rendered?; @rendered; end
+        end
+      end
+      
+      context "and :text" do
+        setup do
+          @mum.instance_eval do
+            def squeak
+              emit :text => "squeak();"
+            end
+          end
+        end
+        
+        should "just return the plain :text" do
+          assert_equal 'squeak();', @mum.invoke(:squeak)
+        end
+        
+        should "not render children" do
+          @mum << @kid
+          @mum.invoke(:squeak)
+          
+          assert_not @kid.rendered?
+        end
+        
+        should "allow rendering children" do
+          @mum.instance_eval do
+            def squeak
+              emit :text => "squeak();", :render_children => true
+            end
+          end
+          @mum << @kid
+          @mum.invoke(:squeak)
+          
+          assert @kid.rendered?
+        end
+      end
+      
+      context "and no options" do
+        setup do
+          @mum.instance_eval do
+            def squeak
+              emit
+            end
+          end
+        end
+        
+        should "render the view" do
+          assert_equal "<div id=\"mouse\">burp!</div>",  @mum.invoke(:eating)
+        end
+        
+        should "render the children, too" do
+          @mum << @kid
+          @mum.invoke(:eating)
+          assert @kid.rendered?
+        end
+      end
+      
+      context "and :view" do
+        setup do
+          @mum.instance_eval do
+            def squeak
+              emit :view => :snuggle
+            end
+          end
+        end
+        
+        should "render the :view" do
+          assert_equal "<div id=\"mouse\"><snuggle></snuggle></div>", @mum.invoke(:squeak)
+        end
+        
+        should "render the children" do
+          @mum << @kid
+          
+          assert_equal "<div id=\"mouse\"><snuggle>squeeeeaaak</snuggle></div>", @mum.invoke(:squeak)
+          assert @kid.rendered?
+        end
+      end
+    end
+    
+    context "with #update" do
+      setup do
+        Apotomo.js_framework = :prototype
+      end
+      
+      should "wrap the :text in an update statement" do
+        @mum.instance_eval do
+          def squeak
+            update :text => "squeak!"
+          end
+        end
+        assert_equal "$(\"mouse\").update(\"squeak!\")", @mum.invoke(:squeak)
+      end
+    end
+    
+    context "with #replace" do
+      setup do
+        Apotomo.js_framework = :prototype
+      end
+      
+      should "wrap the :text in a replace statement" do
+        @mum.instance_eval do
+          def squeak
+            replace :text => '<div id="mum">squeak!</div>'
+          end
+        end
+        assert_equal "$(\"mouse\").replace(\"<div id=\\\"mum\\\">squeak!<\\/div>\")", @mum.invoke(:squeak)
+      end
+    end
+  end
+  
+  context "rendering a widget family" do
+    setup do
+      @mum = mouse_mock('mum', :snuggle) do
+        def snuggle; render; end
+      end
+      
+      @mum << @kid = mouse_mock('kid')
+    end
+    
+    should "per default render kid's content inside mums div with rendered_children" do
+      assert_equal '<div id="mum"><snuggle><div id="kid">burp!</div></snuggle></div>', @mum.invoke(:snuggle)
+    end
+    
+    should "skip kids if :render_children=>false but still provide a rendered_children hash" do
+      @mum.instance_eval do
+        def snuggle; render :render_children => false; end
+      end
+      
+      assert_equal '<div id="mum"><snuggle></snuggle></div>', @mum.invoke(:snuggle)
+    end
+     
+    should_eventually "provide an ordered rendered_children hash"
+  end
+  
+end

data/test/unit/request_processor_test.rb

@@ -0,0 +1,178 @@
+require File.join(File.dirname(__FILE__), *%w[.. test_helper])
+
+class RequestProcessorTest < Test::Unit::TestCase
+  context "#root" do
+    should "allow external modification of the tree" do
+      @processor = Apotomo::RequestProcessor.new({})
+      root = @processor.root
+      root << mouse_mock
+      assert_equal 2, @processor.root.size
+    end
+  end
+    
+  context "option processing at construction time" do
+    context "with empty session and options" do
+      setup do
+        @processor = Apotomo::RequestProcessor.new({})
+      end
+      
+      should "mark the tree as flushed" do
+        assert @processor.widgets_flushed?
+      end
+      
+      should "provide a single root-node for #root" do
+        assert_equal 1, @processor.root.size
+      end
+      
+      should "initialize version to 0" do
+        assert_equal 0, @processor.root.version
+      end
+    end
+    
+    context "with session" do
+      setup do
+        mum_and_kid!
+        @mum.version = 1
+        @session = {:apotomo_stateful_branches => [[@mum, 'root']]}
+        @processor = Apotomo::RequestProcessor.new(@session)
+      end
+      
+      should "provide a widget family for #root" do
+        assert_equal 3, @processor.root.size
+        assert_equal 1, @processor.root['mum'].version
+        assert_not @processor.widgets_flushed?
+      end
+      
+      context "having a flush flag set" do
+        setup do
+          @processor = Apotomo::RequestProcessor.new(@session, :flush_widgets => true)
+        end
+        
+        should "provide a single root for #root when :flush_widgets is set" do
+          assert_equal 1, @processor.root.size
+          assert @processor.widgets_flushed?
+        end
+        
+        should "wipe-out our session variables" do
+          assert_nil @session[:apotomo_stateful_branches]
+          assert_nil @session[:apotomo_widget_ivars]
+        end
+        
+        should ""
+      end
+      
+      context "and with stateless widgets" do
+        setup do
+          @session = {:apotomo_stateful_branches => [[@mum, 'grandma']]}
+          @processor = Apotomo::RequestProcessor.new(@session, {}, [Proc.new { |root| root << Apotomo::Widget.new('grandma', :eating) }])
+        end
+        
+        should "first attach passed stateless, then stateful widgets to root" do
+          assert_equal 4, @processor.root.size
+        end
+      end
+    end
+    
+  end
+  
+  context "#process_for" do
+    setup do
+      ### FIXME: what about that automatic @controller everywhere?
+      mum_and_kid!
+      @mum.controller = nil # check if controller gets connected.
+      @processor = Apotomo::RequestProcessor.new({:apotomo_stateful_branches => [[@mum, 'root']]}, :js_framework => :prototype)
+      
+      
+      
+      
+      
+      @kid.respond_to_event :doorSlam, :with => :eating, :on => 'mum'
+          @kid.respond_to_event :doorSlam, :with => :squeak
+          @mum.respond_to_event :doorSlam, :with => :squeak
+          
+          @mum.instance_eval do
+            def squeak; render :js => 'squeak();'; end
+          end
+          @kid.instance_eval do
+            def squeak; render :text => 'squeak!', :update => :true; end
+          end
+    end
+      
+    should "return 2 page_updates when @kid squeaks" do
+      res = @processor.process_for({:type => :squeak, :source => 'kid'}, @controller)
+      
+      assert_equal ["alert!", "squeak"], res
+    end
+    
+    should "raise an exception when :source is unknown" do
+      assert_raises RuntimeError do
+        @processor.process_for({:type => :squeak, :source => 'tom'}, @controller)
+      end
+    end
+  end
+  
+  
+  
+  context "#freeze!" do
+    should "serialize stateful branches to @session" do
+      @processor = Apotomo::RequestProcessor.new({})
+      @processor.root << mum_and_kid!
+      assert_equal 3, @processor.root.size
+      @processor.freeze!
+      
+      @processor = Apotomo::RequestProcessor.new(@processor.session)
+      assert_equal 3, @processor.root.size
+    end
+  end
+  
+  context "#render_widget_for" do
+    setup do
+      @mum = mouse_mock('mum', :snuggle) do
+        def snuggle; render; end
+      end
+      @mum.controller = nil
+      
+      @processor = Apotomo::RequestProcessor.new({:apotomo_stateful_branches => [[@mum, 'root']]})
+    end
+    
+    should "render the widget when passing an existing widget id" do
+      assert_equal '<div id="mum"><snuggle></snuggle></div>', @processor.render_widget_for('mum', {}, @controller)
+    end
+    
+    should "render the widget when passing an existing widget instance" do
+      assert_equal '<div id="mum"><snuggle></snuggle></div>', @processor.render_widget_for(@mum, {}, @controller)
+    end
+    
+    should "raise an exception when a non-existent widget id id passed" do
+      assert_raises RuntimeError do
+        @processor.render_widget_for('mummy', {}, @controller)
+      end
+    end
+  end
+  
+  context "invoking #address_for" do
+    setup do
+      @processor = Apotomo::RequestProcessor.new({})
+    end
+    
+    should "accept an event :type" do
+      assert_equal({:type => :squeak, :source => 'mum'}, @processor.address_for(:type => :squeak, :source => 'mum'))
+    end
+    
+    should "accept arbitrary options" do
+      assert_equal({:type => :squeak, :volume => 'loud', :source => 'mum'}, @processor.address_for(:type => :squeak, :volume => 'loud', :source => 'mum'))
+    end
+    
+    should "complain if no type given" do
+      assert_raises RuntimeError do
+        @processor.address_for(:source => 'mum')
+      end
+    end
+    
+    should "complain if no source given" do
+      assert_raises RuntimeError do
+        @processor.address_for(:type => :footsteps)
+      end
+    end
+  end
+end

data/test/unit/stateful_widget_test.rb

@@ -0,0 +1,135 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class StatefulWidgetTest < Test::Unit::TestCase
+  context "The StatefulWidget" do
+    setup do
+      @mum = Apotomo::StatefulWidget.new('mum', :squeak)
+    end
+    
+    should "accept an id as first option" do
+      assert_equal 'mum', @mum.name
+    end
+    
+    should "accept a start state as second option" do
+      assert_equal :squeak, @mum.instance_variable_get('@start_state')
+    end
+    
+    should "respond to #version" do
+      assert_equal 0, mouse_mock.version
+    end
+    
+    should "have a version setter" do
+      @mum = mouse_mock
+      @mum.version = 1
+      assert_equal 1, @mum.version
+    end
+    
+    context "responding to #address_for_event" do
+      should "accept an event :type" do
+        assert_equal({:type => :squeak, :source => 'mum'}, @mum.address_for_event(:type => :squeak))
+      end
+      
+      should "accept a :source" do
+        assert_equal({:type => :squeak, :source => 'kid'}, @mum.address_for_event(:type => :squeak, :source => 'kid'))
+      end
+      
+      should "accept arbitrary options" do
+        assert_equal({:type => :squeak, :volume => 'loud', :source => 'mum'}, @mum.address_for_event(:type => :squeak, :volume => 'loud'))
+      end
+      
+      should "complain if no type given" do
+        assert_raises RuntimeError do
+          @mum.address_for_event(:source => 'mum')
+        end
+      end
+    end
+    
+    context "implementing visibility" do
+      should "per default respond to #visible?" do
+        assert @mum.visible?
+      end
+      
+      should "expose a setter therefore" do
+        @mum.visible = false
+        assert_not @mum.visible?
+      end
+      
+      context "in a widget family" do
+        setup do
+          @mum << @jerry = mouse_mock('jerry')
+          @mum << @berry = mouse_mock('berry')
+        end
+        
+        should "per default return all #visible_children" do
+          assert_equal [@jerry, @berry], @mum.visible_children
+          assert_equal [], @jerry.visible_children
+        end
+        
+        should "hide berry in #visible_children if he's invisible" do
+          @berry.visible = false
+          assert_equal [@jerry], @mum.visible_children
+        end
+      end
+    end
+    
+    should "respond to #find_widget" do
+      mum_and_kid!
+      assert_not @mum.find_widget('pet')
+      assert @kid, @mum.find_widget('kid')
+    end
+    
+    should "respond to the WidgetShortcuts methods, like #widget" do
+      assert_respond_to @mum, :widget
+    end
+    
+    context "with initialize_hooks" do
+      should "expose its class_inheritable_array with #initialize_hooks" do
+        @mum = mouse_class_mock.new('mum', :eating)
+        @mum.class.instance_eval { self.initialize_hooks << :initialize_mouse }
+        assert ::Apotomo::StatefulWidget.initialize_hooks.size + 1 == @mum.class.initialize_hooks.size
+      end
+      
+      should "execute the initialize_hooks in the correct order in #process_initialize_hooks" do
+        @mum = mouse_class_mock.new('mum', :eating)
+        @mum.class.instance_eval do
+          define_method(:executed) { |*args| @executed ||= [] }
+          define_method(:setup) { |*args| executed << :setup }
+          define_method(:configure) { |*args| executed << :configure }
+          initialize_hooks << :setup
+          initialize_hooks << :configure
+        end
+        
+        assert_equal [:setup, :configure], @mum.class.new('zombie', nil).executed
+      end
+    end
+  end
+  
+  context "mum having a family" do
+    setup do
+      mum_and_kid!
+      @mum << @berry = mouse_mock('berry')
+        @berry << @pet = mouse_mock('pet')
+    end
+    
+    context "responding to #render_children" do
+      should "return an OrderedHash for the rendered kids" do
+        kids = @mum.render_children
+        assert_kind_of ::ActiveSupport::OrderedHash, kids
+        assert_equal 2, kids.size
+      end
+      
+      should "return an OrderedHash even if there are no kids" do
+        kids = @kid.render_children
+        assert_kind_of ::ActiveSupport::OrderedHash, kids
+        assert_equal 0, kids.size
+      end
+      
+      should "return an empty OrderedHash when all kids are invisible" do
+        @pet.visible = false
+        kids = @berry.render_children
+        assert_kind_of ::ActiveSupport::OrderedHash, kids
+        assert_equal 0, kids.size
+      end
+    end
+  end
+end