merb_component 0.2.3

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 YOUR NAME
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README

@@ -0,0 +1,34 @@
+merb_component
+=============
+
+Merb plugin that provides composition of controllers.
+
+Example of use:
+
+  In config/router.rb:
+
+    resources :posts do |post|
+      post.aggregates :comments
+    end
+    resource :admin, :controller => :admin do |admin|
+      admin.aggregates :comments
+    end
+
+  In controllers:
+
+    class Posts < Application
+      aggregates :comments
+
+    class Admin < Application
+      aggregates :show => :comments
+
+  In views:
+
+    Content of the user (id is 2) goes here
+    <%= component :users, :show, :id => 2 %>
+
+  For detail, you can see spec/fixture as an example.
+
+  Enjoy!
+
+  Genki Takiuchi

data/Rakefile

@@ -0,0 +1,87 @@
+require 'rubygems'
+require 'rake/gempackagetask'
+
+require 'merb-core'
+require 'merb-core/tasks/merb'
+
+GEM_NAME = "merb_component"
+GEM_VERSION = "0.2.3"
+AUTHOR = "Genki Takiuchi"
+EMAIL = "genki@s21g.com"
+HOMEPAGE = "http://blog.s21g.com/genki"
+RUBYFORGE_PROJECT = 'asakusarb'
+SUMMARY = "Merb plugin that provides composition of controllers."
+
+spec = Gem::Specification.new do |s|
+  s.rubyforge_project = 'merb'
+  s.name = GEM_NAME
+  s.version = GEM_VERSION
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.extra_rdoc_files = ["README", "LICENSE", 'TODO']
+  s.summary = SUMMARY
+  s.description = s.summary
+  s.author = AUTHOR
+  s.email = EMAIL
+  s.homepage = HOMEPAGE
+  s.add_dependency('merb', '>= 1.0.7.1')
+  s.add_development_dependency('merb_full_url', '>= 0.0.2')
+  s.require_path = 'lib'
+  s.files = %w(LICENSE README Rakefile TODO) + Dir.glob("{lib,spec}/**/*")
+  
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+	pkg.need_tar = true
+  pkg.gem_spec = spec
+end
+
+desc "install the plugin as a gem"
+task :install do
+  Merb::RakeHelper.install(GEM_NAME, :version => GEM_VERSION)
+end
+
+desc "Uninstall the gem"
+task :uninstall do
+  Merb::RakeHelper.uninstall(GEM_NAME, :version => GEM_VERSION)
+end
+
+desc "Create a gemspec file"
+task :gemspec do
+  File.open("#{GEM_NAME}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end
+
+desc "Run specs"
+task :spec do
+  sh "spec --color spec"
+end
+
+desc 'Package and upload the release to rubyforge.'
+task :release => :package do |t|
+  require 'rubyforge'
+	v = ENV["VERSION"] or abort "Must supply VERSION=x.y.z"
+	abort "Versions don't match #{v} vs #{GEM_VERSION}" unless v == GEM_VERSION
+	pkg = "pkg/#{GEM_NAME}-#{GEM_VERSION}"
+
+	require 'rubyforge'
+	rf = RubyForge.new.configure
+	puts "Logging in"
+	rf.login
+
+	c = rf.userconfig
+#	c["release_notes"] = description if description
+#	c["release_changes"] = changes if changes
+	c["preformatted"] = true
+
+	files = [
+		"#{pkg}.tgz",
+		"#{pkg}.gem"
+	].compact
+
+	puts "Releasing #{GEM_NAME} v. #{GEM_VERSION}"
+	rf.add_release RUBYFORGE_PROJECT, GEM_NAME, GEM_VERSION, *files
+end
+
+task :default => :spec

data/TODO

@@ -0,0 +1,5 @@
+TODO:
+Fix LICENSE with your name
+Fix Rakefile with your name and contact info
+Add your code to lib/merb_component.rb
+Add your Merb rake tasks to lib/merb_component/merbtasks.rb

data/lib/merb_component.rb

@@ -0,0 +1,20 @@
+# make sure we're running inside Merb
+if defined?(Merb::Plugins)
+  # Merb gives you a Merb::Plugins.config hash...feel free to put your stuff in
+  # your piece of it
+  Merb::Plugins.config[:merb_component] = {
+  }
+  
+  Merb::BootLoader.before_app_loads do
+    # require code that must be loaded before the application
+    require 'merb_component/controller_ext'
+    require 'merb_component/resource_ext'
+    require 'merb_component/router_ext'
+  end
+  
+  Merb::BootLoader.after_app_loads do
+    # code that can be required after the application loads
+  end
+  
+  Merb::Plugins.add_rakefiles "merb_component/merbtasks"
+end

data/lib/merb_component/controller_ext.rb

@@ -0,0 +1,217 @@
+class Merb::Controller
+  METHOD_TO_ACTION = {
+    :post => :create,
+    :put => :update,
+    :delete => :destroy
+  }.freeze
+
+  class << self
+  private
+    def is_component(resource = nil)
+      resource = controller_name.singular if resource.nil?
+      r = resource.to_s
+      m = r.camel_case
+      iv = proc{|i| "(@#{r} = #{m}.#{i})"}
+      ivs = proc{|i| "(@#{r.pluralize} = #{m}.#{i})"}
+      class_eval <<-"RUBY"
+        def index; display #{ivs["all"]} end
+        def show(id) display #{iv["get(id)"]} end
+        def new; display #{iv["new"]} end
+        def edit(id) display #{iv["get(id)"]}; end
+        def create(#{r}) #{iv["create(#{r})"]}; '' end
+        def update(id,#{r}) #{iv["get(id)"]}.update_attributes(#{r}); '' end
+        def destroy(id) #{iv["get(id)"]}.destroy; '' end
+      RUBY
+    end
+
+    def aggregates(aggregation, options = {})
+      if aggregation.is_a?(Symbol)
+        aggregation = {:show => aggregation}
+      end
+      aggregation.each do |agg_action, arg|
+        define_method(arg){} unless method_defined?(arg)
+        model = Object.full_const_get(arg.to_s.singular.camel_case)
+        key = "#{controller_name.singular}_id"
+        var = "@#{arg.to_s.singular}"
+
+        add_filter(_before_filters, proc{|c|
+          id = params.delete(key)
+          method = request.method
+          scope = Mash.new
+          scope[key] = id if id
+          object = nil
+          if action = METHOD_TO_ACTION[method]
+            # setup request
+            req = request.dup
+            req.reset_params!
+            req.instance_variable_set(:@params,
+              params.merge(:controller => arg, :action => action))
+
+            # call action of subsidiary controller with scope
+            cc = Object.full_const_get(params[:action].camel_case).new(req)
+            model.send :with_scope, scope do
+              begin
+                layout = cc.class.default_layout
+                cc.class.layout(options[:layout])
+                cc._abstract_dispatch(action)
+              ensure
+                cc.class.layout(layout)
+              end
+              object = cc.instance_variable_get(var)
+              throw(:halt, proc{
+                target = controller_name.singular.intern
+                target = object.send(target) if object.respond_to?(target)
+                redirect resource(target)
+              }) if object.errors.empty?
+              c.instance_variable_set(var, object)
+            end
+          elsif params[:id]
+            # GET with component id
+            object = model.get(params[:id])
+            c.instance_variable_set(var, object)
+          elsif params[:format]
+            @component_format = params.delete(:format)
+            #c._abstract_dispatch(action)
+          end
+          c.instance_variable_set("#{var}_component", object)
+
+          # prepare for performing actoin of principal controller
+          c.params[:id] = id if id
+          c.params[:action] = c.action_name = agg_action.to_s
+        }, :only => arg)
+
+        add_filter(_after_filters, proc{|c|
+          # setup request
+          request.reset_params!
+          request.instance_variable_set(:@params, params.merge(
+            :controller => arg, :action => :index,
+            :format => @component_format))
+
+          # call index action of subsidiary controller with scope
+          cc = Object.full_const_get(arg.to_s.camel_case).new(request)
+          @body = Aggregator.new(c, cc.class) do
+            cc._abstract_dispatch(:index)
+          end.result
+        }, :only => agg_action, :if => proc{@component_format})
+      end
+    end
+  end
+
+  class Aggregator
+    attr_reader :controller, :object, :result, :context
+
+    def initialize(context, controller, &block)
+      @context = context
+      @controller = controller
+      @agg_name = @context.controller_name.singular.intern
+      model_class = Object.full_const_get(controller.name.singular)
+      @object = @context.instance_variable_get("@#{@agg_name}")
+      @scope = {}
+
+      relationship = model_class.relationships[@agg_name]
+      if @object && relationship
+        Merb.logger.debug [model_class, @agg_name].inspect
+        key_names = relationship.child_key.map{|i| i.name}
+        @scope = Hash[key_names.zip(@object.key)] if @object
+      end
+
+      @result = begin
+        aggregators = Thread::current[:aggregators] ||= {}
+        (aggregators[controller] ||= []).push(self)
+        if model_class.respond_to?(:with_scope)
+          model_class.send(:with_scope, @scope, &block)
+        else
+          block.call
+        end
+      ensure
+        aggregators[controller].pop
+      end
+    end
+
+    def key
+      @object || @agg_name
+    end
+  end
+
+  def _abstract_dispatch(*args)
+    _dispatch = Merb::AbstractController.instance_method(:_dispatch)
+    _dispatch.bind(self).call(*args)
+  end
+
+  def aggregator
+    aggregators = Thread::current[:aggregators] ||= {}
+    (aggregators[self.class] ||= []).last
+  end
+
+  def url_with_scope(*args)
+    result = url_without_scope(*args)
+    if (agg = aggregator) && (key = agg.key)
+      resource_without_scope(key) + result
+    else
+      result
+    end
+  end
+  alias_method :url_without_scope, :url
+  alias_method :url, :url_with_scope
+
+private
+  def component(controller, action, params = {})
+    params = self.params.merge(
+      :controller => controller, :action => action
+    ).merge(params)
+    var = "@#{controller.to_s.singular}"
+    object = instance_variable_get("#{var}_component")
+    controller = Object.full_const_get(controller.to_s.camel_case)
+    req = request.dup
+    req.reset_params!
+    req.instance_variable_set :@params, params
+
+    Aggregator.new(this = self, controller) do
+      controller.new(req)._dispatch(action).instance_eval do
+        if object
+          original = instance_variable_get(var)
+          object.attributes = original.attributes if original
+          instance_variable_set(var, object)
+        end
+        cc = this.instance_variable_get(:@_caught_content)
+        instance_variable_get(:@_caught_content).each do |k, v|
+          next if k == :for_layout
+          cc[k].nil? ? this.throw_content(k, v) : this.append_content(k, v)
+        end
+        render :layout => false
+      end
+    end.result
+  end
+
+  def form_for_component(controller, params = {}, &block)
+    var = "@#{controller.to_s.singular}"
+    object = instance_variable_get(var)
+    return nil if object.nil?
+    object = instance_variable_get("#{var}_component") || object
+    if object.new_record?
+      component(controller, :new, params)
+    else
+      component(controller, :edit, {:id => object.id}.merge(params))
+    end
+  end
+
+  def resource_with_scope(first, *args)
+    agg = aggregator
+    return resource_without_scope(first, *args) unless agg
+
+    controller = case first
+    when Symbol, String
+      Object.full_const_get(first.to_s.camel_case)
+    else
+      Object.full_const_get(first.class.to_s.pluralize.camel_case)
+    end
+
+    if controller <=> agg.controller && agg.key
+      resource_without_scope(agg.key, first, *args)
+    else
+      resource_without_scope(first, *args)
+    end
+  end
+  alias_method :resource_without_scope, :resource
+  alias_method :resource, :resource_with_scope
+end

data/lib/merb_component/merbtasks.rb

@@ -0,0 +1,6 @@
+namespace :merb_component do
+  desc "Do something for merb_component"
+  task :default do
+    puts "merb_component doesn't do anything"
+  end
+end

data/lib/merb_component/resource_ext.rb

@@ -0,0 +1,11 @@
+module DataMapper::Resource
+  module ClassMethods
+    # set scope
+    def new(attrs = {})
+      collection = all
+      collection.repository.scope do
+        super(collection.default_attributes.merge(attrs))
+      end
+    end
+  end
+end

data/lib/merb_component/router_ext.rb

@@ -0,0 +1,8 @@
+Merb::Router.extensions do
+  def aggregates(resource, options = {})
+    options[:controller] ||= @params[:controller]
+    match("/:action/:id").to(options)
+    match("/:action(.:format)").to(options)
+    resources resource
+  end
+end

data/spec/admin_spec.rb

@@ -0,0 +1,106 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Admin do
+  before do
+    @req = Merb::Request.new(
+      Merb::Const::REQUEST_PATH => "/admin",
+      Merb::Const::REQUEST_METHOD => "GET",
+      Merb::Const::QUERY_STRING => "")
+    @c = Admin.new(@req)
+  end
+
+  it "should be a controller" do
+    @c.should be_kind_of(Merb::Controller)
+  end
+end
+
+describe "Admin controller" do
+  before :all do
+    @post = Post.create
+    @comment = @post.comments.create(:body => "test")
+  end
+
+  it "should be tested on at least one post and comment" do
+    Post.count.should > 0
+    Comment.count.should > 0
+  end
+
+  it "should show index html" do
+    res = request(resource(:admin))
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li")
+    res.should_not have_xpath("//form")
+    res.should have_xpath("//a[@href='/admin/comments?page=1']")
+  end
+
+  it "should show index html for pagination params" do
+    res = request("/admin/comments?page=2")
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul")
+    res.should_not have_xpath("//form")
+    res.should have_xpath("//a[@href='/admin/comments?page=3']")
+  end
+
+  it "should show html after update a comment" do
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(:admin, comment),
+      :method => 'PUT', :params => {:comment => {:body => "bar"}})
+    res.should redirect_to("/admin")
+
+    res = request(res.headers["Location"])
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should_not have_xpath("//form")
+  end
+
+  it "should show html after failed to update a comment" do
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(:admin, comment),
+      :method => 'PUT', :params => {:comment => {:body => ""}})
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should have_xpath("//form[@action='/admin/comments/#{comment.id}']")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//input[@value='put']")
+    res.should have_tag("div.error")
+    res.should have_tag("input.error[@name='comment[body]']")
+  end
+
+  it "should show html after delete a comment" do
+    count = @post.comments.count
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(:admin, comment), :method => 'DELETE')
+    res.should redirect_to("/admin")
+    
+    res = request(res.headers["Location"])
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should_not have_xpath("//form")
+    @post.comments.count.should == count - 1
+  end
+
+  it "should show html after show a comment" do
+    comment = @post.comments.create(:body => "hello")
+    comment.should_not be_new_record
+    res = request(resource(:admin, comment), :method => 'GET')
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//form[@action='/admin/comments/#{comment.id}']")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//input[@value='put']")
+    res.should_not have_xpath("//body/meta")
+  end
+end

