Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 11; |
20 |
use Test::More tests => 16; |
21 |
use MARC::Record; |
21 |
use MARC::Record; |
22 |
|
22 |
|
23 |
use utf8; |
23 |
use utf8; |
Lines 27-32
BEGIN {
Link Here
|
27 |
use_ok('C4::Charset'); |
27 |
use_ok('C4::Charset'); |
28 |
} |
28 |
} |
29 |
|
29 |
|
|
|
30 |
my $string; |
31 |
ok(!defined(NormalizeString($string,undef,1)),'Uninitialized string case 1 normalizes to uninitialized string.'); |
32 |
|
33 |
$string = 'Sample'; |
34 |
ok(defined(NormalizeString($string,undef,0)), 'Initialized string case 1 normalizes to some string.'); |
35 |
ok(defined(NormalizeString($string,undef,1)), 'Initialized string case 2 normalizes to some string.'); |
36 |
ok(defined(NormalizeString($string,1,0)), 'Initialized string case 3 normalizes to some string.'); |
37 |
ok(defined(NormalizeString($string,1,1)), 'Initialized string case 4 normalizes to some string.'); |
38 |
|
30 |
my $octets = "abc"; |
39 |
my $octets = "abc"; |
31 |
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)"); |
40 |
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)"); |
32 |
|
41 |
|
33 |
- |
|
|