pangea-core 0.1.0 → 0.3.0

data/vendor/bundle/ruby/3.3.0/gems/diff-lcs-1.6.2/spec/patch_spec.rb

@@ -0,0 +1,416 @@
+# frozen_string_literal: true
+
+require "spec_helper"
+
+describe "Diff::LCS.patch" do
+  include Diff::LCS::SpecHelper::Matchers
+
+  shared_examples "patch sequences correctly" do
+    it "correctly patches left-to-right (patch autodiscovery)" do
+      expect(Diff::LCS.patch(s1, patch_set)).to eq(s2)
+    end
+
+    it "correctly patches left-to-right (explicit patch)" do
+      expect(Diff::LCS.patch(s1, patch_set, :patch)).to eq(s2)
+      expect(Diff::LCS.patch!(s1, patch_set)).to eq(s2)
+    end
+
+    it "correctly patches right-to-left (unpatch autodiscovery)" do
+      expect(Diff::LCS.patch(s2, patch_set)).to eq(s1)
+    end
+
+    it "correctly patches right-to-left (explicit unpatch)" do
+      expect(Diff::LCS.patch(s2, patch_set, :unpatch)).to eq(s1)
+      expect(Diff::LCS.unpatch!(s2, patch_set)).to eq(s1)
+    end
+  end
+
+  describe "using a Diff::LCS.diff patchset" do
+    describe "an empty patchset returns the source" do
+      it "works on a string (hello)" do
+        diff = Diff::LCS.diff(hello, hello)
+        expect(Diff::LCS.patch(hello, diff)).to eq(hello)
+      end
+
+      it "works on an array %W(h e l l o)" do
+        diff = Diff::LCS.diff(hello_ary, hello_ary)
+        expect(Diff::LCS.patch(hello_ary, diff)).to eq(hello_ary)
+      end
+    end
+
+    describe "with default diff callbacks (DiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) { Diff::LCS.diff(seq1, seq2) }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) { Diff::LCS.diff(seq2, seq1) }
+        end
+      end
+    end
+
+    describe "with context diff callbacks (ContextDiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) {
+            Diff::LCS.diff(seq1, seq2, Diff::LCS::ContextDiffCallbacks)
+          }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) {
+            Diff::LCS.diff(seq2, seq1, Diff::LCS::ContextDiffCallbacks)
+          }
+        end
+      end
+    end
+
+    describe "with sdiff callbacks (SDiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) {
+            Diff::LCS.diff(seq1, seq2, Diff::LCS::SDiffCallbacks)
+          }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) {
+            Diff::LCS.diff(seq2, seq1, Diff::LCS::SDiffCallbacks)
+          }
+        end
+      end
+    end
+  end
+
+  describe "using a Diff::LCS.sdiff patchset" do
+    describe "an empty patchset returns the source" do
+      it "works on a string (hello)" do
+        expect(Diff::LCS.patch(hello, Diff::LCS.sdiff(hello, hello))).to eq(hello)
+      end
+
+      it "works on an array %W(h e l l o)" do
+        expect(Diff::LCS.patch(hello_ary, Diff::LCS.sdiff(hello_ary, hello_ary))).to eq(hello_ary)
+      end
+    end
+
+    describe "with default diff callbacks (DiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) {
+            Diff::LCS.sdiff(seq1, seq2, Diff::LCS::DiffCallbacks)
+          }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) {
+            Diff::LCS.sdiff(seq2, seq1, Diff::LCS::DiffCallbacks)
+          }
+        end
+      end
+    end
+
+    describe "with context diff callbacks (DiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) {
+            Diff::LCS.sdiff(seq1, seq2, Diff::LCS::ContextDiffCallbacks)
+          }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) {
+            Diff::LCS.sdiff(seq2, seq1, Diff::LCS::ContextDiffCallbacks)
+          }
+        end
+      end
+    end
+
+    describe "with sdiff callbacks (SDiffCallbacks)" do
+      describe "forward (s1 -> s2)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq1 }
+          let(:s2) { seq2 }
+          let(:patch_set) { Diff::LCS.sdiff(seq1, seq2) }
+        end
+      end
+
+      describe "reverse (s2 -> s1)" do
+        it_has_behavior "patch sequences correctly" do
+          let(:s1) { seq2 }
+          let(:s2) { seq1 }
+          let(:patch_set) { Diff::LCS.sdiff(seq2, seq1) }
+        end
+      end
+    end
+  end
+
+  # Note: because of the error in autodiscovery ("does not autodiscover s1
+  # to s2 patches"), this cannot use the "patch sequences correctly" shared
+  # set. Once the bug in autodiscovery is fixed, this can be converted as
+  # above.
+  describe "fix bug 891: patchsets do not contain the last equal part" do
+    before :each do
+      @s1 = %w[a b c d   e f g h i j k] # standard:disable Layout/SpaceInsideArrayPercentLiteral
+      @s2 = %w[a b c d D e f g h i j k]
+    end
+
+    describe "using Diff::LCS.diff with default diff callbacks" do
+      before :each do
+        @patch_set_s1_s2 = Diff::LCS.diff(@s1, @s2)
+        @patch_set_s2_s1 = Diff::LCS.diff(@s2, @s1)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+
+    describe "using Diff::LCS.diff with context diff callbacks" do
+      before :each do
+        @patch_set_s1_s2 = Diff::LCS.diff(@s1, @s2, Diff::LCS::ContextDiffCallbacks)
+        @patch_set_s2_s1 = Diff::LCS.diff(@s2, @s1, Diff::LCS::ContextDiffCallbacks)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+
+    describe "using Diff::LCS.diff with sdiff callbacks" do
+      before(:each) do
+        @patch_set_s1_s2 = Diff::LCS.diff(@s1, @s2, Diff::LCS::SDiffCallbacks)
+        @patch_set_s2_s1 = Diff::LCS.diff(@s2, @s1, Diff::LCS::SDiffCallbacks)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+
+    describe "using Diff::LCS.sdiff with default sdiff callbacks" do
+      before(:each) do
+        @patch_set_s1_s2 = Diff::LCS.sdiff(@s1, @s2)
+        @patch_set_s2_s1 = Diff::LCS.sdiff(@s2, @s1)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+
+    describe "using Diff::LCS.sdiff with context diff callbacks" do
+      before(:each) do
+        @patch_set_s1_s2 = Diff::LCS.sdiff(@s1, @s2, Diff::LCS::ContextDiffCallbacks)
+        @patch_set_s2_s1 = Diff::LCS.sdiff(@s2, @s1, Diff::LCS::ContextDiffCallbacks)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+
+    describe "using Diff::LCS.sdiff with default diff callbacks" do
+      before(:each) do
+        @patch_set_s1_s2 = Diff::LCS.sdiff(@s1, @s2, Diff::LCS::DiffCallbacks)
+        @patch_set_s2_s1 = Diff::LCS.sdiff(@s2, @s1, Diff::LCS::DiffCallbacks)
+      end
+
+      it "autodiscovers s1 to s2 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s1_s2)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 patches" do
+        expect do
+          expect(Diff::LCS.patch(@s1, @patch_set_s2_s1)).to eq(@s2)
+        end.to_not raise_error
+      end
+
+      it "autodiscovers s2 to s1 the left-to-right patches" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1)).to eq(@s1)
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2)).to eq(@s1)
+      end
+
+      it "correctly patches left-to-right (explicit patch)" do
+        expect(Diff::LCS.patch(@s1, @patch_set_s1_s2, :patch)).to eq(@s2)
+        expect(Diff::LCS.patch(@s2, @patch_set_s2_s1, :patch)).to eq(@s1)
+        expect(Diff::LCS.patch!(@s1, @patch_set_s1_s2)).to eq(@s2)
+        expect(Diff::LCS.patch!(@s2, @patch_set_s2_s1)).to eq(@s1)
+      end
+
+      it "correctly patches right-to-left (explicit unpatch)" do
+        expect(Diff::LCS.patch(@s2, @patch_set_s1_s2, :unpatch)).to eq(@s1)
+        expect(Diff::LCS.patch(@s1, @patch_set_s2_s1, :unpatch)).to eq(@s2)
+        expect(Diff::LCS.unpatch!(@s2, @patch_set_s1_s2)).to eq(@s1)
+        expect(Diff::LCS.unpatch!(@s1, @patch_set_s2_s1)).to eq(@s2)
+      end
+    end
+  end
+end