data/spec/fixture/app/controllers/admin.rb

@@ -0,0 +1,7 @@
+class Admin < Application
+  aggregates :show => :comments
+
+  def show
+    render
+  end
+end

data/spec/fixture/app/controllers/application.rb

@@ -0,0 +1,2 @@
+class Application < Merb::Controller
+end

data/spec/fixture/app/controllers/comments.rb

@@ -0,0 +1,16 @@
+class Comments < Application
+  is_component :comment
+  provides :atom, :only => :index
+
+  def new
+    @comment = Comment.new
+    @comment.body = "new"
+    display @comment
+  end
+
+  def edit(id)
+    @comment = Comment.get(id)
+    @comment.body = "edit"
+    display @comment
+  end
+end

data/spec/fixture/app/controllers/posts.rb

@@ -0,0 +1,14 @@
+class Posts < Application
+  aggregates :comments
+
+  def index
+    @posts = Post.all
+    display @posts
+  end
+
+  def show(id)
+    @post = Post.get(id)
+    @comment = @post.comments.build
+    display @post
+  end
+end

data/spec/fixture/app/models/comment.rb

@@ -0,0 +1,10 @@
+class Comment
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :body, Text
+  
+  belongs_to :post
+
+  validates_present :body
+end

data/spec/fixture/app/models/post.rb

