Show
Ignore:
Timestamp:
01/07/08 08:32:40 (7 years ago)
Author:
daisuke
Message:

lang/perl/Text-MeCab?; require Encode, don't use strings.dat anymore, and use Encode where appropriate

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Text-MeCab/trunk/t/node/03_clone.t

    r4153 r4157  
    11#!perl 
    22use strict; 
     3use utf8; 
    34use Test::More (tests => 28); 
     5use Encode; 
    46 
    57BEGIN 
     
    911 
    1012my $data = { 
    11     taro => "太郎は次郎が持っている本を花子に渡した。", 
    12     sumomo => "すもももももももものうち。" 
     13    taro => encode(Text::MeCab::ENCODING, "太郎は次郎が持っている本を花子に渡した。"), 
     14    sumomo => encode(Text::MeCab::ENCODING, "すもももももももものうち。"), 
    1315}; 
    1416 
     
    3436 
    3537    if ($node_A->length != 0 || $node_B->length != 0) { 
    36         isnt($node_A->surface, $node_B->surface, "Contents of cloned nodes must differ"); 
     38        isnt($node_A->surface, $node_B->surface,  
     39            sprintf( 
     40                "Contents of cloned nodes must differ (A = %s, B = %s)", 
     41                $node_A->surface, 
     42                $node_B->surface, 
     43            ) 
     44        ); 
    3745    } 
    3846