Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (18 sloc) 0.536 kb
use Test::More qw( no_plan );
use strict;
use warnings;
BEGIN {
use_ok( 'Text::Normalize::NACO' );
}
my $naco = Text::Normalize::NACO->new( case => 'lower' );
isa_ok( $naco, 'Text::Normalize::NACO' );
for my $file ( glob( 't/*.dat' ) ) {
open( my $text, $file ) or die $!;
while ( <$text> ) {
s/[\r\n]//g;
my ( $original, $normalized ) = split( /\t/, $_ );
is( $naco->normalize( $original ),
$normalized, "\$naco->normalize( '$original' )" );
}
close( $text ) or die $!;
}
Jump to Line
Something went wrong with that request. Please try again.