@@ -0,0 +1,7 @@
+class Post
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  has n, :comments
+end

data/spec/fixture/app/views/admin/show.html.erb

@@ -0,0 +1,4 @@
+<h1>Admin</h1>
+
+<%= component :comments, :index %>
+<%= form_for_component :comments %>

data/spec/fixture/app/views/comments/edit.html.erb

@@ -0,0 +1,11 @@
+<h3>
+  Edit Comment of 
+  <%= link_to h(@comment.post.id), resource(@comment.post) %>
+</h3>
+
+<%= error_messages_for @comment %>
+
+<%= form_for @comment, :action => resource(@comment), :method => :put do %>
+  <%= text_field :body %>
+  <%= submit "Submit" %>
+<% end =%>

data/spec/fixture/app/views/comments/index.atom.builder

@@ -0,0 +1,21 @@
+xml.instruct! :xml, :version=>"1.0" 
+xml.feed(:xmlns => "http://www.w3.org/2005/Atom") do |feed|
+  feed.title @title
+  feed.link :type => 'text/html', :rel => 'alternate',
+    :href => full_resource(:comments)
+
+  @comments.each do |comment|
+    feed.entry do |entry|
+      entry.id comment.id
+      entry.title "Comment to post#%s" % comment.post.id
+      entry.content comment.body, :type => 'text'
+      #entry.issued comment.created_at
+      #entry.modified comment.updated_at
+      entry.link :type => "text/html", :rel => "alternate",
+        :href => full_resource(comment)
+      #entry.author do |author|
+      #  author.name comment.user.login
+      #end
+    end
+  end
+end

data/spec/fixture/app/views/comments/index.html.erb

@@ -0,0 +1,15 @@
+<h2>Comments</h2>
+
+<ul>
+<% @comments.each do |comment| %>
+  <li>
+    <%= link_to h(comment.body), resource(comment) %>
+  </li>
+<% end %>
+</ul>
+
+<%= link_to "next", url(:page => params[:page].to_i + 1) %>
+
+<% throw_content :for_post do %>
+  test_content
+<% end %>

data/spec/fixture/app/views/comments/new.html.erb

@@ -0,0 +1,6 @@
+<%= error_messages_for @comment %>
+
+<%= form_for @comment, :action => resource(:comments) do %>
+  <%= text_field :body %>
+  <%= submit "submit" %>
+<% end =%>

data/spec/fixture/app/views/layout/application.html.erb

@@ -0,0 +1,11 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"
+ xmlns:v="urn:schemas-microsoft-com:vml" xml:lang="en-us" lang="en-us">
+<head>
+  <title>merb_component</title>
+  <meta http-equiv="content-type" content="text/html; charset=utf-8" />
+</head>
+<body>
+  <%= catch_content :for_layout %>
+</body>
+</html>

data/spec/fixture/app/views/posts/index.html.erb

@@ -0,0 +1,7 @@
+<h1>Posts</h1>
+
+<ul>
+<% @posts.each do |post| %>
+  <li><%= post.id %></li>
+<% end %>
+</ul>

