--- trunk/t/7-est.t	2005/12/05 17:47:10	211
+++ trunk/t/7-est.t	2005/12/05 17:47:16	212
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 7;
+use Test::More tests => 11;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use File::Temp qw/tempdir/;
@@ -25,23 +25,43 @@
 	database => 'webpac2test',
 	encoding => 'iso-8859-2',
 	log => $log,
-	debug => 1,
+	debug => 0,
 };
 
 ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier");
 
 ok(my $list = $est->est_master( action => 'nodelist' ), "nodelist");
 
-like($list , qr/$config->{database}/, "$list has $config->{database}");
+like($list , qr/$config->{database}/, "found $config->{database}");
+
+my $ds = {
+	'Source' => {
+		'name' => 'Izvor: ',
+		'tag' => 'Source',
+		'display' => [ 'foo' ],
+		'search' => [ 'demo source '],
+		},
+	'ID' => {
+		'name' => 'ID',
+		'tag' => 'IDths',
+		'search' => [ 'bar' ],
+		'lookup_key' => [ 'bar' ],
+		},
+	'filename' => [ 'out/thes/001.html' ],
+	'name' => 'filename',
+	'tag' => 'filename'
+};
+
+ok($est->add( id => 42, ds => $ds, type => 'search' ), "add");
 
 ok($est = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
 
-my $query = 'ivan';
-my $max = 3;
+my $query = 'demo';
+my $max = 1;
 
 ok(my @res = $est->search(
 	phrase => $query,
-	get_attr => [ qw/PersonalName TitleProper/ ],
+	get_attr => [ qw/ID Source/ ],
 	max => $max,
 ), "search $query, max: $max");