loncom/metadata_database/lonmetadata_test.pl - diff

Return to lonmetadata_test.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.3, 2004/01/12 21:56:32	version 1.4, 2004/04/08 14:51:19
Line 107 sub test_named_creation {	Line 107 sub test_named_creation {
}	}

sub test_inserts {	sub test_inserts {
	my $tablename = 'metadatatest';
my $dbh = DBI->connect("DBI:mysql:lonmetatest","root",$supersecretpassword,	my $dbh = DBI->connect("DBI:mysql:lonmetatest","root",$supersecretpassword,
{ RaiseError =>0,PrintError=>0});	{ RaiseError =>0,PrintError=>0});
my @TestRecords = (	my @TestRecords = (
Line 154 sub test_inserts {	Line 155 sub test_inserts {
hostname =>'6',	hostname =>'6',
},	},
);	);
	# Create the table
	my $request = &LONCAPA::lonmetadata::create_metadata_storage($tablename);
	$dbh->do($request);
	if ($dbh->err) {
	$dbh->disconnect();
	warn "Unable to create table for test";
	return 0;
	} else {
	$dbh->disconnect();
	return 1;
	}
	# Store the sample records
foreach my $data (@TestRecords) {	foreach my $data (@TestRecords) {
my ($count,$error) = &LONCAPA::lonmetadata::store_metadata($dbh,$data);	my ($count,$error) = &LONCAPA::lonmetadata::store_metadata($dbh,
	$tablename,
	$data);
if (! $count) {	if (! $count) {
warn $error;	warn $error;
return 0;	return 0;