Thread: [Lxr-commits] CVS: lxr-tools/tests PostgresTest.pm,1.1,1.2
Brought to you by:
ajlittoz
From: Malcolm B. <mb...@us...> - 2009-05-14 21:14:12
|
Update of /cvsroot/lxr/lxr-tools/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv564 Modified Files: PostgresTest.pm Log Message: Update tests to use Index::commit to flush changes to disk before trying to check. Tests should now pass on unmodified LXR Index: PostgresTest.pm =================================================================== RCS file: /cvsroot/lxr/lxr-tools/tests/PostgresTest.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- PostgresTest.pm 12 May 2009 15:51:42 -0000 1.1 +++ PostgresTest.pm 14 May 2009 21:13:59 -0000 1.2 @@ -39,6 +39,7 @@ $self->assert_not_equals($id, $id2); # Look in the database for the files + $pg->commit; my $data; $data = $dbh->selectrow_array("SELECT filename FROM lxr_files WHERE fileid = $id"); $self->assert_equals("/lxr/tests/testpath", $data); @@ -130,6 +131,7 @@ # Check that the declarations are in the database my $data; + $pg->commit; $data = $dbh->selectall_arrayref("SELECT s.symname, i.line, i.type FROM lxr_indexes as i, lxr_symbols as s WHERE i.symid = s.symid AND i.fileid = $fid1"); $self->assert_equals( "symbol1", $data->[0]->[0]); $self->assert_equals(1000, $data->[0]->[1]); @@ -182,6 +184,7 @@ # Check directly in database my $data; + $pg->commit; $data = $dbh->selectall_arrayref("SELECT * from lxr_usage WHERE symid=".$pg->symid("symbol1")." ORDER BY line"); $self->assert_equals(2000,$data->[0]->[1]); $self->assert_equals(2001, $data->[1]->[1]); @@ -231,6 +234,7 @@ $self->{'pg'} = new LXR::Index($config->dbname); # Create direct connection to DB $self->{'dbh'} = DBI->connect($config->dbname); + $self->{'dbh'}->{AutoCommit} = 1; } sub tear_down { |