merb-admin 0.8.5 → 0.8.6

data/spec/models/activerecord/league.rb

@@ -1,6 +1,6 @@
-class League < ActiveRecord::Base
-  validates_presence_of(:name)
-
-  has_many(:divisions)
-  has_many(:teams)
-end
+class League < ActiveRecord::Base
+  validates_presence_of(:name)
+
+  has_many(:divisions)
+  has_many(:teams)
+end

data/spec/models/activerecord/player.rb

@@ -1,8 +1,8 @@
-class Player < ActiveRecord::Base
-  validates_presence_of(:name)
-  validates_numericality_of(:number, :only_integer => true)
-  validates_uniqueness_of(:number, :scope => :team_id, :message => "There is already a player with that number on this team")
-
-  belongs_to(:team)
-  has_one(:draft)
-end
+class Player < ActiveRecord::Base
+  validates_presence_of(:name)
+  validates_numericality_of(:number, :only_integer => true)
+  validates_uniqueness_of(:number, :scope => :team_id, :message => "There is already a player with that number on this team")
+
+  belongs_to(:team)
+  has_one(:draft)
+end

data/spec/models/activerecord/team.rb

@@ -1,13 +1,13 @@
-class Team < ActiveRecord::Base
-  validates_numericality_of(:league_id, :only_integer => true)
-  validates_numericality_of(:division_id, :only_integer => true)
-  validates_presence_of(:manager)
-  validates_numericality_of(:founded, :only_integer => true)
-  validates_numericality_of(:wins, :only_integer => true)
-  validates_numericality_of(:losses, :only_integer => true)
-  validates_numericality_of(:win_percentage)
-
-  belongs_to(:league)
-  belongs_to(:division)
-  has_many(:players)
-end
+class Team < ActiveRecord::Base
+  validates_numericality_of(:league_id, :only_integer => true)
+  validates_numericality_of(:division_id, :only_integer => true)
+  validates_presence_of(:manager)
+  validates_numericality_of(:founded, :only_integer => true)
+  validates_numericality_of(:wins, :only_integer => true)
+  validates_numericality_of(:losses, :only_integer => true)
+  validates_numericality_of(:win_percentage)
+
+  belongs_to(:league)
+  belongs_to(:division)
+  has_many(:players)
+end

data/spec/models/datamapper/division.rb

@@ -1,12 +1,12 @@
-class Division
-  include DataMapper::Resource
-
-  property(:id, Serial)
-  property(:created_at, DateTime)
-  property(:updated_at, DateTime)
-  property(:league_id, Integer, :required => true, :index => true)
-  property(:name, String, :required => true, :index => true)
-
-  belongs_to(:league)
-  has(n, :teams)
-end
+class Division
+  include DataMapper::Resource
+
+  property(:id, Serial)
+  property(:created_at, DateTime)
+  property(:updated_at, DateTime)
+  property(:league_id, Integer, :required => true, :index => true)
+  property(:name, String, :required => true, :index => true)
+
+  belongs_to(:league)
+  has(n, :teams)
+end

data/spec/models/datamapper/draft.rb

@@ -1,18 +1,18 @@
-class Draft
-  include DataMapper::Resource
-
-  property(:id, Serial)
-  property(:created_at, DateTime)
-  property(:updated_at, DateTime)
-  property(:player_id, Integer, :required => true, :index => true)
-  property(:team_id, Integer, :required => true, :index => true)
-  property(:date, Date, :required => true)
-  property(:round, Integer, :required => true)
-  property(:pick, Integer, :required => true)
-  property(:overall, Integer, :required => true)
-  property(:college, String, :length => 100, :index => true)
-  property(:notes, Text)
-
-  belongs_to(:team)
-  belongs_to(:player)
-end
+class Draft
+  include DataMapper::Resource
+
+  property(:id, Serial)
+  property(:created_at, DateTime)
+  property(:updated_at, DateTime)
+  property(:player_id, Integer, :required => true, :index => true)
+  property(:team_id, Integer, :required => true, :index => true)
+  property(:date, Date, :required => true)
+  property(:round, Integer, :required => true)
+  property(:pick, Integer, :required => true)
+  property(:overall, Integer, :required => true)
+  property(:college, String, :length => 100, :index => true)
+  property(:notes, Text)
+
+  belongs_to(:team)
+  belongs_to(:player)
+end

data/spec/models/datamapper/league.rb

@@ -1,11 +1,11 @@
-class League
-  include DataMapper::Resource
-
-  property(:id, Serial)
-  property(:created_at, DateTime)
-  property(:updated_at, DateTime)
-  property(:name, String, :required => true, :index => true)
-
-  has(n, :divisions)
-  has(n, :teams)
-end
+class League
+  include DataMapper::Resource
+
+  property(:id, Serial)
+  property(:created_at, DateTime)
+  property(:updated_at, DateTime)
+  property(:name, String, :required => true, :index => true)
+
+  has(n, :divisions)
+  has(n, :teams)
+end

data/spec/models/datamapper/player.rb

@@ -1,20 +1,20 @@
-class Player
-  include DataMapper::Resource
-
-  property(:id, Serial)
-  property(:created_at, DateTime)
-  property(:updated_at, DateTime)
-  property(:team_id, Integer, :index => true)
-  property(:name, String, :length => 100, :required => true, :index => true)
-  property(:position, String, :index => true)
-  property(:number, Integer, :required => true)
-  property(:retired, Boolean, :default => false)
-  property(:injured, Boolean, :default => false)
-  property(:born_on, Date)
-  property(:notes, Text)
-
-  validates_uniqueness_of(:number, :scope => :team_id, :message => "There is already a player with that number on this team")
-
-  belongs_to(:team)
-  has(1, :draft)
-end
+class Player
+  include DataMapper::Resource
+
+  property(:id, Serial)
+  property(:created_at, DateTime)
+  property(:updated_at, DateTime)
+  property(:team_id, Integer, :index => true)
+  property(:name, String, :length => 100, :required => true, :index => true)
+  property(:position, String, :index => true)
+  property(:number, Integer, :required => true)
+  property(:retired, Boolean, :default => false)
+  property(:injured, Boolean, :default => false)
+  property(:born_on, Date)
+  property(:notes, Text)
+
+  validates_uniqueness_of(:number, :scope => :team_id, :message => "There is already a player with that number on this team")
+
+  belongs_to(:team)
+  has(1, :draft)
+end

