--- trunk/t/7-est.t	2005/12/05 17:47:04	210
+++ trunk/t/7-est.t	2005/12/05 17:47:10	211
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use File::Temp qw/tempdir/;
@@ -10,6 +10,7 @@
 use blib;
 
 BEGIN {
+use_ok( 'WebPAC::Output::Estraier' );
 use_ok( 'WebPAC::Search::Estraier' );
 use_ok( 'Log::Log4perl' );
 }
@@ -17,14 +18,23 @@
 Log::Log4perl::init('./conf/log.conf');
 ok(my $log = Log::Log4perl->get_logger('WebPAC.test'), "get_logger");
 
-ok(my $est = new WebPAC::Search::Estraier(
- 	url => 'http://localhost:1978/node/webpac2',
+my $config = {
+ 	masterurl => 'http://localhost:1978/',
 	user => 'admin',
 	passwd => 'admin',
+	database => 'webpac2test',
 	encoding => 'iso-8859-2',
 	log => $log,
 	debug => 1,
-), "new");
+};
+
+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}");
+
+ok($est = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
 
 my $query = 'ivan';
 my $max = 3;