unified_matchers 0.1.5.0

data/AUTHORS

@@ -0,0 +1,8 @@
+---
+UnifiedMatchers was written by and with the assistance of:
+
+  - Nicolas Pouillard <nicolas.pouillard@gmail.com>:
+      - Initial design, release manager.
+
+  - Gaëlle Champarnaud <gaelle.champarnaud@gmail.com>:
+      - Development and tests.

data/ChangeLog

@@ -0,0 +1,233 @@
+2006-04-30  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Update to Rslide.
+
+	* doc/slides.html: Regenerate.
+	* doc/documentation.rslide: Make shell_command a class.
+
+2006-04-30  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Documentation and some improvments.
+
+	* lib/unified_matchers/matcher_result.rb: Change error message.
+	* lib/unified_matchers/matcher_results.rb: New method: first.
+	* lib/unified_matchers/unified_matcher.rb,
+	* lib/unified_matchers/diff_matcher.rb,
+	* lib/unified_matchers/lcs_diff_matcher.rb: Documentation.
+	* lib/unified_matchers/gnu_diff_matcher.rb: Documentation, update
+	to ObjectiveCommand.
+
+2006-04-30  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Documentation of UnifiedMatchers.
+
+	* doc: New.
+	* doc/slides.html: New.
+	* doc/documentation.rslide: New.
+
+2006-04-03  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Lazy creation of messages.
+
+	* lib/unified_matchers/matcher_result.rb: Compute messages.
+	* lib/unified_matchers/unified_matcher.rb: Defer messages
+	computation.
+	* lib/unified_matchers/lcs_diff_matcher.rb: Layout.
+
+2006-04-02  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Improve messages.
+
+	* lib/unified_matchers/unified_matcher.rb: Handle messages of
+	finals.
+	* lib/unified_matchers/assertions.rb: Two new assertions.
+	* example/check-commands.rb: Make the output YAML compliant.
+
+	* lib/unified_matchers/equality_based_matcher.rb,
+	* lib/unified_matchers/stream_matcher.rb,
+	* lib/unified_matchers/gnu_diff_matcher.rb,
+	* lib/unified_matchers/strict_equality_based_matcher.rb,
+	* lib/unified_matchers/case_equality_based_matcher.rb,
+	* lib/unified_matchers/lcs_diff_matcher.rb: Add template messages
+	to rules and finals.
+
+2006-04-02  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Make the OCmd interaction example works.
+
+	* test/fixtures/birds.txt: New.
+	* test/fixtures/pluralizer: New.
+	* test/fixtures/bird.txt: New.
+	* example/check-commands.rb: Update.
+
+2006-04-02  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Improve the message system.
+
+	* lib/unified_matchers/stream_matcher.rb:
+	Update message templates.
+	* lib/unified_matchers/matcher_result.rb,
+	* lib/unified_matchers/matcher_results.rb,
+	* lib/unified_matchers/unified_matcher.rb,
+	* lib/unified_matchers/assertions.rb: Handle messages.
+
+2006-04-02  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Change the matcher result and make some improvments.
+
+	* lib/unified_matchers/matcher_result_composite.rb: Rename to ...
+	* lib/unified_matchers/matcher_results.rb: ... this and adapt.
+	* lib/unified_matchers/unified_matcher.rb: Produce now a
+	MatcherResults and prevent from a possibly infinite rule
+	activation.
+	* lib/unified_matchers/lcs_diff_matcher.rb: Update to
+	MatcherResults.
+
+	* lib/unified_matchers/stream_matcher.rb: Add a final rule and
+	test it. Start the message handling.
+	* lib/unified_matchers/matcher_result.rb: Start the message
+	handling and improve an error message.
+	* lib/unified_matchers.rb: Make UM a shortcut of UnifiedMatchers.
+
+2006-03-31  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	A new optional argument in a final block.
+
+	* lib/unified_matchers/unified_matcher.rb: Fix some bugs,
+	introduce the matcher as an optional third argument in a final
+	block.
+	* lib/unified_matchers/case_equality_based_matcher.rb: Test it.
+
+2006-03-24  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Introduce a new rule system, clearer and more powerful.
+
+	* lib/unified_matchers/unified_matcher.rb: New implementation.
+
+	* lib/unified_matchers/equality_based_matcher.rb,
+	* lib/unified_matchers/case_equality_based_matcher.rb,
+	* lib/unified_matchers/strict_equality_based_matcher.rb:
+	Replace 'with' by 'final'.
+
+	* lib/unified_matchers/stream_matcher.rb:
+	Replace 'with' by 'rule' or 'final' and improve a test.
+	* lib/unified_matchers/gnu_diff_matcher.rb:
+	Replace 'with' by 'rule' or 'final' and use 'delete_final'.
+	* lib/unified_matchers/lcs_diff_matcher.rb: Replace 'with' by
+	'rule' or 'final', use 'delete_final' and 'redefine_rule', add a test.
+
+	* lib/unified_matchers/matcher_result.rb,
+	* lib/unified_matchers/assertions.rb: Trailing white spaces.
+
+2006-03-24  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Add a composite class for matcher results.
+
+	* lib/unified_matchers/matcher_result_composite.rb: New.
+
+2006-03-12  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Add a class to handle a matcher result.
+
+	* lib/unified_matchers/matcher_result.rb: New.
+	* lib/unified_matchers/equality_based_matcher.rb,
+	* lib/unified_matchers/strict_equality_based_matcher.rb,
+	* lib/unified_matchers/case_equality_based_matcher.rb: Update
+	tests.
+	* lib/unified_matchers/stream_matcher.rb,
+	* lib/unified_matchers/gnu_diff_matcher.rb,
+	* lib/unified_matchers/lcs_diff_matcher.rb: Update tests and
+	values returned by the matchers.
+	* lib/unified_matchers/unified_matcher.rb: Change the result of
+	the method [].
+	* lib/unified_matchers/assertions.rb: Make two new assertions.
+
+2006-03-12  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Make all the tests pass.
+
+	* test/unit.yml: Update.
+	* lib/unified_matchers/lcs_diff_matcher.rb,
+	* lib/unified_matchers/gnu_diff_matcher.rb: Make the names
+	consistent.
+
+2006-03-11  Gaelle Champarnaud  <gallooo@gmail.com>
+
+	Minor improvments.
+
+	* lib/unified_matchers/stream_matcher.rb: Revert the previous
+	* change (use match).
+	* lib/unified_matchers/gnu_diff_matcher.rb: Improve the Object
+	* rule and improve the tests.
+	* lib/unified_matchers/unified_matcher.rb: Handle an error case.
+	* lib/unified_matchers/lcs_diff_matcher.rb: Add a comment.
+	* lib/unified_matchers.rb: Remove a useless line.
+
+2005-10-08  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	A simple implementation.
+
+	* lib/unified_matchers/unified_matcher.rb: This implementation is not
+	yet optimizied but respect the previous contract.
+
+2005-10-08  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	Improve the contract.
+
+	* lib/unified_matchers/stream_matcher.rb: Returns a boolean,
+	handles StringIO.
+	* lib/unified_matchers/gnu_diff_matcher.rb: Makes it really pathname
+	based and provides some conversions.
+	* lib/unified_matchers/case_equality_based_matcher.rb: .
+	* lib/unified_matchers/lcs_diff_matcher.rb: Fix an assertion.
+	* lib/unified_matchers.rb: Requires 'diff/lcs' if available, add
+	Unified_matchers.{dir,fixtures} class attributes.
+	* test/fixtures/my.file: New.
+
+2005-10-08  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	More tests.
+
+	* lib/unified_matchers/stream_matcher.rb: Add tests with a dynamically
+	added class.
+
+2005-10-07  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	Commit the first contract.
+
+	* test/unit.yml: New.
+	* test/check.yml: New.
+	* lib/unified_matchers: New.
+	* lib/unified_matchers.rb: New. The main module.
+	* lib/unified_matchers/unified_matcher.rb: New.
+	Abstract matcher to fix.
+	* lib/unified_matchers/strict_equality_based_matcher.rb: New.
+	Matchers based on Object#equal?.
+	* lib/unified_matchers/equality_based_matcher.rb: New. (==)
+	* lib/unified_matchers/case_equality_based_matcher.rb: New. (===)
+	* lib/unified_matchers/stream_matcher.rb: New.
+	* lib/unified_matchers/diff_matcher.rb: New. Abstract.
+	* lib/unified_matchers/gnu_diff_matcher.rb: New.
+	Command based diff output.
+	* lib/unified_matchers/lcs_diff_matcher.rb: New.
+	Will be a LCS::Diff based diff output.
+	* lib/unified_matchers/assertions.rb: New.
+
+2005-10-05  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	Initial checkin.
+
+	* lib: New.
+	* test: New.
+	* test/unit: New.
+	* test/pkg: New.
+	* test/functional: New.
+	* bin: New.
+	* vcs: New.
+	* vcs/unified_matchers_vcs.rb: New.
+	* Rakefile: New.
+	* AUTHORS: New.
+	* SPEC.yml: New.
+	* NEWS: New.
+	* README: New.
+