data/spec/fixture/app/views/posts/show.html.erb

@@ -0,0 +1,6 @@
+<h1><%= link_to @post.id.to_s, resource(@post) %></h1>
+
+<%= component :comments, :index %>
+<%= form_for_component :comments %>
+
+<%= catch_content :for_post %>

data/spec/fixture/config/router.rb

@@ -0,0 +1,11 @@
+Merb::Router.prepare do
+  resources :comments
+  resources :posts do |post|
+    post.aggregates :comments
+  end
+  resource :admin, :controller => :admin do |admin|
+    admin.aggregates :comments
+  end
+
+  default_routes
+end

data/spec/merb_component_spec.rb

@@ -0,0 +1,26 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "merb_component" do
+  it "should extend controller" do
+    Posts.private_instance_methods.should be_include("component")
+    Posts.private_instance_methods.should be_include("form_for_component")
+    Posts.instance_methods.should be_include("aggregator")
+    Posts.private_instance_methods.should be_include("resource")
+    Posts.public_instance_methods.should be_include("url")
+  end
+
+  it "should not extend model" do
+    Post.public_methods.should_not be_include("related_with")
+  end
+
+  it "should accept symbol as the first param of compoent" do
+    req = Merb::Request.new({})
+    c = Posts.new(req)
+    proc do
+      c.send(:component, :comments, :index)
+    end.should raise_error(Merb::Router::GenerationError)
+    c.instance_variable_set(:@post, Post.create)
+    result = c.send(:component, :comments, :index)
+    result.should be_kind_of(String)
+  end
+end

data/spec/posts_spec.rb

