[siesta-commit] siesta/t 06database.t,1.1,1.2

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

From: clampr
Subject: [siesta-commit] siesta/t 06database.t,1.1,1.2
Date: 15:32 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv7386

Modified Files:
	06database.t 
Log Message:
this test fails for me :(


Index: 06database.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/06database.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 06database.t	23 Aug 2002 14:04:50 -0000	1.1
+++ 06database.t	23 Aug 2002 14:32:08 -0000	1.2
@@ -1,7 +1,7 @@
 #!perl -w
 use strict;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Test::MockObject;
 use Siesta::Config;
 BEGIN { $Siesta::Config::DBFILE = 't/test.db' }
@@ -14,8 +14,7 @@
 isa_ok( $t_lists, "Class::DBI",  );
 isa_ok( $t_lists, "Ima::DBI",  );
 
+can_ok( $t_lists, 'dbh' );
 my $dbh = $t_lists->dbh();
 ok ($dbh , "got a dbh object out");
-isa_ok( $dbh, "DBI::db",);
-
-
+isa_ok( $dbh, "DBI::db" );



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52