diff-lcs 2.0.0.beta.1 → 2.0.0

data/test/test_patch.rb

@@ -0,0 +1,362 @@
+# frozen_string_literal: true
+
+require_relative "test_helper"
+
+class TestPatch < Minitest::Test
+  def patch_sequences_correctly(s1, s2, patch_set)
+    assert_equal s2, patch(s1, patch_set)
+    assert_equal s2, patch(s1, patch_set, :patch)
+    assert_equal s2, patch!(s1, patch_set)
+    assert_equal s1, patch(s2, patch_set)
+    assert_equal s1, patch(s2, patch_set, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set)
+  end
+
+  def test_diff_patchset_empty_returns_source_string
+    diff = diff(hello, hello)
+    assert_equal hello, patch(hello, diff)
+  end
+
+  def test_diff_patchset_empty_returns_source_array
+    diff = diff(hello_ary, hello_ary)
+    assert_equal hello_ary, patch(hello_ary, diff)
+  end
+
+  def test_diff_patchset_default_callbacks_forward
+    patch_set = diff(seq1, seq2)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_diff_patchset_default_callbacks_reverse
+    patch_set = diff(seq2, seq1)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_diff_patchset_context_callbacks_forward
+    patch_set = diff(seq1, seq2, Diff::LCS::ContextDiffCallbacks)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_diff_patchset_context_callbacks_reverse
+    patch_set = diff(seq2, seq1, Diff::LCS::ContextDiffCallbacks)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_diff_patchset_sdiff_callbacks_forward
+    patch_set = diff(seq1, seq2, Diff::LCS::SDiffCallbacks)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_diff_patchset_sdiff_callbacks_reverse
+    patch_set = diff(seq2, seq1, Diff::LCS::SDiffCallbacks)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_sdiff_patchset_empty_returns_source_string
+    assert_equal hello, patch(hello, sdiff(hello, hello))
+  end
+
+  def test_sdiff_patchset_empty_returns_source_array
+    assert_equal hello_ary, patch(hello_ary, sdiff(hello_ary, hello_ary))
+  end
+
+  def test_sdiff_patchset_diff_callbacks_forward
+    patch_set = sdiff(seq1, seq2, Diff::LCS::DiffCallbacks)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_sdiff_patchset_diff_callbacks_reverse
+    patch_set = sdiff(seq2, seq1, Diff::LCS::DiffCallbacks)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_sdiff_patchset_context_callbacks_forward
+    patch_set = sdiff(seq1, seq2, Diff::LCS::ContextDiffCallbacks)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_sdiff_patchset_context_callbacks_reverse
+    patch_set = sdiff(seq2, seq1, Diff::LCS::ContextDiffCallbacks)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_sdiff_patchset_sdiff_callbacks_forward
+    patch_set = sdiff(seq1, seq2)
+    patch_sequences_correctly(seq1, seq2, patch_set)
+  end
+
+  def test_sdiff_patchset_sdiff_callbacks_reverse
+    patch_set = sdiff(seq2, seq1)
+    patch_sequences_correctly(seq2, seq1, patch_set)
+  end
+
+  def test_bug_891_diff_default_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = diff(s1, s2)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_default_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = diff(s2, s1)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_default_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = diff(s1, s2)
+    patch_set_s2_s1 = diff(s2, s1)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_diff_default_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = diff(s1, s2)
+    patch_set_s2_s1 = diff(s2, s1)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_diff_default_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = diff(s1, s2)
+    patch_set_s2_s1 = diff(s2, s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+
+  def test_bug_891_diff_context_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = diff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_context_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = diff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_context_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_diff_context_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_diff_context_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+
+  def test_bug_891_diff_sdiff_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = diff(s1, s2, Diff::LCS::SDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_sdiff_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = diff(s2, s1, Diff::LCS::SDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_diff_sdiff_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::SDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::SDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_diff_sdiff_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::SDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::SDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_diff_sdiff_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = diff(s1, s2, Diff::LCS::SDiffCallbacks)
+    patch_set_s2_s1 = diff(s2, s1, Diff::LCS::SDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_default_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = sdiff(s1, s2)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_default_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = sdiff(s2, s1)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_default_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2)
+    patch_set_s2_s1 = sdiff(s2, s1)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_sdiff_default_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2)
+    patch_set_s2_s1 = sdiff(s2, s1)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_default_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2)
+    patch_set_s2_s1 = sdiff(s2, s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_context_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = sdiff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_context_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = sdiff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_context_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_sdiff_context_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_context_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::ContextDiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::ContextDiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_diff_callbacks_autodiscover_s1_to_s2
+    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]
+    patch_set = sdiff(s1, s2, Diff::LCS::DiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_diff_callbacks_autodiscover_s2_to_s1
+    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]
+    patch_set = sdiff(s2, s1, Diff::LCS::DiffCallbacks)
+    assert_equal s2, patch(s1, patch_set)
+  end
+
+  def test_bug_891_sdiff_diff_callbacks_left_to_right
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::DiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::DiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s2_s1)
+    assert_equal s1, patch(s2, patch_set_s1_s2)
+  end
+
+  def test_bug_891_sdiff_diff_callbacks_explicit_patch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::DiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::DiffCallbacks)
+    assert_equal s2, patch(s1, patch_set_s1_s2, :patch)
+    assert_equal s1, patch(s2, patch_set_s2_s1, :patch)
+    assert_equal s2, patch!(s1, patch_set_s1_s2)
+    assert_equal s1, patch!(s2, patch_set_s2_s1)
+  end
+
+  def test_bug_891_sdiff_diff_callbacks_explicit_unpatch
+    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]
+    patch_set_s1_s2 = sdiff(s1, s2, Diff::LCS::DiffCallbacks)
+    patch_set_s2_s1 = sdiff(s2, s1, Diff::LCS::DiffCallbacks)
+    assert_equal s1, patch(s2, patch_set_s1_s2, :unpatch)
+    assert_equal s2, patch(s1, patch_set_s2_s1, :unpatch)
+    assert_equal s1, unpatch!(s2, patch_set_s1_s2)
+    assert_equal s2, unpatch!(s1, patch_set_s2_s1)
+  end
+end

