[libtext-mecab-perl] 04/08: Update patch for new upstream

[Taku YASUI]

This is an automated email from the git hooks/post-receive script.

tach pushed a commit to branch master
in repository libtext-mecab-perl.

commit cf2c8d51a561a7d8df222e75fe4591d97ea9a2a5
Author: Taku YASUI <tach at debian.org>
Date:   Fri Aug 16 20:29:15 2013 +0900

    Update patch for new upstream
---
 debian/patches/900_skip_failed_tests |   23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/debian/patches/900_skip_failed_tests b/debian/patches/900_skip_failed_tests
index dc49f9c..f387bf1 100644
--- a/debian/patches/900_skip_failed_tests
+++ b/debian/patches/900_skip_failed_tests
@@ -1,28 +1,23 @@
 --- a/t/01-sanity.t
 +++ b/t/01-sanity.t
-@@ -1,6 +1,6 @@
- #!perl
- use strict;
--use Test::More (tests => 42);
-+use Test::More (tests => 38);
- 
- BEGIN
- {
-@@ -8,10 +8,6 @@
+@@ -7,13 +7,6 @@
+     use_ok("Text::MeCab", ':all');
  }
  
- if (&Text::MeCab::MECAB_VERSION >= 0.90) {
+-if (Text::MeCab::MECAB_VERSION() >= 0.90 && Text::MeCab::MECAB_VERSION() <= 0.98) {
 -    ok(eval { my $v = MECAB_NOR_NODE; 1 } && !$@, "MECAB_NOR_NODE ok");
 -    ok(eval { my $v = MECAB_UNK_NODE; 1 } && !$@, "MECAB_UNK_NODE ok");
 -    ok(eval { my $v = MECAB_BOS_NODE; 1 } && !$@, "MECAB_BOS_NODE ok");
 -    ok(eval { my $v = MECAB_EOS_NODE; 1 } && !$@, "MECAB_EOS_NODE ok");
- }
+-}
+-
+ diag Text::MeCab::version();
  
  can_ok("Text::MeCab", qw(new parse));
-@@ -28,4 +24,4 @@
+@@ -30,4 +23,4 @@
      can_ok("Text::MeCab::Node::Cloned", $method);
  }
  
--1;
+-done_testing;
 \ No newline at end of file
-+1;
++done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtext-mecab-perl.git