--- trunk/t/pgest.t	2005/05/26 19:43:56	21
+++ trunk/t/pgest.t	2005/05/26 20:16:34	22
@@ -25,14 +25,14 @@
 ok($pwd, "pwd: $pwd");
 my $index = "$pwd/../data/casket/";
 
-my $sql = "select * from pgest('$index',?,?,?,?)";
+my $sql = "select * from pgest('$index',?,?,?,?,?) as (id text)";
 diag "$sql";
 
 my $sth = $dbh->prepare($sql) || die $dbh->errstr();
 ok($sth, "sth");
 
 sub pgest {
-	$sth->execute(@_) || die $sth->errstr();
+	$sth->execute(@_, "{'\@id'}" ) || die $sth->errstr();
 	{
 		no warnings;
 		ok($sth, "execute(".join(",",@_).")");