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

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

From: gmccarroll
Subject: [siesta-commit] siesta/t 06database.t,NONE,1.1
Date: 15:04 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv28099

Added Files:
	06database.t 
Log Message:

some more tests


--- NEW FILE: 06database.t ---
#!perl -w
use strict;

use Test::More tests => 7;
use Test::MockObject;
use Siesta::Config;
BEGIN { $Siesta::Config::DBFILE = 't/test.db' }
use Siesta::List;

my $t_lists = Siesta::Storage::Table::Lists->new();
ok( $t_lists, "got table object for lists");
isa_ok( $t_lists, "Siesta::Storage::Table::Lists",  );
isa_ok( $t_lists, "Siesta::Storage::Table",  );
isa_ok( $t_lists, "Class::DBI",  );
isa_ok( $t_lists, "Ima::DBI",  );

my $dbh = $t_lists->dbh();
ok ($dbh , "got a dbh object out");
isa_ok( $dbh, "DBI::db",);





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