Update of /cvsroot/openinteract/SPOPS/t
In directory usw-pr-cvs1:/tmp/cvs-serv5699
Modified Files:
dbi_config.pl
Log Message:
pass in the SPOPS object class being used/tested to check_dbd_compliance()
Index: dbi_config.pl
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/t/dbi_config.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dbi_config.pl 2001/11/04 17:42:27 1.1
--- dbi_config.pl 2001/11/04 17:54:56 1.2
***************
*** 1,4 ****
--- 1,6 ----
#!/usr/bin/perl
+ # $Id$
+
use strict;
use DBI;
***************
*** 115,119 ****
sub check_dbd_compliance {
! my ( $config, $driver_name ) = @_;
if ( $driver_name eq 'ASAny' ) {
--- 117,121 ----
sub check_dbd_compliance {
! my ( $config, $driver_name, $spops_class ) = @_;
if ( $driver_name eq 'ASAny' ) {
***************
*** 150,154 ****
warn "\nDBD Driver $driver_name does not support {TYPE} information\n",
"Installing manual types for test.\n";
! assign_manual_types( 'DBITest' );
}
--- 152,156 ----
warn "\nDBD Driver $driver_name does not support {TYPE} information\n",
"Installing manual types for test.\n";
! assign_manual_types( $spops_class );
}
|