data/test/test_sdiff.rb

@@ -0,0 +1,167 @@
+# frozen_string_literal: true
+
+require_relative "test_helper"
+
+class TestSDiff < Minitest::Test
+  def compare_sequences_correctly(s1, s2, result)
+    assert_equal context_diff(result), sdiff(s1, s2)
+    assert_equal context_diff(reverse_sdiff(result)), sdiff(s2, s1)
+  end
+
+  def test_seq1_seq2
+    compare_sequences_correctly(seq1, seq2, correct_forward_sdiff)
+  end
+
+  def test_abc_def_yyy_xxx_ghi_jkl
+    s1 = %w[abc def yyy xxx ghi jkl]
+    s2 = %w[abc dxf xxx ghi jkl]
+    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"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_b_c_d_e_vs_a_e
+    s1 = %w[a b c d e]
+    s2 = %w[a e]
+    result = [
+      ["=", [0, "a"], [0, "a"]],
+      ["-", [1, "b"], [1, nil]],
+      ["-", [2, "c"], [1, nil]],
+      ["-", [3, "d"], [1, nil]],
+      ["=", [4, "e"], [1, "e"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_e_vs_a_b_c_d_e
+    s1 = %w[a e]
+    s2 = %w[a b c d e]
+    result = [
+      ["=", [0, "a"], [0, "a"]],
+      ["+", [1, nil], [1, "b"]],
+      ["+", [1, nil], [2, "c"]],
+      ["+", [1, nil], [3, "d"]],
+      ["=", [1, "e"], [4, "e"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_v_x_a_e_vs_w_y_a_b_c_d_e
+    s1 = %w[v x a e]
+    s2 = %w[w y a b c d e]
+    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"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_x_a_e_vs_a_b_c_d_e
+    s1 = %w[x a e]
+    s2 = %w[a b c d e]
+    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"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_e_vs_x_a_b_c_d_e
+    s1 = %w[a e]
+    s2 = %w[x a b c d e]
+    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"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_e_v_vs_x_a_b_c_d_e_w_x
+    s1 = %w[a e v]
+    s2 = %w[x a b c d e w x]
+    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"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_empty_vs_a_b_c
+    s1 = %w[]
+    s2 = %w[a b c]
+    result = [
+      ["+", [0, nil], [0, "a"]],
+      ["+", [0, nil], [1, "b"]],
+      ["+", [0, nil], [2, "c"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_b_c_vs_1
+    s1 = %w[a b c]
+    s2 = %w[1]
+    result = [
+      ["!", [0, "a"], [0, "1"]],
+      ["-", [1, "b"], [1, nil]],
+      ["-", [2, "c"], [1, nil]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_a_b_c_vs_c
+    s1 = %w[a b c]
+    s2 = %w[c]
+    result = [
+      ["-", [0, "a"], [0, nil]],
+      ["-", [1, "b"], [0, nil]],
+      ["=", [2, "c"], [0, "c"]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_abcd_efgh_ijkl_mnop_vs_empty
+    s1 = %w[abcd efgh ijkl mnop]
+    s2 = []
+    result = [
+      ["-", [0, "abcd"], [0, nil]],
+      ["-", [1, "efgh"], [0, nil]],
+      ["-", [2, "ijkl"], [0, nil]],
+      ["-", [3, "mnop"], [0, nil]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+
+  def test_nested_array_vs_empty
+    s1 = [[1, 2]]
+    s2 = []
+    result = [
+      ["-", [0, [1, 2]], [0, nil]]
+    ]
+    compare_sequences_correctly(s1, s2, result)
+  end
+end