1 |
dpavlin |
11 |
#!/usr/bin/perl |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings; |
5 |
|
|
|
6 |
|
|
use Test::More tests => 4; |
7 |
|
|
use blib; |
8 |
|
|
use jsFind; |
9 |
|
|
|
10 |
|
|
BEGIN { use_ok('jsFind'); } |
11 |
|
|
|
12 |
|
|
my $t = new jsFind B => 4; |
13 |
|
|
|
14 |
|
|
my $i = 0; |
15 |
|
|
foreach my $k (qw{ |
16 |
|
|
â ê è ï û &foobar; lt_< gt_> |
17 |
|
|
èevapèiæ ¾aba ¹kola |
18 |
|
|
}) { |
19 |
|
|
$t->B_search(Key => $k, |
20 |
|
|
Data => { "path to $k" => { |
21 |
|
|
t => "entity $k", |
22 |
|
|
f => $i }, |
23 |
|
|
}, |
24 |
|
|
Insert => 1, |
25 |
|
|
Append => 1, |
26 |
|
|
); |
27 |
|
|
$i++; |
28 |
|
|
} |
29 |
|
|
|
30 |
|
|
if (open(T,"| sort > entities.txt")) { |
31 |
|
|
print T $t->to_string; |
32 |
|
|
print STDERR "entities saved in entities.txt\n"; |
33 |
|
|
close(T); |
34 |
|
|
} |
35 |
|
|
|
36 |
|
|
my $tree_size = 0; |
37 |
|
|
open(T, "entities.txt") || die "can't open entities.txt: $!"; |
38 |
|
|
while(<T>) { |
39 |
|
|
$tree_size++; |
40 |
|
|
} |
41 |
|
|
|
42 |
|
|
cmp_ok($tree_size, '==', $i, "insert $tree_size/$i"); |
43 |
|
|
|
44 |
|
|
ok($t->to_jsfind('./html/entities','ISO-8859-2'), "save to index"); |
45 |
|
|
|
46 |
|
|
ok($t->to_jsfind('./html/entities-utf8','ISO-8859-2','UTF-8'), "save to utf-8 index"); |
47 |
|
|
|
48 |
|
|
#ok_fail( |
49 |
|
|
|
50 |
|
|
|