Add spec expectation have_delivered_emails

spec/expectations_spec.cr

@@ -3,15 +3,32 @@ require "./spec_helper"
 include Carbon::Expectations
 
 describe Carbon::Expectations do
-  it "can check for delivered emails" do
-    adapter = Carbon::DevAdapter.new
-    email = FakeEmail.new(subject: "Sent email")
-    other_email = FakeEmail.new(subject: "Other email")
-    email.should_not be_delivered
+  describe "#be_delivered" do
+    it "can check for delivered emails" do
+      adapter = Carbon::DevAdapter.new
+      email = FakeEmail.new(subject: "Sent email")
+      other_email = FakeEmail.new(subject: "Other email")
+      email.should_not be_delivered
 
-    adapter.deliver_now(email)
+      adapter.deliver_now(email)
 
-    email.should be_delivered
-    other_email.should_not be_delivered
+      email.should be_delivered
+      other_email.should_not be_delivered
+    end
+  end
+
+  describe "#have_delivered_emails" do
+    it "can check that emails were not sent" do
+      Carbon.should_not have_delivered_emails
+    end
+
+    it "can check that emails were sent" do
+      adapter = Carbon::DevAdapter.new
+      email = FakeEmail.new(subject: "Sent email")
+
+      adapter.deliver_now(email)
+
+      Carbon.should have_delivered_emails
+    end
   end
 end

src/carbon/expectations.cr

@@ -1,38 +1,11 @@
-module Carbon::Expectations
-  struct BeDeliveredExpectation
-    def match(email : Carbon::Email) : Bool
-      Carbon::DevAdapter.delivered?(email)
-    end
-
-    def failure_message(email)
-      FailureMessage.new(email).build
-    end
-
-    def negative_failure_message(email)
-      "Expected: #{email} not to be delivered"
-    end
-  end
-
-  class FailureMessage
-    private getter email
-
-    def initialize(@email : Carbon::Email)
-    end
-
-    def build
-      String.build do |message|
-        message << "Expected: #{email} to be delivered"
-        if Carbon::DevAdapter.delivered_emails.empty?
-          message << ", but no emails were delivered"
-        else
-          message << "\n\nTry this..."
-          message << "\n\n  ▸ See what emails were delivered with 'p Carbon::DevAdapter.delivered_emails'"
-        end
-      end
-    end
-  end
+require "./expectations/*"
 
+module Carbon::Expectations
   private def be_delivered
     BeDeliveredExpectation.new
   end
+
+  private def have_delivered_emails
+    HaveDeliveredEmailsExpectation.new
+  end
 end

src/carbon/expectations/be_delivered_expectation.cr

@@ -0,0 +1,21 @@
+struct Carbon::Expectations::BeDeliveredExpectation
+  def match(email : Carbon::Email) : Bool
+    Carbon::DevAdapter.delivered?(email)
+  end
+
+  def failure_message(email)
+    String.build do |message|
+      message << "Expected: #{email} to be delivered"
+      if Carbon::DevAdapter.delivered_emails.empty?
+        message << ", but no emails were delivered"
+      else
+        message << "\n\nTry this..."
+        message << "\n\n  ▸ See what emails were delivered with 'p Carbon::DevAdapter.delivered_emails'"
+      end
+    end
+  end
+
+  def negative_failure_message(email)
+    "Expected: #{email} not to be delivered"
+  end
+end

src/carbon/expectations/have_delivered_emails_expectation.cr

@@ -0,0 +1,13 @@
+class Carbon::Expectations::HaveDeliveredEmailsExpectation
+  def match(_carbon : Carbon.class) : Bool
+    Carbon::DevAdapter.delivered_emails.any?
+  end
+
+  def failure_message(_carbon : Carbon.class)
+    "Expected: Carbon to have delivered emails, but found none"
+  end
+
+  def negative_failure_message(_carbon : Carbon.class)
+    "Expected: Carbon to have no delivered emails, but found some"
+  end
+end