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; |