From: <pau...@us...> - 2007-07-24 18:05:20
|
Revision: 975 http://svn.sourceforge.net/everydevel/?rev=975&view=rev Author: paul_the_nomad Date: 2007-07-24 11:05:18 -0700 (Tue, 24 Jul 2007) Log Message: ----------- Fix in test for 'schema' changed feature of DBD::sqlite Modified Paths: -------------- trunk/ebase/lib/Everything/DB/Test/sqlite.pm Property Changed: ---------------- trunk/ebase/ Property changes on: trunk/ebase ___________________________________________________________________ Name: svk:merge - 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:1030 1b7afbaf-3eae-422c-ad05-e2bef7c06a0f:/wip/ebase:978 a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930 + 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:1030 1b7afbaf-3eae-422c-ad05-e2bef7c06a0f:/wip/ebase:979 a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930 Modified: trunk/ebase/lib/Everything/DB/Test/sqlite.pm =================================================================== --- trunk/ebase/lib/Everything/DB/Test/sqlite.pm 2007-07-24 18:04:26 UTC (rev 974) +++ trunk/ebase/lib/Everything/DB/Test/sqlite.pm 2007-07-24 18:05:18 UTC (rev 975) @@ -73,7 +73,7 @@ my @fields1 = qw/foo bar/; my @fields2 = qw/ saturn jupiter /; - $self->{instance}->{dbh}->mock( 'prepare_cached', sub { shift; } ); + $self->{instance}->{dbh}->mock( 'prepare', sub { shift; } ); $self->{instance}->{dbh} ->set_series( 'fetchrow_arrayref', \@fields1, \@fields2 ); my $DBTABLE = {}; @@ -87,7 +87,7 @@ 'table-dbtable', '... by name, of dbtable type' ); ( $method, $args ) = $self->{instance}->{dbh}->next_call(); - is( $method, 'prepare_cached', '... displaying the table columns' ); + is( $method, 'prepare', '... displaying the table columns' ); is( $args->[1], 'PRAGMA table_info(table)', This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |