describe Merchant, "unsubscription predicate" do
  fixtures :merchants

  before(:each) { (@merchant = merchant(:apple)).unsubscribe_email("unsubscribed@email.com") }

  it "should handle plain email address" do
    @merchant.email_unsubscribed?("unsubscribed@email.com").should be_true
  end

  it "should handle email header format, too" do
    @merchant.email_unsubscribed?("Some Guy <unsubscribed@email.com>").should be_true
  end
end

describe "Merchants unsubscription system", "handling email header format" do
  fixtures :merchants

  it "should detect existing email addresses" do
    (@merchant = merchant(:apple)).unsubscribe_email(' "Silly Name" < sally@walking.net > ')
    @merchant.email_unsubscribed?(" 'Other Name' <sally@walking.net>   ").should be_true
  end
end

describe Merchant, "which is still subscribed" do
  fixtures :merchants

  it "should not be considered unsubscribed" do
    (@merchant = merchant(:apple)).unsubscribe_email("unsubscribed@email.com")
    @merchant.email_unsubscribed?("some@email.com").should_not be_true
  end
end