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;
        print STDERR "entities saved in entities.txt\n";
        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	#!/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