data/vendor/bundle/ruby/3.3.0/gems/diff-lcs-1.6.2/spec/sdiff_spec.rb

@@ -0,0 +1,216 @@
+# frozen_string_literal: true
+
+require "spec_helper"
+
+describe "Diff::LCS.sdiff" do
+  include Diff::LCS::SpecHelper::Matchers
+
+  shared_examples "compare sequences correctly" do
+    it "compares s1 -> s2 correctly" do
+      expect(Diff::LCS.sdiff(s1, s2)).to eq(context_diff(result))
+    end
+
+    it "compares s2 -> s1 correctly" do
+      expect(Diff::LCS.sdiff(s2, s1)).to eq(context_diff(reverse_sdiff(result)))
+    end
+  end
+
+  describe "using seq1 & seq2" do
+    let(:s1) { seq1 }
+    let(:s2) { seq2 }
+    let(:result) { correct_forward_sdiff }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(abc def yyy xxx ghi jkl) & %w(abc dxf xxx ghi jkl)" do
+    let(:s1) { %w[abc def yyy xxx ghi jkl] }
+    let(:s2) { %w[abc dxf xxx ghi jkl] }
+    let(:result) {
+      # standard:disable Layout/ExtraSpacing
+      [
+        ["=", [0, "abc"], [0, "abc"]],
+        ["!", [1, "def"], [1, "dxf"]],
+        ["-", [2, "yyy"], [2,  nil]],
+        ["=", [3, "xxx"], [2, "xxx"]],
+        ["=", [4, "ghi"], [3, "ghi"]],
+        ["=", [5, "jkl"], [4, "jkl"]]
+      ]
+      # standard:enable Layout/ExtraSpacing
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a b c d e) & %w(a e)" do
+    let(:s1) { %w[a b c d e] }
+    let(:s2) { %w[a e] }
+    let(:result) {
+      [
+        ["=", [0, "a"], [0, "a"]],
+        ["-", [1, "b"], [1, nil]],
+        ["-", [2, "c"], [1, nil]],
+        ["-", [3, "d"], [1, nil]],
+        ["=", [4, "e"], [1, "e"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a e) & %w(a b c d e)" do
+    let(:s1) { %w[a e] }
+    let(:s2) { %w[a b c d e] }
+    let(:result) {
+      [
+        ["=", [0, "a"], [0, "a"]],
+        ["+", [1, nil], [1, "b"]],
+        ["+", [1, nil], [2, "c"]],
+        ["+", [1, nil], [3, "d"]],
+        ["=", [1, "e"], [4, "e"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(v x a e) & %w(w y a b c d e)" do
+    let(:s1) { %w[v x a e] }
+    let(:s2) { %w[w y a b c d e] }
+    let(:result) {
+      [
+        ["!", [0, "v"], [0, "w"]],
+        ["!", [1, "x"], [1, "y"]],
+        ["=", [2, "a"], [2, "a"]],
+        ["+", [3, nil], [3, "b"]],
+        ["+", [3, nil], [4, "c"]],
+        ["+", [3, nil], [5, "d"]],
+        ["=", [3, "e"], [6, "e"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(x a e) & %w(a b c d e)" do
+    let(:s1) { %w[x a e] }
+    let(:s2) { %w[a b c d e] }
+    let(:result) {
+      [
+        ["-", [0, "x"], [0, nil]],
+        ["=", [1, "a"], [0, "a"]],
+        ["+", [2, nil], [1, "b"]],
+        ["+", [2, nil], [2, "c"]],
+        ["+", [2, nil], [3, "d"]],
+        ["=", [2, "e"], [4, "e"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a e) & %w(x a b c d e)" do
+    let(:s1) { %w[a e] }
+    let(:s2) { %w[x a b c d e] }
+    let(:result) {
+      [
+        ["+", [0, nil], [0, "x"]],
+        ["=", [0, "a"], [1, "a"]],
+        ["+", [1, nil], [2, "b"]],
+        ["+", [1, nil], [3, "c"]],
+        ["+", [1, nil], [4, "d"]],
+        ["=", [1, "e"], [5, "e"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a e v) & %w(x a b c d e w x)" do
+    let(:s1) { %w[a e v] }
+    let(:s2) { %w[x a b c d e w x] }
+    let(:result) {
+      [
+        ["+", [0, nil], [0, "x"]],
+        ["=", [0, "a"], [1, "a"]],
+        ["+", [1, nil], [2, "b"]],
+        ["+", [1, nil], [3, "c"]],
+        ["+", [1, nil], [4, "d"]],
+        ["=", [1, "e"], [5, "e"]],
+        ["!", [2, "v"], [6, "w"]],
+        ["+", [3, nil], [7, "x"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w() & %w(a b c)" do
+    let(:s1) { %w[] }
+    let(:s2) { %w[a b c] }
+    let(:result) {
+      [
+        ["+", [0, nil], [0, "a"]],
+        ["+", [0, nil], [1, "b"]],
+        ["+", [0, nil], [2, "c"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a b c) & %w(1)" do
+    let(:s1) { %w[a b c] }
+    let(:s2) { %w[1] }
+    let(:result) {
+      [
+        ["!", [0, "a"], [0, "1"]],
+        ["-", [1, "b"], [1, nil]],
+        ["-", [2, "c"], [1, nil]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(a b c) & %w(c)" do
+    let(:s1) { %w[a b c] }
+    let(:s2) { %w[c] }
+    let(:result) {
+      [
+        ["-", [0, "a"], [0, nil]],
+        ["-", [1, "b"], [0, nil]],
+        ["=", [2, "c"], [0, "c"]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using %w(abcd efgh ijkl mnop) & []" do
+    let(:s1) { %w[abcd efgh ijkl mnop] }
+    let(:s2) { [] }
+    let(:result) {
+      [
+        ["-", [0, "abcd"], [0, nil]],
+        ["-", [1, "efgh"], [0, nil]],
+        ["-", [2, "ijkl"], [0, nil]],
+        ["-", [3, "mnop"], [0, nil]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+
+  describe "using [[1,2]] & []" do
+    let(:s1) { [[1, 2]] }
+    let(:s2) { [] }
+    let(:result) {
+      [
+        ["-", [0, [1, 2]], [0, nil]]
+      ]
+    }
+
+    it_has_behavior "compare sequences correctly"
+  end
+end