data/spec/models/datamapper/team.rb

@@ -1,22 +1,22 @@
-class Team
-  include DataMapper::Resource
-
-  property(:id, Serial)
-  property(:created_at, DateTime)
-  property(:updated_at, DateTime)
-  property(:league_id, Integer, :required => true, :index => true)
-  property(:division_id, Integer, :required => true, :index => true)
-  property(:name, String, :index => true)
-  property(:logo_url, String, :length => 255)
-  property(:manager, String, :length => 100, :required => true, :index => true)
-  property(:ballpark, String, :length => 100, :index => true)
-  property(:mascot, String, :length => 100, :index => true)
-  property(:founded, Integer, :required => true)
-  property(:wins, Integer, :required => true)
-  property(:losses, Integer, :required => true)
-  property(:win_percentage, Float, :required => true, :precision => 4, :scale => 3)
-
-  belongs_to(:league)
-  belongs_to(:division)
-  has(n, :players)
-end
+class Team
+  include DataMapper::Resource
+
+  property(:id, Serial)
+  property(:created_at, DateTime)
+  property(:updated_at, DateTime)
+  property(:league_id, Integer, :required => true, :index => true)
+  property(:division_id, Integer, :required => true, :index => true)
+  property(:name, String, :index => true)
+  property(:logo_url, String, :length => 255)
+  property(:manager, String, :length => 100, :required => true, :index => true)
+  property(:ballpark, String, :length => 100, :index => true)
+  property(:mascot, String, :length => 100, :index => true)
+  property(:founded, Integer, :required => true)
+  property(:wins, Integer, :required => true)
+  property(:losses, Integer, :required => true)
+  property(:win_percentage, Float, :required => true, :precision => 4, :scale => 3)
+
+  belongs_to(:league)
+  belongs_to(:division)
+  has(n, :players)
+end

data/spec/models/sequel/division.rb

@@ -1,15 +1,15 @@
-class Division < Sequel::Model
-  set_primary_key(:id)
-  plugin(:timestamps, :update_on_create => true)
-  plugin(:validation_helpers)
-
-  many_to_one(:league)
-  one_to_many(:teams)
-
-  self.raise_on_save_failure = false
-  self.raise_on_typecast_failure = false
-  def validate
-    validates_numeric(:league_id, :only_integer => true)
-    validates_presence(:name)
-  end
-end
+class Division < Sequel::Model
+  set_primary_key(:id)
+  plugin(:timestamps, :update_on_create => true)
+  plugin(:validation_helpers)
+
+  many_to_one(:league)
+  one_to_many(:teams)
+
+  self.raise_on_save_failure = false
+  self.raise_on_typecast_failure = false
+  def validate
+    validates_numeric(:league_id, :only_integer => true)
+    validates_presence(:name)
+  end
+end

data/spec/models/sequel/draft.rb

@@ -1,19 +1,19 @@
-class Draft < Sequel::Model
-  set_primary_key(:id)
-  plugin(:timestamps, :update_on_create => true)
-  plugin(:validation_helpers)
-
-  many_to_one(:team)
-  many_to_one(:player)
-
-  self.raise_on_save_failure = false
-  self.raise_on_typecast_failure = false
-  def validate
-    validates_numeric(:player_id, :only_integer => true, :allow_blank => true)
-    validates_numeric(:team_id, :only_integer => true, :allow_blank => true)
-    validates_presence(:date)
-    validates_numeric(:round, :only_integer => true)
-    validates_numeric(:pick, :only_integer => true)
-    validates_numeric(:overall, :only_integer => true)
-  end
-end
+class Draft < Sequel::Model
+  set_primary_key(:id)
+  plugin(:timestamps, :update_on_create => true)
+  plugin(:validation_helpers)
+
+  many_to_one(:team)
+  many_to_one(:player)
+
+  self.raise_on_save_failure = false
+  self.raise_on_typecast_failure = false
+  def validate
+    validates_numeric(:player_id, :only_integer => true, :allow_blank => true)
+    validates_numeric(:team_id, :only_integer => true, :allow_blank => true)
+    validates_presence(:date)
+    validates_numeric(:round, :only_integer => true)
+    validates_numeric(:pick, :only_integer => true)
+    validates_numeric(:overall, :only_integer => true)
+  end
+end

data/spec/models/sequel/league.rb

@@ -1,14 +1,14 @@
-class League < Sequel::Model
-  set_primary_key(:id)
-  plugin(:timestamps, :update_on_create => true)
-  plugin(:validation_helpers)
-
-  one_to_many(:divisions)
-  one_to_many(:teams)
-
-  self.raise_on_save_failure = false
-  self.raise_on_typecast_failure = false
-  def validate
-    validates_presence(:name)
-  end
-end
+class League < Sequel::Model
+  set_primary_key(:id)
+  plugin(:timestamps, :update_on_create => true)
+  plugin(:validation_helpers)
+
+  one_to_many(:divisions)
+  one_to_many(:teams)
+
+  self.raise_on_save_failure = false
+  self.raise_on_typecast_failure = false
+  def validate
+    validates_presence(:name)
+  end
+end

data/spec/models/sequel/player.rb

@@ -1,18 +1,18 @@
-class Player < Sequel::Model
-  set_primary_key(:id)
-  plugin(:timestamps, :update_on_create => true)
-  plugin(:validation_helpers)
-
-  many_to_one(:team)
-  one_to_many(:drafts, :one_to_one => true)
-
-  self.raise_on_save_failure = false
-  self.raise_on_typecast_failure = false
-  def validate
-    validates_numeric(:number, :only_integer => true)
-    validates_unique(:number, :message => "There is already a player with that number on this team") do |dataset|
-      dataset.where("team_id = ?", team_id)
-    end
-  end
-end
-
+class Player < Sequel::Model
+  set_primary_key(:id)
+  plugin(:timestamps, :update_on_create => true)
+  plugin(:validation_helpers)
+
+  many_to_one(:team)
+  one_to_one(:draft)
+
+  self.raise_on_save_failure = false
+  self.raise_on_typecast_failure = false
+  def validate
+    validates_numeric(:number, :only_integer => true)
+    validates_unique(:number, :message => "There is already a player with that number on this team") do |dataset|
+      dataset.where("team_id = ?", team_id)
+    end
+  end
+end
+

data/spec/models/sequel/team.rb

@@ -1,21 +1,21 @@
-class Team < Sequel::Model
-  set_primary_key(:id)
-  plugin(:timestamps, :update_on_create => true)
-  plugin(:validation_helpers)
-
-  many_to_one(:league)
-  many_to_one(:division)
-  one_to_many(:players)
-
-  self.raise_on_save_failure = false
-  self.raise_on_typecast_failure = false
-  def validate
-    validates_numeric(:league_id, :only_integer => true)
-    validates_numeric(:division_id, :only_integer => true)
-    validates_presence(:manager)
-    validates_numeric(:founded, :only_integer => true)
-    validates_numeric(:wins, :only_integer => true)
-    validates_numeric(:losses, :only_integer => true)
-    validates_numeric(:win_percentage)
-  end
-end
+class Team < Sequel::Model
+  set_primary_key(:id)
+  plugin(:timestamps, :update_on_create => true)
+  plugin(:validation_helpers)
+
+  many_to_one(:league)
+  many_to_one(:division)
+  one_to_many(:players)
+
+  self.raise_on_save_failure = false
+  self.raise_on_typecast_failure = false
+  def validate
+    validates_numeric(:league_id, :only_integer => true)
+    validates_numeric(:division_id, :only_integer => true)
+    validates_presence(:manager)
+    validates_numeric(:founded, :only_integer => true)
+    validates_numeric(:wins, :only_integer => true)
+    validates_numeric(:losses, :only_integer => true)
+    validates_numeric(:win_percentage)
+  end
+end

data/spec/requests/main_spec.rb

