Rose-DB-Object-0.814/t/spot-check-04.t

100   my $dbh;
104     $dbh = Rose::DB->new('pg_admin')->retain_dbh()
108   if(!$@ && $dbh)
115       local $dbh->{'RaiseError'} = 0;
116       local $dbh->{'PrintError'} = 0;
117       $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
118       $dbh->do('DROP TABLE rdbo_albums CASCADE');
119       $dbh->do('DROP TABLE Rose_db_object_private.rdbo_album_artwork CASCADE');
120       $dbh->do('DROP TABLE Rose_db_object_private.rdbo_albums CASCADE');
121       $dbh->do('CREATE SCHEMA Rose_db_object_private');
124     $dbh->do(<<"EOF");
135     $dbh->do(<<"EOF");
143     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (1, 'id1', 'album1', 'artist1', 1999)));
144     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (2, 'id2', 'album2', 'artist1', 2000)));
145     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (3, 'id3', 'album3', 'artist2', 1934)));
146     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (4, 'id4', 'album4', 'artist2', 2020)));
148     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album1.jpg', 'id1')));
149     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album2.jpg', 'id2')));
151     $dbh->do(<<"EOF");
162     $dbh->do(<<"EOF");
170 …$dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_albums VALUES (1, 'id1', 'album1', 'artist1', …
171 …$dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_albums VALUES (2, 'id2', 'album2', 'artist1', …
172 …$dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_albums VALUES (3, 'id3', 'album3', 'artist2', …
173 …$dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_albums VALUES (4, 'id4', 'album4', 'artist2', …
175 …  $dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_album_artwork VALUES ('album1.jpg', 'id1')));
176 …  $dbh->do(qq(INSERT INTO Rose_db_object_private.rdbo_album_artwork VALUES ('album2.jpg', 'id2')));
178     $dbh->disconnect;
188     $dbh = $db->retain_dbh or die Rose::DB->error;
194       local $dbh->{'RaiseError'} = 0;
195       local $dbh->{'PrintError'} = 0;
196       $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
197       $dbh->do('DROP TABLE rdbo_albums CASCADE');
200     $dbh->do(<<"EOF");
216     my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
227   if(!$@ && $dbh)
231     $dbh->do(<<"EOF");
244     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (1, 'id1', 'album1', 'artist1', 1999)));
245     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (2, 'id2', 'album2', 'artist1', 2000)));
246     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (3, 'id3', 'album3', 'artist2', 1934)));
247     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (4, 'id4', 'album4', 'artist2', 2020)));
249     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album1.jpg', 'id1')));
250     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album2.jpg', 'id2')));
252     $dbh->disconnect;
261     $dbh = Rose::DB->new('informix_admin')->retain_dbh()
265   if(!$@ && $dbh)
271       local $dbh->{'RaiseError'} = 0;
272       local $dbh->{'PrintError'} = 0;
273       $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
274       $dbh->do('DROP TABLE rdbo_albums CASCADE');
277     $dbh->do(<<"EOF");
288     $dbh->do(<<"EOF");
296     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (1, 'id1', 'album1', 'artist1', 1999)));
297     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (2, 'id2', 'album2', 'artist1', 2000)));
298     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (3, 'id3', 'album3', 'artist2', 1934)));
299     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (4, 'id4', 'album4', 'artist2', 2020)));
301     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album1.jpg', 'id1')));
302     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album2.jpg', 'id2')));
304     $dbh->disconnect;
313     $dbh = Rose::DB->new('sqlite_admin')->retain_dbh()
317   if(!$@ && $dbh)
323       local $dbh->{'RaiseError'} = 0;
324       local $dbh->{'PrintError'} = 0;
325       $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
326       $dbh->do('DROP TABLE rdbo_albums CASCADE');
329     $dbh->do(<<"EOF");
340     $dbh->do(<<"EOF");
348     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (1, 'id1', 'album1', 'artist1', 1999)));
349     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (2, 'id2', 'album2', 'artist1', 2000)));
350     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (3, 'id3', 'album3', 'artist2', 1934)));
351     $dbh->do(qq(INSERT INTO rdbo_albums VALUES (4, 'id4', 'album4', 'artist2', 2020)));
353     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album1.jpg', 'id1')));
354     $dbh->do(qq(INSERT INTO rdbo_album_artwork VALUES ('album2.jpg', 'id2')));
356     $dbh->disconnect;
367     my $dbh = Rose::DB->new('pg_admin')->retain_dbh()
370     $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
371     $dbh->do('DROP TABLE rdbo_albums CASCADE');
372     $dbh->do('DROP TABLE Rose_db_object_private.rdbo_album_artwork CASCADE');
373     $dbh->do('DROP TABLE Rose_db_object_private.rdbo_albums CASCADE');
374     $dbh->do('DROP SCHEMA Rose_db_object_private CASCADE');
376     $dbh->disconnect;
382     my $dbh = Rose::DB->new('mysql_admin')->retain_dbh()
385     $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
386     $dbh->do('DROP TABLE rdbo_albums CASCADE');
388     $dbh->disconnect;
394     my $dbh = Rose::DB->new('informix_admin')->retain_dbh()
397     $dbh->do('DROP TABLE rdbo_album_artwork CASCADE');
398     $dbh->do('DROP TABLE rdbo_albums CASCADE');
400     $dbh->disconnect;
406     my $dbh = Rose::DB->new('sqlite_admin')->retain_dbh()
409     $dbh->do('DROP TABLE rdbo_album_artwork');
410     $dbh->do('DROP TABLE rdbo_albums');
412     $dbh->disconnect;