From 12864492b72d8b8e0b3ccc18630bd64a9c746a5e Mon Sep 17 00:00:00 2001
From: Michael Miller <icy.arctic.fox@gmail.com>
Date: Fri, 25 Jan 2019 13:52:41 -0700
Subject: [PATCH] Add spec for range modifier methods

---
 spec/matchers/range_matcher_spec.cr | 547 +++++++++++++++++++++++++++-
 1 file changed, 529 insertions(+), 18 deletions(-)

diff --git a/spec/matchers/range_matcher_spec.cr b/spec/matchers/range_matcher_spec.cr
index fe0332b..8a3b583 100644
--- a/spec/matchers/range_matcher_spec.cr
+++ b/spec/matchers/range_matcher_spec.cr
@@ -137,56 +137,567 @@ describe Spectator::Matchers::RangeMatcher do
 
   describe "#message" do
     it "contains the actual label" do
-      value = 42
+      range = 1..10
+      value = 5
       label = "everything"
       partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
-      matcher = Spectator::Matchers::RangeMatcher.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(range)
       matcher.message(partial).should contain(label)
     end
 
     it "contains the expected label" do
-      value = 42
+      range = 1..10
+      value = 5
       label = "everything"
       partial = Spectator::Expectations::ValueExpectationPartial.new(value)
-      matcher = Spectator::Matchers::RangeMatcher.new(label, value)
+      matcher = Spectator::Matchers::RangeMatcher.new(label, range)
       matcher.message(partial).should contain(label)
     end
 
     context "when expected label is omitted" do
       it "contains stringified form of expected value" do
-        value1 = 42
-        value2 = 777
-        partial = Spectator::Expectations::ValueExpectationPartial.new(value1)
-        matcher = Spectator::Matchers::RangeMatcher.new(value2)
-        matcher.message(partial).should contain(value2.to_s)
+        range = 1..10
+        value = 5
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range)
+        matcher.message(partial).should contain(range.to_s)
       end
     end
   end
 
   describe "#negated_message" do
     it "contains the actual label" do
-      value = 42
+      range = 1..10
+      value = 5
       label = "everything"
       partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
-      matcher = Spectator::Matchers::RangeMatcher.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(range)
       matcher.negated_message(partial).should contain(label)
     end
 
     it "contains the expected label" do
-      value = 42
+      range = 1..10
+      value = 5
       label = "everything"
       partial = Spectator::Expectations::ValueExpectationPartial.new(value)
-      matcher = Spectator::Matchers::RangeMatcher.new(label, value)
+      matcher = Spectator::Matchers::RangeMatcher.new(label, range)
       matcher.negated_message(partial).should contain(label)
     end
 
     context "when expected label is omitted" do
       it "contains stringified form of expected value" do
