Add spec for `have` matcher

spec/matchers/have_matcher_spec.cr

@@ -0,0 +1,265 @@
+require "../spec_helper"
+
+describe Spectator::Matchers::HaveMatcher do
+  describe "#match?" do
+    context "with a String" do
+      context "against a matching string" do
+        it "is true" do
+          value = "foobarbaz"
+          search = "bar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_true
+        end
+
+        context "at the beginning" do
+          it "is true" do
+            value = "foobar"
+            search = "foo"
+            partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+
+        context "at the end" do
+          it "is true" do
+            value = "foobar"
+            search = "bar"
+            partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+      end
+
+      context "against a different string" do
+        it "is false" do
+          value = "foobar"
+          search = "baz"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_false
+        end
+      end
+
+      context "against a matching character" do
+        it "is true" do
+          value = "foobar"
+          search = 'o'
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_true
+        end
+
+        context "at the beginning" do
+          it "is true" do
+            value = "foobar"
+            search = 'f'
+            partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+
+        context "at the end" do
+          it "is true" do
+            value = "foobar"
+            search = 'r'
+            partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+      end
+
+      context "against a different character" do
+        it "is false" do
+          value = "foobar"
+          search = 'z'
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_false
+        end
+      end
+    end
+
+    context "with an Enumberable" do
+      context "against an equal value" do
+        it "is true" do
+          array = %i[a b c]
+          search = :b
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_true
+        end
+
+        context "at the beginning" do
+          it "is true" do
+            array = %i[a b c]
+            search = :a
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+
+        context "at the end" do
+          it "is true" do
+            array = %i[a b c]
+            search = :c
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+      end
+
+      context "against a different value" do
+        it "is false" do
+          array = %i[a b c]
+          search = :z
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_false
+        end
+      end
+
+      context "against a matching type" do
+        it "is true" do
+          array = %i[a b c]
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(Symbol)
+          matcher.match?(partial).should be_true
+        end
+
+        context "at the beginning" do
+          it "is true" do
+            array = [:a, 1, 2]
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(Symbol)
+            matcher.match?(partial).should be_true
+          end
+        end
+
+        context "at the end" do
+          it "is true" do
+            array = [0, 1, :c]
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(Symbol)
+            matcher.match?(partial).should be_true
+          end
+        end
+      end
+
+      context "against a non-matching type" do
+        it "is false" do
+          array = %i[a b c]
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(Int32)
+          matcher.match?(partial).should be_false
+        end
+      end
+
+      context "against a matching regex" do
+        it "is true" do
+          array = %w[FOO BAR BAZ]
+          search = /bar/i
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_true
+        end
+
+        context "at the beginning" do
+          it "is true" do
+            array = %w[FOO BAR BAZ]
+            search = /foo/i
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+
+        context "at the end" do
+          it "is true" do
+            array = %w[FOO BAR BAZ]
+            search = /baz/i
+            partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+            matcher = Spectator::Matchers::HaveMatcher.new(search)
+            matcher.match?(partial).should be_true
+          end
+        end
+      end
+
+      context "against a non-matching regex" do
+        it "is false" do
+          array = %w[FOO BAR BAZ]
+          search = /qux/i
+          partial = Spectator::Expectations::ValueExpectationPartial.new(array)
+          matcher = Spectator::Matchers::HaveMatcher.new(search)
+          matcher.match?(partial).should be_false
+        end
+      end
+    end
+  end
+
+  describe "#message" do
+    it "contains the actual label" do
+      value = "foobar"
+      search = "baz"
+      label = "everything"
+      partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
+      matcher = Spectator::Matchers::HaveMatcher.new(search)
+      matcher.message(partial).should contain(label)
+    end
+
+    it "contains the expected label" do
+      value = "foobar"
+      search = "baz"
+      label = "everything"
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::HaveMatcher.new(label, search)
+      matcher.message(partial).should contain(label)
+    end
+
+    context "when expected label is omitted" do
+      it "contains stringified form of expected value" do
+        value = "foobar"
+        search = "baz"
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::HaveMatcher.new(search)
+        matcher.message(partial).should contain(search)
+      end
+    end
+  end
+
+  describe "#negated_message" do
+    it "contains the actual label" do
+      value = "foobar"
+      search = "baz"
+      label = "everything"
+      partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
+      matcher = Spectator::Matchers::HaveMatcher.new(search)
+      matcher.negated_message(partial).should contain(label)
+    end
+
+    it "contains the expected label" do
+      value = "foobar"
+      search = "baz"
+      label = "everything"
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::HaveMatcher.new(label, search)
+      matcher.negated_message(partial).should contain(label)
+    end
+
+    context "when expected label is omitted" do
+      it "contains stringified form of expected value" do
+        value = "foobar"
+        search = "baz"
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::HaveMatcher.new(search)
+        matcher.negated_message(partial).should contain(search)
+      end
+    end
+  end
+end