loncom/metadata_database/lonmetadata_test.pl - diff

Return to lonmetadata_test.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.2, 2004/01/12 21:48:38	version 1.3, 2004/01/12 21:56:32
Line 32 use DBI;	Line 32 use DBI;
use LONCAPA::lonmetadata();	use LONCAPA::lonmetadata();
use Test::Simple tests => 4;	use Test::Simple tests => 4;

	##
	## Note: The root password to my MySQL server is shown below.
	## Access is only allowed from localhost so it should be okay.
	## Now if you will excuse me I have to change the password on my luggage.
	##
	my $supersecretpassword = '123'; # shhhh

ok(&create_test_db(),'database creation');	ok(&create_test_db(),'database creation');
ok(&test_creation(),'table creation');	ok(&test_creation(),'table creation');
Line 47 exit;	Line 53 exit;
##	##
#####################################################################	#####################################################################
#####################################################################	#####################################################################
##
## Note: The root password to my MySQL server is shown below.
## Access is only allowed from localhost so it should be okay.
## Now if you will excuse me I have to change the password on my luggage.
##
my $supersecretpassword = '123'; # shhhh
sub create_test_db {	sub create_test_db {
my $dbh = DBI->connect("DBI:mysql:test","root",$supersecretpassword,	my $dbh = DBI->connect("DBI:mysql:test","root",$supersecretpassword,
{ RaiseError =>0,PrintError=>0});	{ RaiseError =>0,PrintError=>0});