-        value1 = 42
-        value2 = 777
-        partial = Spectator::Expectations::ValueExpectationPartial.new(value1)
-        matcher = Spectator::Matchers::RangeMatcher.new(value2)
-        matcher.negated_message(partial).should contain(value2.to_s)
+        range = 1..10
+        value = 5
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range)
+        matcher.negated_message(partial).should contain(range.to_s)
+      end
+    end
+  end
+
+  describe "#of" do
+    it "is true for lower-bound" do
+      center = 5
+      diff = 4
+      lower = center - diff
+      value = lower
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+      matcher.match?(partial).should be_true
+    end
+
+    it "is false for lower-bound minus 1" do
+      center = 5
+      diff = 4
+      lower = center - diff
+      value = lower - 1
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+      matcher.match?(partial).should be_false
+    end
+
+    it "is true for mid-range" do
+      center = 5
+      diff = 4
+      value = center
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+      matcher.match?(partial).should be_true
+    end
+
+    it "is true for upper-bound" do
+      center = 5
+      diff = 4
+      upper = center + diff
+      value = upper
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+      matcher.match?(partial).should be_true
+    end
+
+    it "is false for upper-bound plus 1" do
+      center = 5
+      diff = 4
+      upper = center + diff
+      value = upper + 1
+      partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+      matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+      matcher.match?(partial).should be_false
+    end
+
+    describe "#message" do
+      it "contains the original label" do
+        center = 5
+        diff = 4
+        value = 3
+        label = "foobar"
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(label, diff).of(center)
+        matcher.message(partial).should contain(label)
+      end
+
+      it "contains the center" do
+        center = 5
+        diff = 4
+        value = 3
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+        matcher.message(partial).should contain(center.to_s)
+      end
+
+      it "contains the diff" do
+        center = 5
+        diff = 4
+        value = 3
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+        matcher.message(partial).should contain(diff.to_s)
+      end
+    end
+
+    describe "#negated_message" do
+      it "contains the original label" do
+        center = 5
+        diff = 4
+        value = 3
+        label = "foobar"
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(label, diff).of(center)
+        matcher.negated_message(partial).should contain(label)
+      end
+
+      it "contains the center" do
+        center = 5
+        diff = 4
+        value = 3
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+        matcher.negated_message(partial).should contain(center.to_s)
+      end
+
+      it "contains the diff" do
+        center = 5
+        diff = 4
+        value = 3
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(diff).of(center)
+        matcher.negated_message(partial).should contain(diff.to_s)
+      end
+    end
+  end
+
+  describe "#inclusive" do
+    context "initially exclusive" do
+      it "is true for lower-bound" do
+        lower = 3
+        upper = 9
+        value = lower
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for lower-bound minus 1" do
+        lower = 3
+        upper = 9
+        value = lower - 1
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is true for mid-range" do
+        lower = 3
+        upper = 9
+        value = 5
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is true for upper-bound" do
+        lower = 3
+        upper = 9
+        value = upper
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for upper-bound plus 1" do
+        lower = 3
+        upper = 9
+        value = upper + 1
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_false
+      end
+
+      describe "#message" do
+        it "mentions inclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.message(partial).should contain("inclusive")
+        end
+
+        it "does not mention exclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.message(partial).should_not contain("exclusive")
+        end
+
+        it "contains the original label" do
+          range = 1...10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).inclusive
+          matcher.message(partial).should contain(label)
+        end
+      end
+
+      describe "#negated_message" do
+        it "mentions inclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.negated_message(partial).should contain("inclusive")
+        end
+
+        it "does not mention exclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.negated_message(partial).should_not contain("exclusive")
+        end
+
+        it "contains the original label" do
+          range = 1...10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).inclusive
+          matcher.negated_message(partial).should contain(label)
+        end
+      end
+    end
+
+    context "initially inclusive" do
+      it "is true for lower-bound" do
+        lower = 3
+        upper = 9
+        value = lower
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for lower-bound minus 1" do
+        lower = 3
+        upper = 9
+        value = lower - 1
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is true for mid-range" do
+        lower = 3
+        upper = 9
+        value = 5
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is true for upper-bound" do
+        lower = 3
+        upper = 9
+        value = upper
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for upper-bound plus 1" do
+        lower = 3
+        upper = 9
+        value = upper + 1
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+        matcher.match?(partial).should be_false
+      end
+
+      describe "#message" do
+        it "mentions inclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.message(partial).should contain("inclusive")
+        end
+
+        it "contains the original label" do
+          range = 1..10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).inclusive
+          matcher.message(partial).should contain(label)
+        end
+      end
+
+      describe "#negated_message" do
+        it "mentions inclusive" do
+          range = 1..10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).inclusive
+          matcher.negated_message(partial).should contain("inclusive")
+        end
+
+        it "contains the original label" do
+          range = 1...10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).inclusive
+          matcher.negated_message(partial).should contain(label)
+        end
+      end
+    end
+  end
+
+  describe "#exclusive" do
+    context "initially inclusive" do
+      it "is true for lower-bound" do
+        lower = 3
+        upper = 9
+        value = lower
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for lower-bound minus 1" do
+        lower = 3
+        upper = 9
+        value = lower - 1
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is true for mid-range" do
+        lower = 3
+        upper = 9
+        value = 5
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for upper-bound" do
+        lower = 3
+        upper = 9
+        value = upper
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is false for upper-bound plus 1" do
+        lower = 3
+        upper = 9
+        value = upper + 1
+        range = Range.new(lower, upper, exclusive: false)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      describe "#message" do
+        it "mentions exclusive" do
+          range = 1..10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.message(partial).should contain("exclusive")
+        end
+
+        it "does not mention inclusive" do
+          range = 1..10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.message(partial).should_not contain("inclusive")
+        end
+
+        it "contains the original label" do
+          range = 1..10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).exclusive
+          matcher.message(partial).should contain(label)
+        end
+      end
+
+      describe "#negated_message" do
+        it "mentions exclusive" do
+          range = 1..10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.negated_message(partial).should contain("exclusive")
+        end
+
+        it "does not mention inclusive" do
+          range = 1..10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.negated_message(partial).should_not contain("inclusive")
+        end
+
+        it "contains the original label" do
+          range = 1..10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).exclusive
+          matcher.negated_message(partial).should contain(label)
+        end
+      end
+    end
+
+    context "initially exclusive" do
+      it "is true for lower-bound" do
+        lower = 3
+        upper = 9
+        value = lower
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for lower-bound minus 1" do
+        lower = 3
+        upper = 9
+        value = lower - 1
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is true for mid-range" do
+        lower = 3
+        upper = 9
+        value = 5
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_true
+      end
+
+      it "is false for upper-bound" do
+        lower = 3
+        upper = 9
+        value = upper
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      it "is false for upper-bound plus 1" do
+        lower = 3
+        upper = 9
+        value = upper + 1
+        range = Range.new(lower, upper, exclusive: true)
+        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+        matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+        matcher.match?(partial).should be_false
+      end
+
+      describe "#message" do
+        it "mentions exclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.message(partial).should contain("exclusive")
+        end
+
+        it "contains the original label" do
+          range = 1...10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).exclusive
+          matcher.message(partial).should contain(label)
+        end
+      end
+
+      describe "#negated_message" do
+        it "mentions exclusive" do
+          range = 1...10
+          value = 5
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(range).exclusive
+          matcher.negated_message(partial).should contain("exclusive")
+        end
+
+        it "contains the original label" do
+          range = 1...10
+          value = 5
+          label = "foobar"
+          partial = Spectator::Expectations::ValueExpectationPartial.new(value)
+          matcher = Spectator::Matchers::RangeMatcher.new(label, range).exclusive
+          matcher.negated_message(partial).should contain(label)
+        end
       end
     end
   end