data/NEWS

@@ -0,0 +1,3 @@
+= New 0.1, 2007-01-14:
+
+    Initial Release.

data/Rakefile

@@ -0,0 +1,8 @@
+# Author::    The Uttk Team.                                       -*- ruby -*-
+# Copyright:: Copyright (c) 2005, 2006 Uttk team. All rights reserved.
+# License::   Ruby License
+# Revision::  $Id$
+
+require 'rubygems'
+require_gem 'core_ex'
+load 'core_ex/rakefile_base.rf'

data/SPEC.gemspec

@@ -0,0 +1,13 @@
+Gem::Specification.new do |s|
+  s.name = %q{unified_matchers}
+  s.version = "0.1.5.0"
+  s.date = %q{2007-01-14}
+  s.summary = %q{UnifiedMatchers}
+  s.email = ["nicolas.pouillard@gmail.com", "gaelle.champarnaud@gmail.com"]
+  s.homepage = %q{http://api.feydakins.org/unified_matchers}
+  s.rubyforge_project = %q{unified_matchers}
+  s.description = %q{}
+  s.authors = ["Nicolas Pouillard", "Ga\303\253lle Champarnaud"]
+  s.files = ["lib/unified_matchers.rb", "lib/unified_matchers/assertions.rb", "lib/unified_matchers/case_equality_based_matcher.rb", "lib/unified_matchers/diff_matcher.rb", "lib/unified_matchers/equality_based_matcher.rb", "lib/unified_matchers/gnu_diff_matcher.rb", "lib/unified_matchers/helpers.rb", "lib/unified_matchers/lcs_diff_matcher.rb", "lib/unified_matchers/matcher_result.rb", "lib/unified_matchers/matcher_results.rb", "lib/unified_matchers/stream_matcher.rb", "lib/unified_matchers/strict_equality_based_matcher.rb", "lib/unified_matchers/unified_matcher.rb", "lib/unified_matchers/version_id.rb", "test/check-pkg-unified_matchers.yml", "test/check.yml", "test/fixtures", "test/functional", "test/pkg", "test/sanity", "test/sanity-suite.yml", "test/unit", "test/unit-suite.yml", "test/fixtures/bird.txt", "test/fixtures/birds.txt", "test/fixtures/my.file", "test/fixtures/pluralizer", "test/sanity/multiple-requires.yml", "test/sanity/single-requires.yml", "AUTHORS", "ChangeLog", "NEWS", "Rakefile", "README", "SPEC.gemspec", "SPEC.yml"]
+  s.add_dependency(%q<core_ex>, ["~> 0.6.5"])
+end

data/SPEC.yml

@@ -0,0 +1,41 @@
+---
+Author: The Uttk Team
+License: Ruby License
+Revision: '$Id$'
+
+version: !feydakins.org,2006/version dev-ruby/unified_matchers-0.1
+
+# XXX check also lib/unified_matchers/version_id.rb
+
+title: UnifiedMatchers
+summary: UnifiedMatchers
+description: ""
+homepage: http://api.feydakins.org/unified_matchers
+rubyforge_project: ttk
+rubyforge_sub_package_name: unified_matchers
+
+root_test_suite: test/check-pkg-unified_matchers.yml
+rdoc_dir: doc/html
+tags_url: svn://svn.feydakins.org/unified_matchers/tags
+trunk_url: svn://svn.feydakins.org/unified_matchers/trunk
+version_id.rb: !path lib/unified_matchers/version_id.rb
+
+rdoc_files: !filelist
+  - README
+  - AUTHORS
+  - NEWS
+  - lib/**/*.rb
+
+pkg_files: !filelist
+  - lib/**/*.rb
+  - test/**/*
+  - bin/**/*
+  - '[A-Z]*'
+
+dependencies:
+  core_ex:
+    gem    : ~> 0.6.5
+    tarball: http://rubyforge.iasi.roedu.net/files/ttk/core_ex-0.6.tar.gz
+    vcs    : svn://svn.feydakins.org/ruby_ex/trunk/core_ex
+
+uttk_version: >= 0.3.6.1

data/lib/unified_matchers/assertions.rb

@@ -0,0 +1,38 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/assertions.rb 23258 2006-04-09T09:46:24.223538Z ertai  $
+
+module UnifiedMatchers
+
+  module Assertions
+
+    attr_accessor :matcher
+
+    def assert_success ref, my
+      assert_nothing_raised { @my_matcher_results = matcher[ref, my] }
+      assert @my_matcher_results.success?, @my_matcher_results.to_s
+    end
+
+    def assert_failure ref, my
+      assert_nothing_raised { @my_matcher_results = matcher[ref, my] }
+      assert @my_matcher_results.failure?, @my_matcher_results.to_s
+    end
+
+    def assert_data_kind_of ref, my, aClass
+      assert_nothing_raised { @my_matcher_results = matcher[ref, my] }
+      @my_matcher_results.each do |r|
+        assert_kind_of aClass, r.data, r.to_s
+      end
+    end
+
+    def assert_message_equal ref, my, aMessage
+      assert_nothing_raised { @my_matcher_results = matcher[ref, my] }
+      @my_matcher_results.each do |r|
+        assert_equal aMessage, r.message, r.name
+      end
+    end
+
+  end # module Assertions
+
+end # module UnifiedMatchers

data/lib/unified_matchers/case_equality_based_matcher.rb

@@ -0,0 +1,66 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/case_equality_based_matcher.rb 23258 2006-04-09T09:46:24.223538Z ertai  $
+
+
+module UnifiedMatchers
+
+  class CaseEqualityBasedMatcher < UnifiedMatcher
+    make Concrete
+
+    final(Object, Object, :message => '%ref === %my') { |ref, my| ref === my }
+
+  end # class CaseEqualityBasedMatcher
+
+
+
+  test_section __FILE__ do
+
+    class TestCaseEqualityBasedMatcher < ::Test::Unit::TestCase
+      include UnifiedMatchers::Assertions
+
+      def setup
+        self.matcher = CaseEqualityBasedMatcher.new
+      end
+
+      def teardown
+      end
+
+      def test_equality_based_matcher
+        assert_success 42, 42
+        assert_failure 43, 42
+        assert_success '42', '42'
+        assert_failure 42, '42'
+        assert_failure '43', '42'
+        assert_success Integer, 42
+        assert_success Float, 42.0
+        assert_failure Float, 42
+        assert_failure 42, Integer
+        assert_success(/42/, '42')
+        assert_failure(/42/, 42)
+      end
+
+      class MyMatcher < CaseEqualityBasedMatcher
+        attr_accessor :ref, :my
+        final(Object, Object) do |ref, my, m|
+          m.ref = ref
+          m.my = my
+          false
+        end
+      end
+
+      def test_final_block_with_matcher
+        self.matcher = MyMatcher.new
+        ref = /42/
+        my = "18"
+        assert_failure ref, my
+        assert_equal ref, matcher.ref
+        assert_equal my, matcher.my
+      end
+
+    end # class TestCaseEqualityBasedMatcher
+
+  end
+
+end # module UnifiedMatchers

data/lib/unified_matchers/diff_matcher.rb

@@ -0,0 +1,21 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/diff_matcher.rb 23455 2006-05-09T10:59:14.845424Z pouillar  $
+
+# @DiffMatcher@ inherits from @StreamMatcher@ and is just a common class for
+# any diff-like matchers.
+module UnifiedMatchers
+
+  class DiffMatcher < StreamMatcher
+    # FIXME make Abstract
+
+  end # class DiffMatcher
+
+
+
+  test_section __FILE__ do
+
+  end
+
+end # module UnifiedMatchers

data/lib/unified_matchers/equality_based_matcher.rb

@@ -0,0 +1,42 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/equality_based_matcher.rb 23258 2006-04-09T09:46:24.223538Z ertai  $
+
+
+module UnifiedMatchers
+
+  class EqualityBasedMatcher < UnifiedMatcher
+    make Concrete
+
+    final(Object, Object, :message => '%ref == %my') { |ref, my| ref == my }
+
+  end # class EqualityBasedMatcher
+
+
+
+  test_section __FILE__ do
+
+    class TestEqualityBasedMatcher < ::Test::Unit::TestCase
+      include UnifiedMatchers::Assertions
+
+      def setup
+        self.matcher = EqualityBasedMatcher.new
+      end
+
+      def teardown
+      end
+
+      def test_equality_based_matcher
+        assert_success 42, 42
+        assert_failure 42, 43
+        assert_success '42', '42'
+        assert_failure 42, '42'
+        assert_failure '42', '43'
+      end
+
+    end # class TestEqualityBasedMatcher
+
+  end
+
+end # module UnifiedMatchers

data/lib/unified_matchers/gnu_diff_matcher.rb

@@ -0,0 +1,87 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/gnu_diff_matcher.rb 23455 2006-05-09T10:59:14.845424Z pouillar  $
+
+core_ex_require 'objective_command'
+
+# @GnuDiffMatcher@ inherits from @DiffMatcher@.
+# The final rule, where @ref@ is a string, is removed, 
+# and an other is added which allows to compare files contents:
+# it can be applied on two pathnames, and compares the files
+# corresponding to the pathnames (using the command diff of GNU).
+# There are also new intermediate rules, called before 
+# the intermediate rule @to_s@ of @StreamMatcher@:
+# list do  
+#  * if an argument is a String, it is put in a temporary file
+#    and the pathname of this file is returned,
+#  * if an argument responds to the method to_path, this method is applied.
+# end
+# This class contains two class attributes accessors:
+# list do
+#  * diff: by default it is the command diff,
+#  * runner: by default it is a system runner.
+# end
+module UnifiedMatchers
+
+  class GnuDiffMatcher < DiffMatcher
+    make Concrete
+
+    cattr_accessor :runner, :diff
+    self.runner = OCmd::Runners::System.new
+    self.diff = 'diff'.to_ocmd
+
+    delete_final String
+
+    rule :string_to_path, String, :before => :to_s do |s|
+      TempPath.new.overwrite s
+    end
+    rule :to_path
+
+    final(Pathname, Pathname, :message => 'gnu_diff(%ref, %my)') do |ref, my|
+      cmd = diff[ref, my] + %w[ -u --label ref --label my ]
+      data = cmd.run(runner)
+      [data.status.success?, data]
+    end
+
+  end # class GnuDiffMatcher
+
+
+
+  test_section __FILE__ do
+
+    class TestGnuDiffMatcher < ::Test::Unit::TestCase
+      include UnifiedMatchers::Assertions
+      include OCmd::Runners::Mockable
+
+      def setup
+        @old_runner = GnuDiffMatcher.runner
+        @mock_runner = GnuDiffMatcher.runner =
+          OCmd::Runners::System.new.make_mock {}
+        self.matcher = GnuDiffMatcher.new
+        @my = UnifiedMatchers.fixtures/'my.file'
+      end
+
+      def teardown
+        GnuDiffMatcher.runner = @old_runner
+      end
+
+      def test_diff
+        assert_success "foo/bar\n", @my
+        assert_success "I'm not equal to @my.to_s", @my.to_s
+        assert_success(/foo/, @my)
+        assert_success @my.open, @my
+
+        re = /diff .* .* -u --label ref --label my/
+        @mock_runner.log.each do |cmd|
+          assert_match re, cmd.to_sh
+        end
+        assert_match @my.to_s, @mock_runner.log.first.to_sh
+        assert_equal 3, @mock_runner.log.size
+      end
+
+    end # class TestGnuDiffMatcher
+
+  end
+
+end # module UnifiedMatchers

data/lib/unified_matchers/helpers.rb

@@ -0,0 +1,33 @@
+# Copyright:: Copyright (c) 2006  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <nicolas.pouillard@gmail.com>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/helpers.rb 23238 2006-04-02T17:08:37.115292Z ertai  $
+
+
+module UnifiedMatchers
+
+  module Helpers
+
+    class ::Object
+
+      def inspect_for_unified_matchers
+        inspect
+      end
+
+    end # class ::Object
+
+    class ::Pathname
+
+      def inspect_for_unified_matchers
+        "#{to_s.inspect}.to_path"
+      end
+
+    end # class ::Pathname
+
+    test_section __FILE__ do
+
+    end
+
+  end # module Helpers
+
+end # module UnifiedMatchers

data/lib/unified_matchers/lcs_diff_matcher.rb

@@ -0,0 +1,74 @@
+# Copyright:: Copyright (c) 2005  Uttk Team. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/um/trunk/lib/unified_matchers/lcs_diff_matcher.rb 23455 2006-05-09T10:59:14.845424Z pouillar  $
+
+# @LcsDiffMatcher@ inherits from @DiffMatcher@.
+# The final rule, where @ref@ is a string, is removed, 
+# and an other is added which aims at comparing arrays:
+# its arguments are two arrays, and it compares them with LCS.
+# The intermediate rule @io@ is replaced by:
+# if the object responds to @rewind@ and @readlines@, it is read from the beginning as a string array.
+# A new intermediate rule is also defined:
+# if an argument is a String, it is transformed into an array.
+module UnifiedMatchers
+
+  class LcsDiffMatcher < DiffMatcher
+    make Concrete
+
+    delete_final String
+    redefine_rule(:io, :all => [ :rewind, :readlines ],
+                  :message => '%x.{rewind ; readlines}') { rewind ; readlines }
+    rule(:s_to_a, String, :message => '%x.to_a') { to_a }
+
+    final(Array, Array, :message => 'Diff::LCS.diff(%ref, %my)') do |ref, my|
+      res = Diff::LCS.diff(ref, my)
+      [res.empty?, res]
+    end
+
+  end # class LcsDiffMatcher
+
+
+  test_section __FILE__ do
+
+    class TestLcsDiffMatcher < ::Test::Unit::TestCase
+      include UnifiedMatchers::Assertions
+
+      def setup
+        self.matcher = LcsDiffMatcher.new
+        @my = UnifiedMatchers.fixtures/'my.file'
+      end
+
+      def teardown
+      end
+
+      # All tests are protected by the following condition, uttk will skip if
+      # Diff::LCS is not available.
+      if defined? Diff::LCS
+        def test_lcs_diff
+          assert_success 42, 42
+          assert_success '42', '42'
+          assert_success @my, @my
+          assert_success "foo/bar\n", @my
+          assert_data_kind_of 'foo', 'bar', Array
+          assert_data_kind_of %w[ a b c d e f ], %w[ a c d h e ], Array
+          s = "not Diff::LCS.diff(\"foo\".to_a, 42.to_s.to_a)"
+          assert_message_equal 'foo', 42, s
+          assert_failure(/baz/, @my)
+          assert_success(/foo/, @my)
+        end
+      end
+
+      def test_stream_matcher
+        self.matcher = StreamMatcher.new
+        assert_not_equal(StreamMatcher.order, LcsDiffMatcher.order)
+        assert_not_equal(StreamMatcher.ref_triggers, LcsDiffMatcher.ref_triggers)
+        assert_data_kind_of 'foo', 'bar', NilClass
+        assert_data_kind_of @my, 'bar', NilClass
+      end
+
+    end # class TestLcsDiffMatcher
+
+  end
+
+end # module UnifiedMatchers