View | Details | Raw Unified | Return to bug 13075
Collapse All | Expand All

(-)a/C4/Charset.pm (+1 lines)
Lines 178-183 Sample code : Link Here
178
178
179
sub NormalizeString{
179
sub NormalizeString{
180
	my ($string,$nfd,$transform)=@_;
180
	my ($string,$nfd,$transform)=@_;
181
    return $string if !defined($string);
181
	utf8::decode($string) unless (utf8::is_utf8($string));
182
	utf8::decode($string) unless (utf8::is_utf8($string));
182
	if ($nfd){
183
	if ($nfd){
183
		$string= NFD($string);
184
		$string= NFD($string);
(-)a/t/Charset.t (-2 / +10 lines)
Lines 17-29 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 10;
20
use Test::More tests => 15;
21
use MARC::Record;
21
use MARC::Record;
22
22
23
BEGIN {
23
BEGIN {
24
    use_ok('C4::Charset');
24
    use_ok('C4::Charset');
25
}
25
}
26
26
27
my $string;
28
ok(!defined(NormalizeString($string,undef,1)),'Uninitialized string case 1 normalizes to uninitialized string.');
29
30
$string = 'Sample';
31
ok(defined(NormalizeString($string,undef,0)), 'Initialized string case 1 normalizes to some string.');
32
ok(defined(NormalizeString($string,undef,1)), 'Initialized string case 2 normalizes to some string.');
33
ok(defined(NormalizeString($string,1,0)),     'Initialized string case 3 normalizes to some string.');
34
ok(defined(NormalizeString($string,1,1)),     'Initialized string case 4 normalizes to some string.');
35
27
my $octets = "abc";
36
my $octets = "abc";
28
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)");
37
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)");
29
38
30
- 

Return to bug 13075