[p5sagit/p5-mst-13.2.git] / lib / Unicode / Collate / t / index.t


BEGIN {
    unless ("A" eq pack('U', 0x41)) {
	print "1..0 # Unicode::Collate " .
	    "cannot stringify a Unicode code point\n";
	exit 0;
    }
}

BEGIN {
    if ($ENV{PERL_CORE}) {
        chdir('t') if -d 't';
        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
    }
}

use Test;
BEGIN { plan tests => 65 };

use strict;
use warnings;
use Unicode::Collate;

our $IsEBCDIC = ord("A") != 0x41;

#########################

ok(1); # If we made it this far, we're ok.

my $Collator = Unicode::Collate->new(
  table => 'keys.txt',
  normalization => undef,
);

##############

my %old_level = $Collator->change(level => 2);

my $str;

my $orig = "This is a Perl book.";
my $sub = "PERL";
my $rep = "camel";
my $ret = "This is a camel book.";

$str = $orig;
if (my($pos,$len) = $Collator->index($str, $sub)) {
  substr($str, $pos, $len, $rep);
}

ok($str, $ret);

$Collator->change(%old_level);

$str = $orig;
if (my($pos,$len) = $Collator->index($str, $sub)) {
  substr($str, $pos, $len, $rep);
}

ok($str, $orig);

##############

my $match;

$Collator->change(level => 1);

$str = "Pe\x{300}rl";
$sub = "pe";
$ret = "Pe\x{300}";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
$sub = "pE";
$ret = "P\x{300}e\x{300}\x{301}\x{303}";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$Collator->change(level => 2);

$str = "Pe\x{300}rl";
$sub = "pe";
$ret = undef;
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
$sub = "pE";
$ret = undef;
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$str = "Pe\x{300}rl";
$sub = "pe\x{300}";
$ret = "Pe\x{300}";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
$sub = "p\x{300}E\x{300}\x{301}\x{303}";
$ret = "P\x{300}e\x{300}\x{301}\x{303}";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

##############

$Collator->change(level => 1);

$str = $IsEBCDIC
    ? "Ich mu\x{0059} studieren Perl."
    : "Ich mu\x{00DF} studieren Perl.";
$sub = $IsEBCDIC
    ? "m\x{00DC}ss"
    : "m\x{00FC}ss";
$ret = $IsEBCDIC
    ? "mu\x{0059}"
    : "mu\x{00DF}";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$Collator->change(%old_level);

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, undef);

$match = undef;
if (my($pos,$len) = $Collator->index("", "")) {
    $match = substr("", $pos, $len);
}
ok($match, "");

$match = undef;
if (my($pos,$len) = $Collator->index("", "abc")) {
    $match = substr("", $pos, $len);
}
ok($match, undef);

##############

$Collator->change(level => 1);

$str = "\0\cA\0\cAe\0\x{300}\cA\x{301}\cB\x{302}\0 \0\cA";
$sub = "e";
$ret = "e\0\x{300}\cA\x{301}\cB\x{302}\0";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

$Collator->change(level => 1);

$str = "\0\cA\0\cAe\0\cA\x{300}\0\cAe";
$sub = "e";
$ret = "e\0\cA\x{300}\0\cA";
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);


$Collator->change(%old_level);

$str = "e\x{300}";
$sub = "e";
$ret = undef;
$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub)) {
    $match = substr($str, $pos, $len);
}
ok($match, $ret);

##############

$Collator->change(level => 1);

$str = "The Perl is a language, and the perl is an interpreter.";
$sub = "PERL";

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, -40)) {
    $match = substr($str, $pos, $len);
}
ok($match, "Perl");

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, 4)) {
    $match = substr($str, $pos, $len);
}
ok($match, "Perl");

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, 5)) {
    $match = substr($str, $pos, $len);
}
ok($match, "perl");

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, 32)) {
    $match = substr($str, $pos, $len);
}
ok($match, "perl");

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, 33)) {
    $match = substr($str, $pos, $len);
}
ok($match, undef);

$match = undef;
if (my($pos, $len) = $Collator->index($str, $sub, 100)) {
    $match = substr($str, $pos, $len);
}
ok($match, undef);

$Collator->change(%old_level);

##############

my @ret;

$Collator->change(level => 1);

$ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
ok($ret);
ok($$ret eq "P\cBe\x{300}\cB");

@ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
ok($ret[0], "P\cBe\x{300}\cB");