@@ -0,0 +1,173 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Posts do
+  before do
+    @req = Merb::Request.new(
+      Merb::Const::REQUEST_PATH => "/posts",
+      Merb::Const::REQUEST_METHOD => "GET",
+      Merb::Const::QUERY_STRING => "")
+    @c = Posts.new(@req)
+  end
+
+  it "should be a controller" do
+    @c.should be_kind_of(Merb::Controller)
+  end
+end
+
+describe "Posts controller" do
+  before :all do
+    @post = Post.create
+    @comment = @post.comments.create(:body => "test")
+  end
+
+  it "should be tested on at least one post" do
+    Post.count.should > 0
+    Comment.count.should > 0
+  end
+
+  it "should show html" do
+    res = request(resource(@post))
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should_not have_xpath("//input[@value='put']")
+    res.should have_xpath("//input[@value='new']")
+    res.should have_xpath("//a[@href='/posts/#{@post.id}/comments?page=1']")
+    res.should contain("test_content")
+  end
+
+  it "should show html for pagination params" do
+    res = request("/posts/#{@post.id}/comments?page=2")
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should_not have_xpath("//input[@value='put']")
+    res.should have_xpath("//input[@value='new']")
+    res.should have_xpath("//a[@href='/posts/#{@post.id}/comments?page=3']")
+    end
+
+  it "should show html after post a comment" do
+    count = @post.comments.count
+    res = request(resource(@post, :comments),
+      :method => 'POST', :params => {:comment => {:body => "foo"}})
+    res.should redirect_to("/posts/#{@post.id}")
+
+    res = request(res.headers["Location"])
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should have_xpath("//ul/li[2]")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should_not have_xpath("//input[@value='put']")
+    res.should contain("foo")
+    Comment.all(:post_id => @post.id).count.should == count + 1
+  end
+
+  it "should show html after failed to post a comment" do
+    count = Comment.all(:post_id => @post.id).count
+    res = request(resource(@post, :comments),
+      :method => 'POST', :params => {:comment => {:body => ""}})
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should have_xpath("//ul/li[2]")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should_not have_xpath("//input[@value='put']")
+    res.should have_tag("div.error")
+    res.should have_tag("input.error[@name='comment[body]']")
+    Comment.all(:post_id => @post.id).count.should == count
+  end
+
+  it "should show html after update a comment" do
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(@post, comment),
+      :method => 'PUT', :params => {:comment => {:body => "bar"}})
+    res.should redirect_to("/posts/#{@post.id}")
+
+    res = request(res.headers["Location"])
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should have_xpath("//ul/li[2]")
+    res.should have_xpath("//form[@method='post']")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should_not have_xpath("//input[@value='put']")
+    res.should contain("bar")
+  end
+
+  it "should show html after failed to update a comment" do
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(@post, comment),
+      :method => 'PUT', :params => {:comment => {:body => ""}})
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//ul/li[1]")
+    res.should have_xpath("//ul/li[2]")
+    res.should have_xpath("//form[@method='post']")
+    url = "/posts/#{@post.id}/comments/#{comment.id}"
+    res.should have_xpath("//form[@action='#{url}']")
+    res.should have_xpath("//input[@value='put']")
+    res.should have_tag("div.error")
+    res.should have_tag("input.error[@name='comment[body]']")
+  end
+
+  it "should show html after delete a comment" do
+    count = @post.comments.count
+    comment = @post.comments.last
+    comment.should be_kind_of(Comment)
+    res = request(resource(@post, comment), :method => 'DELETE')
+    res.should redirect_to("/posts/#{@post.id}")
+    
+    res = request(res.headers["Location"])
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    res.should have_xpath("//form[@action='/posts/#{@post.id}/comments']")
+    res.should have_xpath("//form[@method='post']")
+    res.should_not have_xpath("//input[@value='put']")
+    @post.comments.count.should == count - 1
+  end
+
+  it "should show html after show a comment" do
+    comment = @post.comments.create(:body => "test")
+    comment.should_not be_new_record
+    res = request(resource(@post, comment), :method => 'GET')
+    res.should be_successful
+    res.should have_xpath("//h1")
+    res.should have_xpath("//h2")
+    url = "/posts/#{@post.id}/comments/#{comment.id}"
+    res.should have_xpath("//form[@action='#{url}']")
+    res.should have_xpath("//input[@value='put']")
+    res.should_not have_xpath("//body/meta")
+    res.should have_xpath("//input[@value='edit']")
+
+    pending "should check pagination"
+  end
+
+  it "should provide atom feed for comments" do
+    comment = @post.comments.create(:body => "test")
+    comment.should_not be_new_record
+    res = request(resource(@post, :comments, :format => :atom))
+    res.should be_successful
+    res.should have_xpath("//feed/title")
+    url = "http://example.org/posts/#{@post.id}/comments"
+    res.should have_xpath("//feed/link[@href='#{url}']")
+    res.should have_xpath("//entry/title")
+    url = "http://example.org/posts/#{@post.id}/comments/#{comment.id}"
+    res.should have_xpath("//entry/link[@href='#{url}']")
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,40 @@
+$:.push File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'rubygems'
+require 'merb-core'
+require 'merb-core/plugins'
+require 'merb_component'
+require "spec" # Satisfies Autotest and anyone else not using the Rake tasks
+
+dependency "dm-core"
+dependency "dm-aggregates"
+dependency "merb-action-args"
+dependency "merb-helpers"
+dependency "merb-assets"
+dependency "dm-validations"
+dependency "merb-builder"
+dependency "merb_full_url"
+
+use_orm :datamapper
+use_test :rspec
+use_template_engine :erb
+
+# this loads all plugins required in your init file so don't add them
+# here again, Merb will do it for you
+Merb.disable(:initfile)
+Merb.start_environment(
+  :testing      => true,
+  :adapter      => 'runner',
+  :environment  => ENV['MERB_ENV'] || 'test',
+  :merb_root    => File.dirname(__FILE__) / 'fixture',
+  :log_file     => File.dirname(__FILE__) / '..' / "merb_test.log"
+)
+DataMapper.setup(:default, "sqlite3::memory:")
+Merb.add_mime_type(:atom, :to_atom, %w[application/atom+xml])
+
+Spec::Runner.configure do |config|
+  config.include(Merb::Test::ViewHelper)
+  config.include(Merb::Test::RouteHelper)
+  config.include(Merb::Test::ControllerHelper)
+  config.before(:all){DataMapper.auto_migrate!}
+end

