--- trunk/t/pgest.t	2005/05/20 22:09:16	8
+++ trunk/t/pgest.t	2005/05/22 21:18:11	9
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 25;
+use Test::More tests => 33;
 
 BEGIN {
 	use_ok('DBI');
@@ -46,8 +46,12 @@
 
 sub estcmd {
 	my $q = shift;
+	my $attr = shift;
 
-	my $cmd = "estcmd search $index '$q'";
+	my $cmd = "estcmd search ";
+	$cmd .= " -attr '$attr' " if ($attr);
+	$q ||= '';
+	$cmd .= "$index '$q'";
 	diag $cmd;
 
 	open(my $fh, "$cmd |") || die "cmd: $!";
@@ -59,7 +63,8 @@
 	return undef;
 }
 
-foreach my $q (qw(blade runner Philip filip dick)) {
+# test simple query
+foreach my $q (qw(blade runner Philip k. dick)) {
 
 	ok(my $hits = estcmd($q), "estcmd: $q");
 
@@ -67,3 +72,14 @@
 
 	cmp_ok(scalar pgest($q, '', 0, 0), '==', $hits, 'blade runner');
 }
+
+# test attr query
+foreach my $q (('@title STRINC Blade Runner', '@title ISTRBW blade runner')) {
+
+	ok(my $hits = estcmd('',$q), "estcmd: $q");
+
+	diag "$hits hits";
+
+	cmp_ok(scalar pgest('', $q, 0, 0), '==', $hits, 'blade runner');
+}
+