xaiml 0.1.3 → 0.1.4

data/vendor/bundle/ruby/2.5.0/gems/diff-lcs-1.3/spec/patch_spec.rb

@@ -1,422 +0,0 @@
-# -*- ruby encoding: utf-8 -*-
-
-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)
-      @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/2.5.0/gems/diff-lcs-1.3/spec/sdiff_spec.rb

@@ -1,214 +0,0 @@
-# -*- ruby encoding: utf-8 -*-
-
-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) {
-      [
-        [ '=', [ 0, 'abc' ], [ 0, 'abc' ] ],
-        [ '!', [ 1, 'def' ], [ 1, 'dxf' ] ],
-        [ '-', [ 2, 'yyy' ], [ 2,  nil  ] ],
-        [ '=', [ 3, 'xxx' ], [ 2, 'xxx' ] ],
-        [ '=', [ 4, 'ghi' ], [ 3, 'ghi' ] ],
-        [ '=', [ 5, 'jkl' ], [ 4, 'jkl' ] ]
-      ]
-    }
-
-    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