/[pgestraier]/trunk/t/pgest.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/pgest.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 14 by dpavlin, Thu May 26 00:06:10 2005 UTC revision 25 by dpavlin, Fri May 27 21:06:01 2005 UTC
# Line 25  if ($pwd !~ m#^/#) { Line 25  if ($pwd !~ m#^/#) {
25  ok($pwd, "pwd: $pwd");  ok($pwd, "pwd: $pwd");
26  my $index = "$pwd/../data/casket/";  my $index = "$pwd/../data/casket/";
27    
28  my $sql = "select * from pgest('$index',?,?,?,?)";  my $sql = "select * from pgest('$index',?,?,?,?,?) as (id text)";
29  diag "$sql";  diag "$sql";
30    
31  my $sth = $dbh->prepare($sql) || die $dbh->errstr();  my $sth = $dbh->prepare($sql) || die $dbh->errstr();
32  ok($sth, "sth");  ok($sth, "sth");
33    
34  sub pgest {  sub pgest {
35          $sth->execute(@_) || die $sth->errstr();          $sth->execute(@_, "{'\@id'}" ) || die $sth->errstr();
36          {          {
37                  no warnings;                  no warnings;
38                  ok($sth, "execute(".join(",",@_).")");                  ok($sth, "execute(".join(",",@_).")");
# Line 88  foreach my $q (('@title STRINC Blade Run Line 88  foreach my $q (('@title STRINC Blade Run
88    
89  diag "Error handling test follows, ignore messages...";  diag "Error handling test follows, ignore messages...";
90  # test NULL handling  # test NULL handling
91  ok(! $dbh->do(qq{select * from pgest(null, '', '', 0, 0)}), "null index_path");  ok(! $dbh->do(qq`select * from pgest(null, '', '', 0, 0, array['\@id']) as (id text)`), "null index_path");
92  ok(my $hits = pgest('blade runner', '', 0, 0), "test search");  ok(my $hits = pgest('blade runner', '', 0, 0), "test search");
93  cmp_ok($hits, '==', pgest('blade runner', undef, 0, 0), "null attr");  cmp_ok($hits, '==', pgest('blade runner', undef, 0, 0), "null attr");
94  cmp_ok($hits, '==', pgest('blade runner', '', undef, 0), "null limit");  cmp_ok($hits, '==', pgest('blade runner', '', undef, 0), "null limit");
Legend:
Removed from v.14  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26