$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
$sub = $IsEBCDIC ? "m\x{00DC}ss" : "m\x{00FC}ss";

($ret) = $Collator->match($str, $sub);
ok($ret, $str);

$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
$sub = $IsEBCDIC ? "m\x{00DC}s" : "m\x{00FC}s";

($ret) = $Collator->match($str, $sub);
ok($ret, undef);

$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
ok($ret eq "P\cBe\x{300}\cB:pe:PE");

$ret = $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
ok($ret == 3);

$str = "ABCDEF";
$sub = "cde";
$ret = $Collator->match($str, $sub);
$str = "01234567";
ok($ret && $$ret, "CDE");

$str = "ABCDEF";
$sub = "cde";
($ret) = $Collator->match($str, $sub);
$str = "01234567";
ok($ret, "CDE");


$Collator->change(level => 3);

$ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
ok($ret, undef);

@ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
ok(@ret == 0);

$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl and PERL", "pe");
ok($ret eq "");

$ret = $Collator->gmatch("P\cBe\x{300}\cBrl and PERL", "pe");
ok($ret == 0);

$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
ok($ret eq "pe");

$ret = $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
ok($ret == 1);

$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
$sub = $IsEBCDIC ? "m\x{00DC}ss" : "m\x{00FC}ss";

($ret) = $Collator->match($str, $sub);
ok($ret, undef);

$Collator->change(%old_level);

##############

$Collator->change(level => 1);

