trunk/t/05entities.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 4;
use blib;
use jsFind;

BEGIN { use_ok('jsFind'); }

my $t = new jsFind B => 4;

my $i = 0;
foreach my $k (qw{
                &acirc; &ecirc; &egrave; &iuml; &ucirc; &foobar; lt_< gt_>
                èevapèiæ ¾aba ¹kola
        }) {
        $t->B_search(Key => $k,
                Data => { "path to $k" => {
                                t => "entity $k",
                                f => $i },
                        },
                Insert => 1,
                Append => 1,
        );
        $i++;
}

if (open(T,"| sort > entities.txt")) {
        print T $t->to_string;
        diag "entities saved in entities.txt";
        close(T);
}

my $tree_size = 0;
open(T, "entities.txt") || die "can't open entities.txt: $!";
while(<T>) {
        $tree_size++;
}

cmp_ok($tree_size, '==', $i, "insert $tree_size/$i");

ok($t->to_jsfind('./html/entities','ISO-8859-2'), "save to index");

ok($t->to_jsfind('./html/entities-utf8','ISO-8859-2','UTF-8'), "save to utf-8 index");

#ok_fail(


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	dpavlin	23	diag "entities saved in entities.txt";
33	dpavlin	11	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