shard-spectator/spec/matchers/range_matcher_spec.cr

require "../spec_helper"

describe Spectator::Matchers::RangeMatcher do
  describe "#match?" do
    it "compares using #includes?" do
      spy = SpySUT.new
      partial = Spectator::Expectations::ValueExpectationPartial.new(5)
      matcher = Spectator::Matchers::RangeMatcher.new(spy)
      matcher.match?(partial).should be_true
      spy.includes_call_count.should be > 0
    end

    context "given a Range" do
      context "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)
          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)
          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)
          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)
          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)
          matcher.match?(partial).should be_false
        end
      end

      context "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)
          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)
          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)
          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)
          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)
          matcher.match?(partial).should be_false
        end
      end
    end

    context "given an Enumerable" do
      it "is true for an existing item" do
        array = %i[a b c]
        value = :b
        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
        matcher = Spectator::Matchers::RangeMatcher.new(array)
        matcher.match?(partial).should be_true
      end

      it "is false for a non-existing item" do
        array = %i[a b c]
        value = :z
        partial = Spectator::Expectations::ValueExpectationPartial.new(value)
        matcher = Spectator::Matchers::RangeMatcher.new(array)
        matcher.match?(partial).should be_false
      end
    end
  end

  describe "#message" do
    it "contains the actual label" do
      range = 1..10
      value = 5
      label = "everything"
      partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
      matcher = Spectator::Matchers::RangeMatcher.new(range)
      matcher.message(partial).should contain(label)
    end

    it "contains the expected label" do
      range = 1..10
      value = 5
      label = "everything"
      partial = Spectator::Expectations::ValueExpectationPartial.new(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
        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
      range = 1..10
      value = 5
      label = "everything"
      partial = Spectator::Expectations::ValueExpectationPartial.new(label, value)
      matcher = Spectator::Matchers::RangeMatcher.new(range)
      matcher.negated_message(partial).should contain(label)
    end

    it "contains the expected label" do
      range = 1..10
      value = 5
      label = "everything"
      partial = Spectator::Expectations::ValueExpectationPartial.new(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
        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
end