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(
        dir => './html/entities',
        data_codepage => 'ISO-8859-2'
), "save to index");

ok($t->to_jsfind(
        dir => './html/entities-utf8',
        data_codepage => 'ISO-8859-2',
        index_codepage => '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	dpavlin	35	ok($t->to_jsfind(
45			dir => './html/entities',
46			data_codepage => 'ISO-8859-2'
47			), "save to index");
48	dpavlin	11
49	dpavlin	35	ok($t->to_jsfind(
50			dir => './html/entities-utf8',
51			data_codepage => 'ISO-8859-2',
52			index_codepage => 'UTF-8'
53			), "save to utf-8 index");
54	dpavlin	11
55			#ok_fail(
56
57