@@ -1,763 +1,873 @@
-require File.join(File.dirname(__FILE__), '..', 'spec_helper.rb')
-
-given "a player exists" do
-  @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 1, :name => "Player 1")
-end
-
-given "a draft exists" do
-  @draft = MerbAdmin::AbstractModel.new("Draft").create(:player_id => rand(99999), :team_id => rand(99999), :date => Date.today, :round => rand(50), :pick => rand(30), :overall => rand(1500))
-end
-
-given "a league exists" do
-  @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
-end
-
-given "two players exist" do
-  @players = []
-  (1..2).each do |number|
-    @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => number, :name => "Player #{number}")
-  end
-end
-
-given "three teams exist" do
-  @teams = []
-  (1..3).each do |number|
-    @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => rand(99999), :division_id => rand(99999), :name => "Team #{number}", :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
-  end
-end
-
-given "three teams with no name exist" do
-  @teams = []
-  (1..3).each do |number|
-    @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => rand(99999), :division_id => rand(99999), :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
-  end
-end
-
-given "twenty players exist" do
-  @players = []
-  (1..20).each do |number|
-    @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => number, :name => "Player #{number}")
-  end
-end
-
-describe "MerbAdmin" do
-  before(:each) do
-    mount_slice
-    MerbAdmin::AbstractModel.new("Division").destroy_all!
-    MerbAdmin::AbstractModel.new("Draft").destroy_all!
-    MerbAdmin::AbstractModel.new("League").destroy_all!
-    MerbAdmin::AbstractModel.new("Player").destroy_all!
-    MerbAdmin::AbstractModel.new("Team").destroy_all!
-  end
-
-  describe "dashboard" do
-    before(:each) do
-      @response = visit(url(:merb_admin_dashboard))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"Site administration\"" do
-      @response.body.should contain("Site administration")
-    end
-  end
-
-  describe "dashboard with excluded models" do
-    before(:each) do
-      MerbAdmin[:excluded_models] = ["Player"]
-      @response = visit(url(:merb_admin_dashboard))
-      MerbAdmin[:excluded_models] = []
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should not contain excluded models" do
-      @response.body.should_not contain(/Player/)
-    end
-  end
-
-  describe "list" do
-    before(:each) do
-      @response = visit(url(:merb_admin_list, :model_name => "player"))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"Select model to edit\"" do
-      @response.body.should contain("Select player to edit")
-    end
-
-    it "should show filters" do
-      @response.body.should contain(/Filter\n\s*By Retired\n\s*All\n\s*Yes\n\s*No\n\s*By Injured\n\s*All\n\s*Yes\n\s*No/)
-    end
-
-    it "should show column headers" do
-      @response.body.should contain(/Id\n\s*Created at\n\s*Updated at\n\s*Team\n\s*Name\n\s*Position\n\s*Number\n\s*Retired\n\s*Injured\n\s*Born on\n\s*Notes/)
-    end
-  end
-
-  describe "list with sort" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 32, :name => "Sandy Koufax", :position => "Starting patcher")
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :sort => "name")
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should be sorted correctly" do
-      @response.body.should contain(/Jackie Robinson.*Sandy Koufax/m)
-    end
-  end
-
-  describe "list with reverse sort" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 32, :name => "Sandy Koufax", :position => "Starting patcher")
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :sort => "name", :sort_reverse => "true")
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should be sorted correctly" do
-      @response.body.should contain(/Sandy Koufax.*Jackie Robinson/m)
-    end
-  end
-
-  describe "list with query" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 32, :name => "Sandy Koufax", :position => "Starting patcher")
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :query => "Jackie Robinson")
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show a correct result" do
-      @response.body.should contain("Jackie Robinson")
-    end
-
-    it "should not contain an incorrect result" do
-      @response.body.should_not contain("Sandy Koufax")
-    end
-  end
-
-  describe "list with query and boolean filter" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 32, :name => "Sandy Koufax", :position => "Starting patcher", :retired => true, :injured => true)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 42, :name => "Jackie Robinson", :position => "Second baseman", :retired => true, :injured => false)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 18, :name => "Moises Alou", :position => "Left fielder", :retired => false, :injured => true)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 5, :name => "David Wright", :position => "Third baseman", :retired => false, :injured => false)
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :query => "Sandy Koufax", :filter => {:injured => "true"})
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show a correct result" do
-      @response.body.should contain("Sandy Koufax")
-    end
-
-    it "should not contain an incorrect result" do
-      @response.body.should_not contain("Jackie Robinson")
-      @response.body.should_not contain("Moises Alou")
-      @response.body.should_not contain("David Wright")
-    end
-  end
-
-
-  describe "list with boolean filter" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 18, :name => "Moises Alou", :position => "Left fielder", :injured => true)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 5, :name => "David Wright", :position => "Third baseman", :injured => false)
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :filter => {:injured => "true"})
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show a correct result" do
-      @response.body.should contain("Moises Alou")
-    end
-
-    it "should not contain an incorrect result" do
-      @response.body.should_not contain("David Wright")
-    end
-  end
-
-  describe "list with boolean filters" do
-    before(:each) do
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 32, :name => "Sandy Koufax", :position => "Starting patcher", :retired => true, :injured => true)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 42, :name => "Jackie Robinson", :position => "Second baseman", :retired => true, :injured => false)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 18, :name => "Moises Alou", :position => "Left fielder", :retired => false, :injured => true)
-      MerbAdmin::AbstractModel.new("Player").create(:team_id => rand(99999), :number => 5, :name => "David Wright", :position => "Third baseman", :retired => false, :injured => false)
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :filter => {:retired => "true", :injured => "true"})
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show a correct result" do
-    end
-
-    it "should not contain an incorrect result" do
-      @response.body.should_not contain("Jackie Robinson")
-      @response.body.should_not contain("Moises Alou")
-      @response.body.should_not contain("David Wright")
-    end
-  end
-
-  describe "list with 2 objects", :given => "two players exist" do
-    before(:each) do
-      MerbAdmin[:per_page] = 1
-      @response = visit(url(:merb_admin_list, :model_name => "player"))
-      MerbAdmin[:per_page] = 100
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"2 results\"" do
-      @response.body.should contain("2 players")
-    end
-  end
-
-  describe "list with 20 objects", :given => "twenty players exist" do
-    before(:each) do
-      MerbAdmin[:per_page] = 1
-      @response = visit(url(:merb_admin_list, :model_name => "player"))
-      MerbAdmin[:per_page] = 100
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"20 results\"" do
-      @response.body.should contain("20 players")
-    end
-  end
-
-  describe "list with 20 objects, page 8", :given => "twenty players exist" do
-    before(:each) do
-      MerbAdmin[:per_page] = 1
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :page => 8)
-      MerbAdmin[:per_page] = 100
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should paginate correctly" do
-      @response.body.should contain(/1 2[^0-9]*5 6 7 8 9 10 11[^0-9]*19 20/)
-    end
-  end
-
-  describe "list with 20 objects, page 17", :given => "twenty players exist" do
-    before(:each) do
-      MerbAdmin[:per_page] = 1
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :page => 17)
-      MerbAdmin[:per_page] = 100
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should paginate correctly" do
-      @response.body.should contain(/1 2[^0-9]*12 13 14 15 16 17 18 19 20/)
-    end
-  end
-
-  describe "list show all", :given => "two players exist" do
-    before(:each) do
-      MerbAdmin[:per_page] = 1
-      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :all => true)
-      MerbAdmin[:per_page] = 100
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-  end
-
-  describe "new" do
-    before(:each) do
-      @response = visit(url(:merb_admin_new, :model_name => "player"))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"New model\"" do
-      @response.body.should contain("New player")
-    end
-
-    it "should show required fields as \"Required\"" do
-      @response.body.should contain(/Name\n\s*Required/)
-      @response.body.should contain(/Number\n\s*Required/)
-    end
-
-    it "should show non-required fields as \"Optional\"" do
-      @response.body.should contain(/Position\n\s*Optional/)
-      @response.body.should contain(/Born on\n\s*Optional/)
-      @response.body.should contain(/Notes\n\s*Optional/)
-      @response.body.should contain(/Draft\n\s*Optional/)
-      @response.body.should contain(/Team\n\s*Optional/)
-    end
-  end
-
-  describe "new with has-one association", :given => "a draft exists" do
-    before(:each) do
-      @response = visit(url(:merb_admin_new, :model_name => "player"))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show associated objects" do
-      @response.body.should contain(/DraftDraft #\d+/)
-    end
-  end
-
-  describe "new with has-many association", :given => "three teams exist" do
-    before(:each) do
-      @response = visit(url(:merb_admin_new, :model_name => "player"))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show associated objects" do
-      @response.body.should contain(/TeamTeam 1Team 2Team 3/)
-    end
-  end
-
-  describe "new with missing label", :given => ["a player exists", "three teams with no name exist"] do
-    before(:each) do
-      @response = visit(url(:merb_admin_new, :model_name => "player"))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-  end
-
-  describe "create" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "player"))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should create an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "create and edit" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "player"))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save and continue editing"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should create an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "create and add another" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "player"))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save and add another"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should create an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "create with has-one association", :given => "a draft exists" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "player"))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => 42
-      fill_in "Position", :with => "Second baseman"
-      fill_in "Draft", :with => @draft.id.to_s
-      @response = click_button "Save"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should create an object with correct associations" do
-      @draft.reload
-      @player.draft.should eql(@draft)
-    end
-  end
-
-  describe "create with has-many association", :given => "three teams exist" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "league"))
-      fill_in "Name", :with => "National League"
-      fill_in "Teams", :with => @teams[0].id.to_s
-      @response = click_button "Save"
-      @league = MerbAdmin::AbstractModel.new("League").first
-    end
-
-    it "should create an object with correct associations" do
-      @teams[0].reload
-      @league.teams.should include(@teams[0])
-    end
-
-    it "should not create an object with incorrect associations" do
-      @league.teams.should_not include(@teams[1])
-      @league.teams.should_not include(@teams[2])
-    end
-  end
-
-  describe "create with uniqueness constraint violated", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_new, :model_name => "player"))
-      fill_in "Name", :with => @player.name
-      fill_in "Number", :with => @player.number.to_s
-      fill_in "Position", :with => @player.position
-      fill_in "Team", :with => @player.team_id.to_s
-      @response = click_button "Save"
-    end
-
-    it "should show an error message" do
-      @response.body.should contain("There is already a player with that number on this team")
-    end
-  end
-
-  describe "create with invalid object" do
-    before(:each) do
-      @response = visit(url(:merb_admin_create, :model_name => "player"), :post, :params => {:player => {}})
-    end
-
-    it "should show an error message" do
-      @response.body.should contain("Player failed to be created")
-    end
-  end
-
-  describe "edit", :given => "a player exists" do
-    before(:each) do
-      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"Edit model\"" do
-      @response.body.should contain("Edit player")
-    end
-
-    it "should show required fields as \"Required\"" do
-      @response.body.should contain(/Name\n\s*Required/)
-      @response.body.should contain(/Number\n\s*Required/)
-    end
-
-    it "should show non-required fields as \"Optional\"" do
-      @response.body.should contain(/Position\n\s*Optional/)
-      @response.body.should contain(/Born on\n\s*Optional/)
-      @response.body.should contain(/Notes\n\s*Optional/)
-      @response.body.should contain(/Draft\n\s*Optional/)
-      @response.body.should contain(/Team\n\s*Optional/)
-    end
-  end
-
-  describe "edit with has-one association", :given => ["a player exists", "a draft exists"] do
-    before(:each) do
-      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show associated objects" do
-      @response.body.should contain(/DraftDraft #\d+/)
-    end
-  end
-
-  describe "edit with has-many association", :given => ["a player exists", "three teams exist"] do
-    before(:each) do
-      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show associated objects" do
-      @response.body.should contain(/TeamTeam 1Team 2Team 3/)
-    end
-  end
-
-  describe "edit with missing object" do
-    before(:each) do
-      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => 1))
-    end
-
-    it "should raise NotFound" do
-      @response.status.should equal(404)
-    end
-  end
-
-  describe "edit with missing label", :given => ["a player exists", "three teams with no name exist"] do
-    before(:each) do
-      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-  end
-
-  describe "update", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should update an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "update and edit", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save and continue"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should update an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "update and add another", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save and add another"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should update an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-  end
-
-  describe "update with has-one association", :given => ["a player exists", "a draft exists"] do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "42"
-      fill_in "Position", :with => "Second baseman"
-      fill_in "Draft", :with => @draft.id.to_s
-      @response = click_button "Save"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-      # @response = visit(url(:merb_admin_update, :model_name => "player", :id => @player.id), :put, :params => {:player => {:name => "Jackie Robinson", :number => 42, :team_id => 1, :position => "Second baseman"}, :associations => {:draft => @draft.id}})
-    end
-
-    it "should update an object with correct attributes" do
-      @player.name.should eql("Jackie Robinson")
-      @player.number.should eql(42)
-      @player.position.should eql("Second baseman")
-    end
-
-    it "should update an object with correct associations" do
-      @draft.reload
-      @player.draft.should eql(@draft)
-    end
-  end
-
-  describe "update with has-many association", :given => ["a league exists", "three teams exist"] do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "league", :id => @league.id))
-      fill_in "Name", :with => "National League"
-      fill_in "Teams", :with => @teams[0].id.to_s
-      @response = click_button "Save"
-      @league = MerbAdmin::AbstractModel.new("League").first
-    end
-
-    it "should update an object with correct attributes" do
-      @league.name.should eql("National League")
-    end
-
-    it "should update an object with correct associations" do
-      @teams[0].reload
-      @league.teams.should include(@teams[0])
-    end
-
-    it "should not update an object with incorrect associations" do
-      @league.teams.should_not include(@teams[1])
-      @league.teams.should_not include(@teams[2])
-    end
-  end
-
-  describe "update with missing object" do
-    before(:each) do
-      @response = visit(url(:merb_admin_update, :model_name => "player", :id => 1), :put, {:player => {:name => "Jackie Robinson", :number => 42, :position => "Second baseman"}})
-    end
-
-    it "should raise NotFound" do
-      @response.status.should equal(404)
-    end
-  end
-
-  describe "update with invalid object", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
-      fill_in "Name", :with => "Jackie Robinson"
-      fill_in "Number", :with => "a"
-      fill_in "Position", :with => "Second baseman"
-      @response = click_button "Save"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should show an error message" do
-      @response.body.should contain("Player failed to be updated")
-    end
-  end
-
-  describe "delete", :given => "a player exists" do
-    before(:each) do
-      @response = visit(url(:merb_admin_delete, :model_name => "player", :id => @player.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-
-    it "should show \"Delete model\"" do
-      @response.body.should contain("Delete player")
-    end
-  end
-
-  describe "delete with missing object" do
-    before(:each) do
-      @response = visit(url(:merb_admin_delete, :model_name => "player", :id => 1))
-    end
-
-    it "should raise NotFound" do
-      @response.status.should equal(404)
-    end
-  end
-
-  describe "delete with missing label" do
-    before(:each) do
-      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
-      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => rand(99999), :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
-      @response = visit(url(:merb_admin_delete, :model_name => "league", :id => @league.id))
-    end
-
-    it "should respond sucessfully" do
-      @response.should be_successful
-    end
-  end
-
-  describe "destroy", :given => "a player exists" do
-    before(:each) do
-      visit(url(:merb_admin_delete, :model_name => "player", :id => @player.id))
-      @response = click_button "Yes, I'm sure"
-      @player = MerbAdmin::AbstractModel.new("Player").first
-    end
-
-    it "should be successful" do
-      @response.should be_successful
-    end
-
-    it "should destroy an object" do
-      @player.should be_nil
-    end
-  end
-
-  describe "destroy with missing object" do
-    before(:each) do
-      @response = visit(url(:merb_admin_destroy, :model_name => "player", :id => 1), :delete)
-    end
-
-    it "should raise NotFound" do
-      @response.status.should equal(404)
-    end
-  end
-end
+# -*- encoding: utf-8 -*-
+require File.join(File.dirname(__FILE__), '..', 'spec_helper.rb')
+
+describe "MerbAdmin" do
+  before(:each) do
+    mount_slice
+    MerbAdmin::AbstractModel.new("Draft").destroy_all!
+    MerbAdmin::AbstractModel.new("Player").destroy_all!
+    MerbAdmin::AbstractModel.new("Team").destroy_all!
+    MerbAdmin::AbstractModel.new("Division").destroy_all!
+    MerbAdmin::AbstractModel.new("League").destroy_all!
+  end
+
+  describe "dashboard" do
+    before(:each) do
+      @response = visit(url(:merb_admin_dashboard))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"Site administration\"" do
+      @response.body.should contain("Site administration")
+    end
+  end
+
+  describe "dashboard with excluded models" do
+    before(:each) do
+      MerbAdmin[:excluded_models] = ["Player"]
+      @response = visit(url(:merb_admin_dashboard))
+      MerbAdmin[:excluded_models] = []
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should not contain excluded models" do
+      @response.body.should_not contain(/Player/)
+    end
+  end
+
+  describe "list" do
+    before(:each) do
+      @response = visit(url(:merb_admin_list, :model_name => "player"))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"Select model to edit\"" do
+      @response.body.should contain("Select player to edit")
+    end
+
+    it "should show filters" do
+      @response.body.should contain(/Filter\n\s*By Retired\n\s*All\n\s*Yes\n\s*No\n\s*By Injured\n\s*All\n\s*Yes\n\s*No/)
+    end
+
+    it "should show column headers" do
+      @response.body.should contain(/Id\n\s*Created at\n\s*Updated at\n\s*Team\n\s*Name\n\s*Position\n\s*Number\n\s*Retired\n\s*Injured\n\s*Born on\n\s*Notes/)
+    end
+  end
+
+  describe "list with sort" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Brooklyn Dodgers", :manager => "Walter Alston", :founded => 1883, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 32, :name => "Sandy Koufax", :position => "Starting pitcher")
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :sort => "name")
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should be sorted correctly" do
+      @response.body.should contain(/Jackie Robinson.*Sandy Koufax/m)
+    end
+  end
+
+  describe "list with reverse sort" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Brooklyn Dodgers", :manager => "Walter Alston", :founded => 1883, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 32, :name => "Sandy Koufax", :position => "Starting pitcher")
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :sort => "name", :sort_reverse => "true")
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should be sorted correctly" do
+      @response.body.should contain(/Sandy Koufax.*Jackie Robinson/m)
+    end
+  end
+
+  describe "list with query" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Brooklyn Dodgers", :manager => "Walter Alston", :founded => 1883, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 32, :name => "Sandy Koufax", :position => "Starting pitcher")
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 42, :name => "Jackie Robinson", :position => "Second baseman")
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :query => "Jackie Robinson")
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show a correct result" do
+      @response.body.should contain("Jackie Robinson")
+    end
+
+    it "should not contain an incorrect result" do
+      @response.body.should_not contain("Sandy Koufax")
+    end
+  end
+
+  describe "list with query and boolean filter" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "New York Mets", :manager => "Jerry Manuel", :founded => 1962, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 41, :name => "Tom Seaver", :position => "Starting pitcher", :retired => true, :injured => true)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 14, :name => "Gil Hodges", :position => "First baseman", :retired => true, :injured => false)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 7, :name => "José Reyes", :position => "Shortstop", :retired => false, :injured => true)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 5, :name => "David Wright", :position => "Third baseman", :retired => false, :injured => false)
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :query => "Tom Seaver", :filter => {:injured => "true"})
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show a correct result" do
+      @response.body.should contain("Tom Seaver")
+    end
+
+    it "should not contain an incorrect result" do
+      @response.body.should_not contain("Gil Hodges")
+      @response.body.should_not contain("José Reyes")
+      @response.body.should_not contain("David Wright")
+    end
+  end
+
+
+  describe "list with boolean filter" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "New York Mets", :manager => "Jerry Manuel", :founded => 1962, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 7, :name => "José Reyes", :position => "Shortstop", :retired => false, :injured => true)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 5, :name => "David Wright", :position => "Third baseman", :retired => false, :injured => false)
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :filter => {:injured => "true"})
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show a correct result" do
+      @response.body.should contain("José Reyes")
+    end
+
+    it "should not contain an incorrect result" do
+      @response.body.should_not contain("David Wright")
+    end
+  end
+
+  describe "list with boolean filters" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "National League")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "National League East")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "New York Mets", :manager => "Jerry Manuel", :founded => 1962, :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 41, :name => "Tom Seaver", :position => "Starting pitcher", :retired => true, :injured => true)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 14, :name => "Gil Hodges", :position => "First baseman", :retired => true, :injured => false)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 7, :name => "José Reyes", :position => "Shortstop", :retired => false, :injured => true)
+      MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 5, :name => "David Wright", :position => "Third baseman", :retired => false, :injured => false)
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :filter => {:retired => "true", :injured => "true"})
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show a correct result" do
+      @response.body.should contain("Tom Seaver")
+    end
+
+    it "should not contain an incorrect result" do
+      @response.body.should_not contain("Gil Hodges")
+      @response.body.should_not contain("José Reyes")
+      @response.body.should_not contain("David Wright")
+    end
+  end
+
+  describe "list with 2 objects" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @players = []
+      (1..2).each do |number|
+        @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => number, :name => "Player #{number}")
+      end
+      MerbAdmin[:per_page] = 1
+      @response = visit(url(:merb_admin_list, :model_name => "player"))
+      MerbAdmin[:per_page] = 100
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"2 results\"" do
+      @response.body.should contain("2 players")
+    end
+  end
+
+  describe "list with 20 objects" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @players = []
+      (1..20).each do |number|
+        @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => number, :name => "Player #{number}")
+      end
+      MerbAdmin[:per_page] = 1
+      @response = visit(url(:merb_admin_list, :model_name => "player"))
+      MerbAdmin[:per_page] = 100
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"20 results\"" do
+      @response.body.should contain("20 players")
+    end
+  end
+
+  describe "list with 20 objects, page 8" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @players = []
+      (1..20).each do |number|
+        @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => number, :name => "Player #{number}")
+      end
+      MerbAdmin[:per_page] = 1
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :page => 8)
+      MerbAdmin[:per_page] = 100
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should paginate correctly" do
+      @response.body.should contain(/1 2[^0-9]*5 6 7 8 9 10 11[^0-9]*19 20/)
+    end
+  end
+
+  describe "list with 20 objects, page 17" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @players = []
+      (1..20).each do |number|
+        @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => number, :name => "Player #{number}")
+      end
+      MerbAdmin[:per_page] = 1
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :page => 17)
+      MerbAdmin[:per_page] = 100
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should paginate correctly" do
+      @response.body.should contain(/1 2[^0-9]*12 13 14 15 16 17 18 19 20/)
+    end
+  end
+
+  describe "list show all" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @players = []
+      (1..2).each do |number|
+        @players << MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => number, :name => "Player #{number}")
+      end
+      MerbAdmin[:per_page] = 1
+      @response = visit(url(:merb_admin_list, :model_name => "player"), :get, :all => true)
+      MerbAdmin[:per_page] = 100
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+  end
+
+  describe "new" do
+    before(:each) do
+      @response = visit(url(:merb_admin_new, :model_name => "player"))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"New model\"" do
+      @response.body.should contain("New player")
+    end
+
+    it "should show required fields as \"Required\"" do
+      @response.body.should contain(/Name\n\s*Required/)
+      @response.body.should contain(/Number\n\s*Required/)
+    end
+
+    it "should show non-required fields as \"Optional\"" do
+      @response.body.should contain(/Position\n\s*Optional/)
+      @response.body.should contain(/Born on\n\s*Optional/)
+      @response.body.should contain(/Notes\n\s*Optional/)
+      @response.body.should contain(/Draft\n\s*Optional/)
+      @response.body.should contain(/Team\n\s*Optional/)
+    end
+  end
+
+  describe "new with has-one association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @draft = MerbAdmin::AbstractModel.new("Draft").create(:player_id => @player.id, :team_id => @team.id, :date => Date.today, :round => rand(50), :pick => rand(30), :overall => rand(1500))
+      @response = visit(url(:merb_admin_new, :model_name => "player"))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show associated objects" do
+      @response.body.should contain(/DraftDraft #\d+/)
+    end
+  end
+
+  describe "new with has-many association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team #{number}", :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      @response = visit(url(:merb_admin_new, :model_name => "player"))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show associated objects" do
+      @response.body.should contain(/TeamTeam 1Team 2Team 3/)
+    end
+  end
+
+  describe "new with missing label" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @teams[0].id, :number => 1, :name => "Player 1")
+      @response = visit(url(:merb_admin_new, :model_name => "player"))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+  end
+
+  describe "create" do
+    before(:each) do
+      visit(url(:merb_admin_new, :model_name => "player"))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save"
+      @player = MerbAdmin::AbstractModel.new("Player").last
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should create an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "create and edit" do
+    before(:each) do
+      visit(url(:merb_admin_new, :model_name => "player"))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save and continue editing"
+      @player = MerbAdmin::AbstractModel.new("Player").last
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should create an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "create and add another" do
+    before(:each) do
+      visit(url(:merb_admin_new, :model_name => "player"))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save and add another"
+      @player = MerbAdmin::AbstractModel.new("Player").last
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should create an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "create with has-one association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @draft = MerbAdmin::AbstractModel.new("Draft").create(:player_id => @player.id, :team_id => @team.id, :date => Date.today, :round => rand(50), :pick => rand(30), :overall => rand(1500))
+      visit(url(:merb_admin_new, :model_name => "player"))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => 42
+      fill_in "Position", :with => "Second baseman"
+      fill_in "Draft", :with => @draft.id.to_s
+      @response = click_button "Save"
+      @player = MerbAdmin::AbstractModel.new("Player").last
+      @draft.reload
+    end
+
+    it "should create an object with correct associations" do
+      @player.draft.should eql(@draft)
+    end
+  end
+
+  describe "create with has-many association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team #{number}", :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      visit(url(:merb_admin_new, :model_name => "league"))
+      fill_in "Name", :with => "National League"
+      fill_in "Teams", :with => @teams[0].id.to_s
+      @response = click_button "Save"
+      @league = MerbAdmin::AbstractModel.new("League").last
+      @teams.each do |team|
+        team.reload
+      end
+    end
+
+    it "should create an object with correct associations" do
+      @league.teams.should include(@teams[0])
+    end
+
+    it "should not create an object with incorrect associations" do
+      @league.teams.should_not include(@teams[1])
+      @league.teams.should_not include(@teams[2])
+    end
+  end
+
+  describe "create with uniqueness constraint violated" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_new, :model_name => "player"))
+      fill_in "Name", :with => @player.name
+      fill_in "Number", :with => @player.number.to_s
+      fill_in "Position", :with => @player.position
+      fill_in "Team", :with => @player.team_id.to_s
+      @response = click_button "Save"
+    end
+
+    it "should show an error message" do
+      @response.body.should contain("There is already a player with that number on this team")
+    end
+  end
+
+  describe "create with invalid object" do
+    before(:each) do
+      @response = visit(url(:merb_admin_create, :model_name => "player"), :post, :params => {:player => {}})
+    end
+
+    it "should show an error message" do
+      @response.body.should contain("Player failed to be created")
+    end
+  end
+
+  describe "edit" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"Edit model\"" do
+      @response.body.should contain("Edit player")
+    end
+
+    it "should show required fields as \"Required\"" do
+      @response.body.should contain(/Name\n\s*Required/)
+      @response.body.should contain(/Number\n\s*Required/)
+    end
+
+    it "should show non-required fields as \"Optional\"" do
+      @response.body.should contain(/Position\n\s*Optional/)
+      @response.body.should contain(/Born on\n\s*Optional/)
+      @response.body.should contain(/Notes\n\s*Optional/)
+      @response.body.should contain(/TeamTeam 1\n\s*Optional/)
+      @response.body.should contain(/Draft\n\s*Optional/)
+    end
+  end
+
+  describe "edit with has-one association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @draft = MerbAdmin::AbstractModel.new("Draft").create(:player_id => @player.id, :team_id => @team.id, :date => Date.today, :round => rand(50), :pick => rand(30), :overall => rand(1500))
+      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show associated objects" do
+      @response.body.should contain(/DraftDraft #\d+/)
+    end
+  end
+
+  describe "edit with has-many association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team #{number}", :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @teams[0].id, :number => 1, :name => "Player 1")
+      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show associated objects" do
+      @response.body.should contain(/TeamTeam 1Team 2Team 3/)
+    end
+  end
+
+  describe "edit with missing object" do
+    before(:each) do
+      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => 1))
+    end
+
+    it "should raise NotFound" do
+      @response.status.should equal(404)
+    end
+  end
+
+  describe "edit with missing label" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @teams[0].id, :number => 1, :name => "Player 1")
+      @response = visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+  end
+
+  describe "update" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save"
+      @player.reload
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should update an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "update and edit" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save and continue"
+      @player.reload
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should update an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "update and add another" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save and add another"
+      @player.reload
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should update an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+  end
+
+  describe "update with has-one association" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @draft = MerbAdmin::AbstractModel.new("Draft").create(:player_id => @player.id, :team_id => @team.id, :date => Date.today, :round => rand(50), :pick => rand(30), :overall => rand(1500))
+      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "42"
+      fill_in "Position", :with => "Second baseman"
+      fill_in "Draft", :with => @draft.id.to_s
+      @response = click_button "Save"
+      @player.reload
+      @draft.reload
+    end
+
+    it "should update an object with correct attributes" do
+      @player.name.should eql("Jackie Robinson")
+      @player.number.should eql(42)
+      @player.position.should eql("Second baseman")
+    end
+
+    it "should update an object with correct associations" do
+      @player.draft.should eql(@draft)
+    end
+  end
+
+  describe "update with has-many association" do
+    before(:each) do
+      @leagues = []
+      (1..2).each do |number|
+        @leagues << MerbAdmin::AbstractModel.new("League").create(:name => "League #{number}")
+      end
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @leagues[1].id, :name => "Division 1")
+      @teams = []
+      (1..3).each do |number|
+        @teams << MerbAdmin::AbstractModel.new("Team").create(:league_id => @leagues[1].id, :division_id => @division.id, :name => "Team #{number}", :manager => "Manager #{number}", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      end
+      visit(url(:merb_admin_edit, :model_name => "league", :id => @leagues[0].id))
+      fill_in "Name", :with => "National League"
+      fill_in "Teams", :with => @teams[0].id.to_s
+      @response = click_button "Save"
+      @leagues[0].reload
+    end
+
+    it "should update an object with correct attributes" do
+      @leagues[0].name.should eql("National League")
+    end
+
+    it "should update an object with correct associations" do
+      @leagues[0].teams.should include(@teams[0])
+    end
+
+    it "should not update an object with incorrect associations" do
+      @leagues[0].teams.should_not include(@teams[1])
+      @leagues[0].teams.should_not include(@teams[2])
+    end
+  end
+
+  describe "update with missing object" do
+    before(:each) do
+      @response = visit(url(:merb_admin_update, :model_name => "player", :id => 1), :put, {:player => {:name => "Jackie Robinson", :number => 42, :position => "Second baseman"}})
+    end
+
+    it "should raise NotFound" do
+      @response.status.should equal(404)
+    end
+  end
+
+  describe "update with invalid object" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_edit, :model_name => "player", :id => @player.id))
+      fill_in "Name", :with => "Jackie Robinson"
+      fill_in "Number", :with => "a"
+      fill_in "Position", :with => "Second baseman"
+      @response = click_button "Save"
+      @player.reload
+    end
+
+    it "should show an error message" do
+      @response.body.should contain("Player failed to be updated")
+    end
+  end
+
+  describe "delete" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      @response = visit(url(:merb_admin_delete, :model_name => "player", :id => @player.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+
+    it "should show \"Delete model\"" do
+      @response.body.should contain("Delete player")
+    end
+  end
+
+  describe "delete with missing object" do
+    before(:each) do
+      @response = visit(url(:merb_admin_delete, :model_name => "player", :id => 1))
+    end
+
+    it "should raise NotFound" do
+      @response.status.should equal(404)
+    end
+  end
+
+  describe "delete with missing label" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @response = visit(url(:merb_admin_delete, :model_name => "league", :id => @league.id))
+    end
+
+    it "should respond sucessfully" do
+      @response.should be_successful
+    end
+  end
+
+  describe "destroy" do
+    before(:each) do
+      @league = MerbAdmin::AbstractModel.new("League").create(:name => "League 1")
+      @division = MerbAdmin::AbstractModel.new("Division").create(:league_id => @league.id, :name => "Division 1")
+      @team = MerbAdmin::AbstractModel.new("Team").create(:league_id => @league.id, :division_id => @division.id, :name => "Team 1", :manager => "Manager 1", :founded => 1869 + rand(130), :wins => (wins = rand(163)), :losses => 162 - wins, :win_percentage => ("%.3f" % (wins.to_f / 162)).to_f)
+      @player = MerbAdmin::AbstractModel.new("Player").create(:team_id => @team.id, :number => 1, :name => "Player 1")
+      visit(url(:merb_admin_delete, :model_name => "player", :id => @player.id))
+      @response = click_button "Yes, I'm sure"
+      @player = MerbAdmin::AbstractModel.new("Player").first
+    end
+
+    it "should be successful" do
+      @response.should be_successful
+    end
+
+    it "should destroy an object" do
+      @player.should be_nil
+    end
+  end
+
+  describe "destroy with missing object" do
+    before(:each) do
+      @response = visit(url(:merb_admin_destroy, :model_name => "player", :id => 1), :delete)
+    end
+
+    it "should raise NotFound" do
+      @response.status.should equal(404)
+    end
+  end
+end