opal-connect-rspec 0.5.0

data/rspec-expectations/spec/rspec/matchers/built_in/contain_exactly_spec.rb

@@ -0,0 +1,556 @@
+require 'timeout'
+
+class UnsortableObject
+  def initialize(id)
+    @id = id
+  end
+
+  def inspect
+    @id.to_s
+  end
+
+  def ==(other)
+    false
+  end
+end
+
+# AR::Relation is meant to act like a collection, but does
+# not include `Enumerable`. It does implement `to_ary`.
+class FakeActiveRecordRelation
+  def initialize(records)
+    @records = records
+  end
+
+  def to_ary
+    @records
+  end
+end
+
+RSpec.describe "should =~ array", :uses_should do
+  it "passes a valid positive expectation" do
+    [1, 2].should =~ [2, 1]
+  end
+
+  it "fails an invalid positive expectation" do
+    expect {
+      [1, 2, 3].should =~ [2, 1]
+    }.to fail_with(/expected collection contained/)
+  end
+
+  context "when the array defines a `=~` method" do
+    it 'delegates to that method rather than using the contain_exactly matcher' do
+      array = []
+      def array.=~(other)
+        other == :foo
+      end
+
+      array.should =~ :foo
+      expect {
+        array.should =~ :bar
+      }.to fail_with(/expected: :bar/)
+    end
+  end
+
+  context 'when the array defines a `send` method' do
+    it 'still works' do
+      array = [1, 2]
+      def array.send; :sent; end
+
+      array.should =~ array
+    end
+  end
+
+  context "when the array undefines `=~`" do
+    it 'still works' do
+      array_klass = Class.new(Array) { undef =~ }
+      array = array_klass.new([1, 2])
+
+      array.should =~ [1, 2]
+
+      expect {
+        array.should =~ [0, 1, 2]
+      }.to fail_with(/expected collection contained/)
+    end
+  end
+end
+
+RSpec.describe "should_not =~ [:with, :multiple, :args]", :uses_should do
+  it "fails when the arrays match" do
+    expect {
+      [1,2,3].should_not =~ [1,2,3]
+    }.to fail_with "expected [1, 2, 3] not to contain exactly 1, 2, and 3"
+  end
+
+  it "fails when the arrays match in a different order" do
+    expect {
+      [1,3,2].should_not =~ [1,2,3]
+    }.to fail_with "expected [1, 3, 2] not to contain exactly 1, 2, and 3"
+  end
+
+  it "passes when there are extra elements in the array" do
+    [1,3].should_not =~ [1,2,3]
+  end
+
+  it "passes when there are elements missing from the array" do
+    [1,2,3,4].should_not =~ [1,2,3]
+  end
+end
+
+RSpec.describe "using contain_exactly with expect" do
+  it "passes a valid positive expectation" do
+    expect([1, 2]).to contain_exactly(2, 1)
+  end
+
+  it "fails an invalid positive expectation" do
+    expect {
+      expect([1, 2, 3]).to contain_exactly(2, 1)
+    }.to fail_with(/expected collection contained/)
+  end
+
+  it "passes for an out of order valid positive expectation with hashes" do
+    expect([
+      {:a => 10},
+      {:a => -10}
+    ]).to contain_exactly(
+      {:a => (a_value < 0)},
+      {:a => (a_value > 0)}
+    )
+  end
+
+  it "passes for an in order valid positive expectation with hashes" do
+    expect([
+      {:a => 10},
+      {:a => -10}
+    ]).to contain_exactly(
+      {:a => (a_value > 0)},
+      {:a => (a_value < 0)}
+    )
+  end
+end
+
+RSpec.describe "expect(array).to contain_exactly(*other_array)" do
+  it_behaves_like "an RSpec matcher", :valid_value => [1, 2], :invalid_value => [1] do
+    let(:matcher) { contain_exactly(2, 1) }
+  end
+
+  it 'is also exposed as `match_array` (with unsplatted args)' do
+    expect([1, 2, 3]).to match_array([3, 2, 1])
+  end
+
+  it "passes if target contains all items" do
+    expect([1,2,3]).to contain_exactly(1,2,3)
+  end
+
+  it "passes if target contains all items out of order" do
+    expect([1,3,2]).to contain_exactly(1,2,3)
+  end
+
+  it 'fails if the expected array is empty and the actual array is non-empty' do
+    expect {
+      expect([1]).to contain_exactly()
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  []
+actual collection contained:    [1]
+the extra elements were:        [1]
+MESSAGE
+  end
+
+  it 'fails if the actual array is empty and the expected array is non-empty' do
+    expect {
+      expect([]).to contain_exactly(1)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1]
+actual collection contained:    []
+the missing elements were:      [1]
+MESSAGE
+  end
+
+  def timeout_if_not_debugging(time)
+    return yield if defined?(::Debugger)
+    Timeout.timeout(time) { yield }
+  end
+
+  it 'fails a match of 11 items with duplicates in a reasonable amount of time' do
+    timeout_if_not_debugging(0.1) do
+      expected = [0, 1, 1,    3, 3, 3,    4, 4,    8, 8, 9   ]
+      actual   = [   1,    2, 3, 3, 3, 3,       7, 8, 8, 9, 9]
+
+      expect {
+        expect(actual).to contain_exactly(*expected)
+      }.to fail_matching("the missing elements were:      [0, 1, 4, 4]")
+    end
+  end
+
+  it "fails if target includes extra items" do
+    expect {
+      expect([1,2,3,4]).to contain_exactly(1,2,3)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 2, 3]
+actual collection contained:    [1, 2, 3, 4]
+the extra elements were:        [4]
+MESSAGE
+  end
+
+  it "fails if target is missing items" do
+    expect {
+      expect([1,2]).to contain_exactly(1,2,3)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 2, 3]
+actual collection contained:    [1, 2]
+the missing elements were:      [3]
+MESSAGE
+  end
+
+  it "fails if target is missing items and has extra items" do
+    expect {
+      expect([1,2,4]).to contain_exactly(1,2,3)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 2, 3]
+actual collection contained:    [1, 2, 4]
+the missing elements were:      [3]
+the extra elements were:        [4]
+MESSAGE
+  end
+
+  it "sorts items in the error message if they all respond to <=>" do
+    expect {
+      expect([6,2,1,5]).to contain_exactly(4,1,2,3)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 2, 3, 4]
+actual collection contained:    [1, 2, 5, 6]
+the missing elements were:      [3, 4]
+the extra elements were:        [5, 6]
+MESSAGE
+  end
+
+    it "does not sort items in the error message if they don't all respond to <=>" do
+      expect {
+        expect([UnsortableObject.new(2), UnsortableObject.new(1)]).to contain_exactly(UnsortableObject.new(4), UnsortableObject.new(3))
+      }.to fail_with(<<-MESSAGE)
+expected collection contained:  [4, 3]
+actual collection contained:    [2, 1]
+the missing elements were:      [4, 3]
+the extra elements were:        [2, 1]
+MESSAGE
+    end
+
+  it "accurately reports extra elements when there are duplicates" do
+    expect {
+      expect([1,1,1,5]).to contain_exactly(1,5)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 5]
+actual collection contained:    [1, 1, 1, 5]
+the extra elements were:        [1, 1]
+MESSAGE
+  end
+
+  it "accurately reports missing elements when there are duplicates" do
+    expect {
+      expect([1,5]).to contain_exactly(1,1,5)
+    }.to fail_with(<<-MESSAGE)
+expected collection contained:  [1, 1, 5]
+actual collection contained:    [1, 5]
+the missing elements were:      [1]
+MESSAGE
+  end
+end
+
+RSpec.describe "expect(...).not_to contain_exactly(:with, :multiple, :args)" do
+  it "fails when the arrays match" do
+    expect {
+      expect([1,2,3]).not_to contain_exactly(1,2,3)
+    }.to fail_with "expected [1, 2, 3] not to contain exactly 1, 2, and 3"
+  end
+
+  it "fails when the arrays match in a different order" do
+    expect {
+      expect([1,3,2]).not_to contain_exactly(1,2,3)
+    }.to fail_with "expected [1, 3, 2] not to contain exactly 1, 2, and 3"
+  end
+
+  it "passes when there are extra elements in the array" do
+    expect([1,3]).not_to contain_exactly(1,2,3)
+  end
+
+  it "passes when there are elements missing from the array" do
+    expect([1,2,3,4]).not_to contain_exactly(1,2,3)
+  end
+end
+
+RSpec.describe "matching against things that aren't arrays" do
+  it "fails with nil and the expected error message is given" do
+    expect {
+      expect(nil).to contain_exactly(1, 2, 3)
+    }.to fail_with(/expected a collection/)
+  end
+
+  it "fails with a float and the expected error message is given" do
+    expect {
+      expect(3.7).to contain_exactly(1, 2, 3)
+    }.to fail_with(/expected a collection/)
+  end
+
+  it "fails with a string and the expected error message is given" do
+    expect {
+      expect("I like turtles").to contain_exactly(1, 2, 3)
+    }.to fail_with(/expected a collection/)
+  end
+
+  it 'works with other collection types' do
+    expect(Set.new([3, 2, 1])).to contain_exactly(1, 2, 3)
+    expect {
+      expect(Set.new([3, 2, 1])).to contain_exactly(1, 2)
+    }.to fail_matching("expected collection contained:  [1, 2]")
+  end
+
+  it 'works with non-enumerables that implement `to_ary`' do
+    relation = FakeActiveRecordRelation.new([1, 2, 3])
+    expect(relation).to contain_exactly(2, 1, 3)
+    expect {
+      expect(relation).to contain_exactly(1, 2)
+    }.to fail_matching("expected collection contained:  [1, 2]")
+  end
+end
+
+RSpec.describe "Composing `contain_exactly` with other matchers" do
+  context "when it is compared to multiple possible matches" do
+    it 'works properly when passed as an argument in its aliased form' do
+      expect([[1, 3], ["food", "barn"]]).to include(
+        a_collection_containing_exactly(/foo/, /bar/)
+      )
+    end
+  end
+
+  describe "expect(...).to contain_exactly(matcher, matcher)" do
+    it 'passes when the array matches the matchers in the same order' do
+      expect(["food", "barn"]).to contain_exactly(
+        a_string_matching(/foo/),
+        a_string_matching(/bar/)
+      )
+    end
+
+    it 'passes when the array matches the matchers in a different order' do
+      expect(["food", "barn"]).to contain_exactly(
+        a_string_matching(/bar/),
+        a_string_matching(/foo/)
+      )
+    end
+
+    it 'fails with a useful message when there is an extra element' do
+      expect {
+        expect(["food", "barn", "goo"]).to contain_exactly(
+          a_string_matching(/bar/),
+          a_string_matching(/foo/)
+        )
+      }.to fail_with(dedent <<-EOS)
+        |expected collection contained:  [(a string matching /bar/), (a string matching /foo/)]
+        |actual collection contained:    ["barn", "food", "goo"]
+        |the extra elements were:        ["goo"]
+        |
+      EOS
+    end
+
+    it 'fails with a useful message when there is a missing element' do
+      expect {
+        expect(["food", "barn"]).to contain_exactly(
+          a_string_matching(/bar/),
+          a_string_matching(/foo/),
+          a_string_matching(/goo/)
+        )
+      }.to fail_with(dedent <<-EOS)
+        |expected collection contained:  [(a string matching /bar/), (a string matching /foo/), (a string matching /goo/)]
+        |actual collection contained:    ["barn", "food"]
+        |the missing elements were:      [(a string matching /goo/)]
+        |
+      EOS
+    end
+
+    it 'pairs up the items in order to minimize the number of unpaired items' do
+      expect {
+        expect(["fool", "food", "good"]).to contain_exactly(/foo/, /fool/, /poo/)
+      }.to fail_with(dedent <<-EOS)
+        |expected collection contained:  [/foo/, /fool/, /poo/]
+        |actual collection contained:    ["food", "fool", "good"]
+        |the missing elements were:      [/poo/]
+        |the extra elements were:        ["good"]
+        |
+      EOS
+    end
+
+    it 'provides a description' do
+      description = contain_exactly(a_string_matching(/bar/), a_string_matching(/foo/)).description
+      expect(description).to eq("contain exactly (a string matching /bar/) and (a string matching /foo/)")
+    end
+
+    context 'when an earlier matcher matches more strictly than a later matcher' do
+      it 'works when the actual items match in the same order' do
+        expect(["food", "fool"]).to contain_exactly(a_string_matching(/foo/), a_string_matching(/fool/))
+      end
+
+      it 'works when the actual items match in reverse order' do
+        expect(["fool", "food"]).to contain_exactly(a_string_matching(/foo/), a_string_matching(/fool/))
+      end
+
+      it 'can handle multiple sets of overlapping matches' do
+        expect(["fool", "barn", "bare", "food"]).to contain_exactly(
+          a_string_matching(/bar/),
+          a_string_matching(/barn/),
+          a_string_matching(/foo/),
+          a_string_matching(/fool/)
+        )
+      end
+    end
+
+    it "can use `a_value_within` and `a_string_starting_with` against multiple types of values" do
+      expect(["barn", 2.45]).to contain_exactly(
+        a_value_within(0.1).of(2.5),
+        a_string_starting_with("bar")
+      )
+    end
+
+    context 'when a later matcher matches more strictly than an earlier matcher' do
+      it 'works when the actual items match in the same order' do
+        expect(["fool", "food"]).to contain_exactly(a_string_matching(/fool/), a_string_matching(/foo/))
+      end
+
+      it 'works when the actual items match in reverse order' do
+        expect(["food", "fool"]).to contain_exactly(a_string_matching(/fool/), a_string_matching(/foo/))
+      end
+    end
+  end
+
+  describe "expect(...).to_not contain_exactly(matcher, matcher)" do
+    it 'fails when the array matches the matchers' do
+      expect {
+        expect(["food", "barn"]).to_not contain_exactly(
+          a_string_matching(/bar/),
+          a_string_matching(/foo/)
+        )
+      }.to fail_with %Q{expected ["food", "barn"] not to contain exactly }+
+                     %Q{(a string matching /bar/) and (a string matching /foo/)}
+    end
+
+    it 'passes when there is an extra element' do
+      expect(["food", "barn", "goo"]).to_not contain_exactly(
+        a_string_matching(/bar/),
+        a_string_matching(/foo/)
+      )
+    end
+
+    it 'passes when there is a missing element' do
+      expect(["food", "barn"]).to_not contain_exactly(
+        a_string_matching(/bar/),
+        a_string_matching(/foo/),
+        a_string_matching(/goo/)
+      )
+    end
+
+  end
+end
+
+module RSpec
+  module Matchers
+    module BuiltIn
+      class ContainExactly
+        RSpec.describe PairingsMaximizer do
+          it 'finds unmatched expected indexes' do
+            maximizer = PairingsMaximizer.new({ 0 => [], 1 => [0] }, { 0 => [1] })
+            expect(maximizer.solution.unmatched_expected_indexes).to eq([0])
+          end
+
+          it 'finds unmatched actual indexes' do
+            maximizer = PairingsMaximizer.new({ 0 => [0] }, { 0 => [0], 1 => [] })
+            expect(maximizer.solution.unmatched_actual_indexes).to eq([1])
+          end
+
+          describe "finding indeterminate indexes" do
+            it 'does not include unmatched indexes' do
+              maximizer = PairingsMaximizer.new({ 0 => [], 1 => [0] }, { 0 => [1], 1 => [] })
+
+              expect(maximizer.solution.indeterminate_expected_indexes).not_to include(0)
+              expect(maximizer.solution.indeterminate_actual_indexes).not_to include(1)
+            end
+
+            it 'does not include indexes that are reciprocally to exactly one index' do
+              maximizer = PairingsMaximizer.new({ 0 => [], 1 => [0] }, { 0 => [1], 1 => [0] })
+
+              expect(maximizer.solution.indeterminate_expected_indexes).not_to include(1)
+              expect(maximizer.solution.indeterminate_actual_indexes).not_to include(0)
+            end
+
+            it 'includes indexes that have multiple matches' do
+              maximizer = PairingsMaximizer.new({ 0 => [0, 2], 1 => [0, 2], 2 => [] },
+                                                { 0 => [0, 1], 1 => [], 2 => [0, 1] })
+
+
+              expect(maximizer.solution.indeterminate_expected_indexes).to include(0, 1)
+              expect(maximizer.solution.indeterminate_actual_indexes).to include(0, 2)
+            end
+
+            it 'includes indexes that have one match which has multiple matches' do
+              maximizer = PairingsMaximizer.new({ 0 => [0], 1 => [0], 2 => [1, 2] },
+                                                { 0 => [0, 1], 1 => [2], 2 => [2] })
+
+              expect(maximizer.solution.indeterminate_expected_indexes).to include(0, 1)
+              expect(maximizer.solution.indeterminate_actual_indexes).to include(1, 2)
+            end
+          end
+
+          describe "#unmatched_item_count" do
+            it 'returns the count of unmatched items' do
+              maximizer = PairingsMaximizer.new({ 0 => [1], 1 => [0] },
+                                                { 0 => [1], 1 => [0] })
+              expect(maximizer.solution.unmatched_item_count).to eq(0)
+
+              maximizer = PairingsMaximizer.new({ 0 => [1], 1 => [0] },
+                                                { 0 => [1], 1 => [0], 2 => [] })
+              expect(maximizer.solution.unmatched_item_count).to eq(1)
+            end
+          end
+
+          describe "#find_best_solution" do
+            matcher :produce_result do |unmatched_expected, unmatched_actual|
+              match do |result|
+                result.candidate? &&
+                result.unmatched_expected_indexes == unmatched_expected &&
+                result.unmatched_actual_indexes   == unmatched_actual
+              end
+
+              failure_message do |result|
+                if result.candidate_result?
+                  "expected a complete solution, but still had indeterminate indexes: " +
+                  "expected: #{result.indeterminate_expected_indexes.inspect}; " +
+                  "actual: #{result.indeterminate_actual_indexes.inspect}"
+                elsif result.unmatched_expected_indexes != unmatched_expected
+                  "expected unmatched_expected_indexes: #{unmatched_expected.inspect} " +
+                  "but got: #{result.unmatched_expected_indexes.inspect}"
+                elsif result.unmatched_actual_indexes != unmatched_actual
+                  "expected unmatched_actual_indexes: #{unmatched_actual.inspect} " +
+                  "but got: #{result.unmatched_actual_indexes.inspect}"
+                end
+              end
+            end
+
+            it 'returns no unmatched indexes when everything reciprocally matches one item' do
+              maximizer = PairingsMaximizer.new({ 0 => [1], 1 => [0] },
+                                                { 0 => [1], 1 => [0] })
+              expect(maximizer.find_best_solution).to produce_result([], [])
+            end
+
+            it 'returns unmatched indexes for everything that has no matches' do
+              maximizer = PairingsMaximizer.new({ 0 => [], 1 => [0] },
+                                                { 0 => [1], 1 => [] })
+              expect(maximizer.find_best_solution).to produce_result([0], [1])
+            end
+
+            it 'searches the solution space for a perfectly matching solution' do
+              maximizer = PairingsMaximizer.new({ 0 => [0, 1], 1 => [0] },
+                                                { 0 => [0, 1], 1 => [0] })
+              expect(maximizer.find_best_solution).to produce_result([], [])
+            end
+          end
+        end
+      end
+    end
+  end
+end