metadata

@@ -0,0 +1,112 @@
+--- !ruby/object:Gem::Specification 
+name: merb_component
+version: !ruby/object:Gem::Version 
+  version: 0.2.3
+platform: ruby
+authors: 
+- Genki Takiuchi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-03-27 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: merb
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.0.7.1
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: merb_full_url
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.0.2
+    version: 
+description: Merb plugin that provides composition of controllers.
+email: genki@s21g.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- LICENSE
+- TODO
+files: 
+- LICENSE
+- README
+- Rakefile
+- TODO
+- lib/merb_component
+- lib/merb_component/controller_ext.rb
+- lib/merb_component/merbtasks.rb
+- lib/merb_component/resource_ext.rb
+- lib/merb_component/router_ext.rb
+- lib/merb_component.rb
+- spec/admin_spec.rb
+- spec/fixture
+- spec/fixture/app
+- spec/fixture/app/controllers
+- spec/fixture/app/controllers/admin.rb
+- spec/fixture/app/controllers/application.rb
+- spec/fixture/app/controllers/comments.rb
+- spec/fixture/app/controllers/posts.rb
+- spec/fixture/app/models
+- spec/fixture/app/models/comment.rb
+- spec/fixture/app/models/post.rb
+- spec/fixture/app/views
+- spec/fixture/app/views/admin
+- spec/fixture/app/views/admin/show.html.erb
+- spec/fixture/app/views/comments
+- spec/fixture/app/views/comments/edit.html.erb
+- spec/fixture/app/views/comments/index.atom.builder
+- spec/fixture/app/views/comments/index.html.erb
+- spec/fixture/app/views/comments/new.html.erb
+- spec/fixture/app/views/layout
+- spec/fixture/app/views/layout/application.html.erb
+- spec/fixture/app/views/posts
+- spec/fixture/app/views/posts/index.html.erb
+- spec/fixture/app/views/posts/show.html.erb
+- spec/fixture/config
+- spec/fixture/config/router.rb
+- spec/merb_component_spec.rb
+- spec/posts_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://blog.s21g.com/genki
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: merb
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: Merb plugin that provides composition of controllers.
+test_files: []
+