sub strreverse { scalar reverse shift }

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->subst($str, "perl", 'Camel');
ok($ret, 1);
ok($str, "Camel and PERL.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->subst($str, "perl", \&strreverse);
ok($ret, 1);
ok($str, "lr\cB\x{300}e\cBP and PERL.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->gsubst($str, "perl", 'Camel');
ok($ret, 2);
ok($str, "Camel and Camel.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->gsubst($str, "perl", \&strreverse);
ok($ret, 2);
ok($str, "lr\cB\x{300}e\cBP and LREP.");

$str = "Camel ass came\x{301}l CAMEL horse cAm\0E\0L...";
$Collator->gsubst($str, "camel", sub { "<b>$_[0]</b>" });
ok($str,
"<b>Camel</b> ass <b>came\x{301}l</b> <b>CAMEL</b> horse <b>cAm\0E\0L</b>...");

$Collator->change(level => 3);

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->subst($str, "perl", "Camel");
ok(! $ret);
ok($str, "P\cBe\x{300}\cBrl and PERL.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->subst($str, "perl", \&strreverse);
ok(! $ret);
ok($str, "P\cBe\x{300}\cBrl and PERL.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->gsubst($str, "perl", "Camel");
ok($ret, 0);
ok($str, "P\cBe\x{300}\cBrl and PERL.");

$str = "P\cBe\x{300}\cBrl and PERL.";
$ret = $Collator->gsubst($str, "perl", \&strreverse);
ok($ret, 0);
ok($str, "P\cBe\x{300}\cBrl and PERL.");

$Collator->change(%old_level);

##############

$str = "Perl and Camel";
$ret = $Collator->gsubst($str, "\cA\cA\0", "AB");
ok($ret, 15);
ok($str, "ABPABeABrABlAB ABaABnABdAB ABCABaABmABeABlAB");

$str = '';
$ret = $Collator->subst($str, "", "ABC");
ok($ret, 1);
ok($str, "ABC");

$str = '';
$ret = $Collator->gsubst($str, "", "ABC");
ok($ret, 1);
ok($str, "ABC");

$str = 'PPPPP';
$ret = $Collator->gsubst($str, 'PP', "ABC");
ok($ret, 2);
ok($str, "ABCABCP");

##############

# Shifted; ignorable after variable

($ret) = $Collator->match("A?\x{300}!\x{301}\x{344}B\x{315}", "?!");
ok($ret, "?\x{300}!\x{301}\x{344}");

$Collator->change(alternate => 'Non-ignorable');

($ret) = $Collator->match("A?\x{300}!\x{301}B\x{315}", "?!");
ok($ret, undef);
Commit	Line	Data
4d36a948	1
4d36a948	2	BEGIN {
ae6aa562	3	unless ("A" eq pack('U', 0x41)) {
9f1f04a1	4	print "1..0 # Unicode::Collate " .
9f1f04a1	5	"cannot stringify a Unicode code point\n";
4d36a948	6	exit 0;
	7	}
	8	}
	9
	10	BEGIN {
	11	if ($ENV{PERL_CORE}) {
	12	chdir('t') if -d 't';
63c6dcc1	13	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
4d36a948	14	}
	15	}
	16
	17	use Test;
	18	BEGIN { plan tests => 65 };
4c843366	19
	20	use strict;
	21	use warnings;
4d36a948	22	use Unicode::Collate;
	23
	24	our $IsEBCDIC = ord("A") != 0x41;
	25
	26	#########################
	27
	28	ok(1); # If we made it this far, we're ok.
	29
	30	my $Collator = Unicode::Collate->new(
	31	table => 'keys.txt',
	32	normalization => undef,
	33	);
	34
	35	##############
	36
	37	my %old_level = $Collator->change(level => 2);
	38
	39	my $str;
	40
	41	my $orig = "This is a Perl book.";
	42	my $sub = "PERL";
	43	my $rep = "camel";
	44	my $ret = "This is a camel book.";
	45
	46	$str = $orig;
	47	if (my($pos,$len) = $Collator->index($str, $sub)) {
	48	substr($str, $pos, $len, $rep);
	49	}
	50
	51	ok($str, $ret);
	52
	53	$Collator->change(%old_level);
	54
	55	$str = $orig;
	56	if (my($pos,$len) = $Collator->index($str, $sub)) {
	57	substr($str, $pos, $len, $rep);
	58	}
	59
	60	ok($str, $orig);
	61
	62	##############
	63
	64	my $match;
	65
	66	$Collator->change(level => 1);
	67
	68	$str = "Pe\x{300}rl";
	69	$sub = "pe";
	70	$ret = "Pe\x{300}";
	71	$match = undef;
	72	if (my($pos, $len) = $Collator->index($str, $sub)) {
	73	$match = substr($str, $pos, $len);
	74	}
	75	ok($match, $ret);
	76
	77	$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
	78	$sub = "pE";
	79	$ret = "P\x{300}e\x{300}\x{301}\x{303}";
	80	$match = undef;
	81	if (my($pos, $len) = $Collator->index($str, $sub)) {
	82	$match = substr($str, $pos, $len);
	83	}
	84	ok($match, $ret);
	85
86	$Collator->change(level => 2);
87
88	$str = "Pe\x{300}rl";
89	$sub = "pe";
90	$ret = undef;
91	$match = undef;
92	if (my($pos, $len) = $Collator->index($str, $sub)) {
93	$match = substr($str, $pos, $len);
94	}
95	ok($match, $ret);
96
97	$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
98	$sub = "pE";
99	$ret = undef;
100	$match = undef;
101	if (my($pos, $len) = $Collator->index($str, $sub)) {
102	$match = substr($str, $pos, $len);
103	}
104	ok($match, $ret);
105
106	$str = "Pe\x{300}rl";
107	$sub = "pe\x{300}";
108	$ret = "Pe\x{300}";
109	$match = undef;
110	if (my($pos, $len) = $Collator->index($str, $sub)) {
111	$match = substr($str, $pos, $len);
112	}
113	ok($match, $ret);
114
115	$str = "P\x{300}e\x{300}\x{301}\x{303}rl";
116	$sub = "p\x{300}E\x{300}\x{301}\x{303}";
117	$ret = "P\x{300}e\x{300}\x{301}\x{303}";
118	$match = undef;
119	if (my($pos, $len) = $Collator->index($str, $sub)) {
120	$match = substr($str, $pos, $len);
121	}
122	ok($match, $ret);
123
124	##############
125
126	$Collator->change(level => 1);
127
128	$str = $IsEBCDIC
129	? "Ich mu\x{0059} studieren Perl."
130	: "Ich mu\x{00DF} studieren Perl.";
131	$sub = $IsEBCDIC
132	? "m\x{00DC}ss"
133	: "m\x{00FC}ss";
134	$ret = $IsEBCDIC
135	? "mu\x{0059}"
136	: "mu\x{00DF}";
137	$match = undef;
138	if (my($pos, $len) = $Collator->index($str, $sub)) {
139	$match = substr($str, $pos, $len);
140	}
141	ok($match, $ret);
142
143	$Collator->change(%old_level);
144
145	$match = undef;
146	if (my($pos, $len) = $Collator->index($str, $sub)) {
147	$match = substr($str, $pos, $len);
148	}
149	ok($match, undef);
150
151	$match = undef;
152	if (my($pos,$len) = $Collator->index("", "")) {
153	$match = substr("", $pos, $len);
154	}
155	ok($match, "");
156
157	$match = undef;
158	if (my($pos,$len) = $Collator->index("", "abc")) {
159	$match = substr("", $pos, $len);
160	}
161	ok($match, undef);
162
163	##############
164
165	$Collator->change(level => 1);
166
167	$str = "\0\cA\0\cAe\0\x{300}\cA\x{301}\cB\x{302}\0 \0\cA";
168	$sub = "e";
169	$ret = "e\0\x{300}\cA\x{301}\cB\x{302}\0";
170	$match = undef;
171	if (my($pos, $len) = $Collator->index($str, $sub)) {
172	$match = substr($str, $pos, $len);
173	}
174	ok($match, $ret);
175
176	$Collator->change(level => 1);
177
178	$str = "\0\cA\0\cAe\0\cA\x{300}\0\cAe";
179	$sub = "e";
180	$ret = "e\0\cA\x{300}\0\cA";
181	$match = undef;
182	if (my($pos, $len) = $Collator->index($str, $sub)) {
183	$match = substr($str, $pos, $len);
184	}
185	ok($match, $ret);
186
187
188	$Collator->change(%old_level);
189
190	$str = "e\x{300}";
191	$sub = "e";
192	$ret = undef;
193	$match = undef;
194	if (my($pos, $len) = $Collator->index($str, $sub)) {
195	$match = substr($str, $pos, $len);
196	}
197	ok($match, $ret);
198
199	##############
200
201	$Collator->change(level => 1);
202
203	$str = "The Perl is a language, and the perl is an interpreter.";
204	$sub = "PERL";
205
206	$match = undef;
207	if (my($pos, $len) = $Collator->index($str, $sub, -40)) {
208	$match = substr($str, $pos, $len);
209	}
210	ok($match, "Perl");
211
212	$match = undef;
213	if (my($pos, $len) = $Collator->index($str, $sub, 4)) {
214	$match = substr($str, $pos, $len);
215	}
216	ok($match, "Perl");
217
218	$match = undef;
219	if (my($pos, $len) = $Collator->index($str, $sub, 5)) {
220	$match = substr($str, $pos, $len);
221	}
222	ok($match, "perl");
223
224	$match = undef;
225	if (my($pos, $len) = $Collator->index($str, $sub, 32)) {
226	$match = substr($str, $pos, $len);
227	}
228	ok($match, "perl");
229
230	$match = undef;
231	if (my($pos, $len) = $Collator->index($str, $sub, 33)) {
232	$match = substr($str, $pos, $len);
233	}
234	ok($match, undef);
235
236	$match = undef;
237	if (my($pos, $len) = $Collator->index($str, $sub, 100)) {
238	$match = substr($str, $pos, $len);
239	}
240	ok($match, undef);
241
242	$Collator->change(%old_level);
243
244	##############
245
246	my @ret;
247
248	$Collator->change(level => 1);
249
250	$ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
251	ok($ret);
252	ok($$ret eq "P\cBe\x{300}\cB");
253
254	@ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
255	ok($ret[0], "P\cBe\x{300}\cB");
256
257	$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
258	$sub = $IsEBCDIC ? "m\x{00DC}ss" : "m\x{00FC}ss";
259
260	($ret) = $Collator->match($str, $sub);
261	ok($ret, $str);
262
263	$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
264	$sub = $IsEBCDIC ? "m\x{00DC}s" : "m\x{00FC}s";
265
266	($ret) = $Collator->match($str, $sub);
267	ok($ret, undef);
268
269	$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
270	ok($ret eq "P\cBe\x{300}\cB:pe:PE");
271
272	$ret = $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
273	ok($ret == 3);
274
275	$str = "ABCDEF";
276	$sub = "cde";
277	$ret = $Collator->match($str, $sub);
278	$str = "01234567";
279	ok($ret && $$ret, "CDE");
280
281	$str = "ABCDEF";
282	$sub = "cde";
283	($ret) = $Collator->match($str, $sub);
284	$str = "01234567";
285	ok($ret, "CDE");
286
287
288	$Collator->change(level => 3);
289
290	$ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
291	ok($ret, undef);
292
293	@ret = $Collator->match("P\cBe\x{300}\cBrl and PERL", "pe");
294	ok(@ret == 0);
295
296	$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl and PERL", "pe");
297	ok($ret eq "");
298
299	$ret = $Collator->gmatch("P\cBe\x{300}\cBrl and PERL", "pe");
300	ok($ret == 0);
301
302	$ret = join ':', $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
303	ok($ret eq "pe");
304
305	$ret = $Collator->gmatch("P\cBe\x{300}\cBrl, perl, and PERL", "pe");
306	ok($ret == 1);
307
308	$str = $IsEBCDIC ? "mu\x{0059}" : "mu\x{00DF}";
309	$sub = $IsEBCDIC ? "m\x{00DC}ss" : "m\x{00FC}ss";
310
311	($ret) = $Collator->match($str, $sub);
312	ok($ret, undef);
313
314	$Collator->change(%old_level);
315
316	##############
317
318	$Collator->change(level => 1);
319
320	sub strreverse { scalar reverse shift }
321
322	$str = "P\cBe\x{300}\cBrl and PERL.";
323	$ret = $Collator->subst($str, "perl", 'Camel');
324	ok($ret, 1);
325	ok($str, "Camel and PERL.");
326
327	$str = "P\cBe\x{300}\cBrl and PERL.";
328	$ret = $Collator->subst($str, "perl", \&strreverse);
329	ok($ret, 1);
330	ok($str, "lr\cB\x{300}e\cBP and PERL.");
331
332	$str = "P\cBe\x{300}\cBrl and PERL.";
333	$ret = $Collator->gsubst($str, "perl", 'Camel');
334	ok($ret, 2);
335	ok($str, "Camel and Camel.");
336
337	$str = "P\cBe\x{300}\cBrl and PERL.";
338	$ret = $Collator->gsubst($str, "perl", \&strreverse);
339	ok($ret, 2);
340	ok($str, "lr\cB\x{300}e\cBP and LREP.");
341
342	$str = "Camel ass came\x{301}l CAMEL horse cAm\0E\0L...";
343	$Collator->gsubst($str, "camel", sub { "<b>$_[0]</b>" });
344	ok($str,
345	"<b>Camel</b> ass <b>came\x{301}l</b> <b>CAMEL</b> horse <b>cAm\0E\0L</b>...");
346
347	$Collator->change(level => 3);
348
349	$str = "P\cBe\x{300}\cBrl and PERL.";
350	$ret = $Collator->subst($str, "perl", "Camel");
351	ok(! $ret);
352	ok($str, "P\cBe\x{300}\cBrl and PERL.");
353
354	$str = "P\cBe\x{300}\cBrl and PERL.";
355	$ret = $Collator->subst($str, "perl", \&strreverse);
356	ok(! $ret);
357	ok($str, "P\cBe\x{300}\cBrl and PERL.");
358
359	$str = "P\cBe\x{300}\cBrl and PERL.";
360	$ret = $Collator->gsubst($str, "perl", "Camel");
361	ok($ret, 0);
362	ok($str, "P\cBe\x{300}\cBrl and PERL.");
363
364	$str = "P\cBe\x{300}\cBrl and PERL.";
365	$ret = $Collator->gsubst($str, "perl", \&strreverse);
366	ok($ret, 0);
367	ok($str, "P\cBe\x{300}\cBrl and PERL.");
368
369	$Collator->change(%old_level);
370
371	##############
372
373	$str = "Perl and Camel";
374	$ret = $Collator->gsubst($str, "\cA\cA\0", "AB");
375	ok($ret, 15);
376	ok($str, "ABPABeABrABlAB ABaABnABdAB ABCABaABmABeABlAB");
377
378	$str = '';
379	$ret = $Collator->subst($str, "", "ABC");
380	ok($ret, 1);
381	ok($str, "ABC");
382
383	$str = '';
384	$ret = $Collator->gsubst($str, "", "ABC");
385	ok($ret, 1);
386	ok($str, "ABC");
387
388	$str = 'PPPPP';
389	$ret = $Collator->gsubst($str, 'PP', "ABC");
390	ok($ret, 2);
391	ok($str, "ABCABCP");
392
393	##############
394
395	# Shifted; ignorable after variable
396
397	($ret) = $Collator->match("A?\x{300}!\x{301}\x{344}B\x{315}", "?!");
398	ok($ret, "?\x{300}!\x{301}\x{344}");
399
400	$Collator->change(alternate => 'Non-ignorable');
401
402	($ret) = $Collator->match("A?\x{300}!\x{301}B\x{315}", "?!");
403	ok($ret, undef);