require 'cell/test_case'

module Apotomo
  # Testing is fun. Test your widgets!
  #
  # This class helps you testing widgets where it can. It is similar as in a controller.
  # A declarative test would look like
  #
  #   class BlogWidgetTest < Apotomo::TestCase
  #     has_widgets do |root|
  #       root << widget(:comments_widget, 'post-comments')
  #     end
  #
  #     it "should be rendered nicely" do
  #       render_widget 'post-comments'
  #
  #       assert_select "div#post-comments", "Comments for this post"
  #     end
  #
  #     it "should redraw on :update" do
  #       trigger :update
  #       assert_response "$(\"post-comments\").update ..."
  #     end
  #
  # For unit testing, you can grab an instance of your tested widget.
  #
  #     it "should be visible" do
  #       assert root['post-comments'].visible?
  #     end
  #
  # See also in Cell::TestCase.
  class TestCase < Cell::TestCase # TODO: re-arrange modules in Cell::TestCase and include instead of inheritance.
    # Generic test methods to be used in Test::Unit, RSpec, etc.
    module TestMethods
      extend ActiveSupport::Concern

      include Cell::TestCase::CommonTestMethods
      
      attr_reader :view_assigns
      
      def setup
        super # defined in Cell::TestCase::CommonTestMethods.
        
        @controller.instance_eval do
          def controller_path
            'barn'
          end
        end
        @controller.extend Apotomo::Rails::ControllerMethods
      end
      
      # Renders the widget +name+.
      def render_widget(*args)
        @view_assigns = extract_state_ivars_for(root[args.first]) do
          @last_invoke = root.render_widget(*args)
        end
        
        @last_invoke
      end

      # Triggers an event of +type+. You have to pass the +source+ as second options.
      #
      # Example:
      #
      #   trigger :submit, :comments
      def trigger(type, source, options={})
        source = root.find_widget(source)
        source.fire(type, options)
        root.page_updates
      end

      # Returns the widget tree from TestCase.has_widgets.
      def root
        blk = self.class.has_widgets_blocks or raise "Please setup a widget tree using has_widgets()"
        @root ||= Apotomo::Widget.new(parent_controller, "root").tap do |root|
           self.instance_exec(root, &blk)
        end
      end
      
      def parent_controller
        @controller
      end

      module ClassMethods
        def has_widgets_blocks
          @has_widgets
        end

        # Setup a widget tree as you're used to it from your controller. Executed in test context.
        def has_widgets(&block)
          @has_widgets = block
        end
      end
    end

    # After a #trigger this assertion compares the actually triggered page updates with the passed.
    #
    # Example:
    #
    #   trigger :submit, :source => "post-comments"
    #   assert_response "alert(\":submit clicked!\")", /\$\("post-comments"\).update/
    def assert_response(*content)
      updates = root.page_updates

      i = 0
      content.each do |assertion|
        if assertion.kind_of? Regexp
          assert_match assertion, updates[i]
        else
          assert_equal assertion, updates[i]
        end

        i+=1
      end
    end

    include Apotomo::WidgetShortcuts
    include TestMethods
  end
end