Parent Directory | Revision Log
convert all print STDERR to diag, rename homer test to end with .t (woops), create homer_words.txt and homer_text.txt, preserve order when inserting into index (it doesn't really matter for index, but it's nice to have debugging output which is correct)
1 | #!/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 | diag "entities saved in entities.txt"; |
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |