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*Deleted 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