Rose-DB-Object-0.814/t/save-cascade.t

112     $p->dbh->do('DELETE FROM product_colors');
113     $p->dbh->do('DELETE FROM colors');
114     $p->dbh->do('DELETE FROM prices');
115     $p->dbh->do('DELETE FROM products');
116     $p->dbh->do('DELETE FROM vendors');
128   my $dbh;
132     $dbh = Rose::DB->new('pg_admin')->retain_dbh()
136   if(!$@ && $dbh)
143       local $dbh->{'RaiseError'} = 0;
144       local $dbh->{'PrintError'} = 0;
146       $dbh->do('DROP TABLE product_colors CASCADE');
147       $dbh->do('DROP TABLE prices CASCADE');
148       $dbh->do('DROP TABLE products CASCADE');
149       $dbh->do('DROP TABLE colors CASCADE');
150       $dbh->do('DROP TABLE vendors CASCADE');
153     $dbh->do(<<"EOF");
161     $dbh->do(<<"EOF");
169     $dbh->do(<<"EOF");
180     $dbh->do(<<"EOF");
190     $dbh->do(<<"EOF");
199     $dbh->disconnect;
209     $dbh = $db->retain_dbh or die Rose::DB->error;
215       local $dbh->{'RaiseError'} = 0;
216       local $dbh->{'PrintError'} = 0;
218       $dbh->do('DROP TABLE product_colors CASCADE');
219       $dbh->do('DROP TABLE prices CASCADE');
220       $dbh->do('DROP TABLE products CASCADE');
221       $dbh->do('DROP TABLE colors CASCADE');
222       $dbh->do('DROP TABLE vendors CASCADE');
226   if(!$@ && $dbh)
230     $dbh->do(<<"EOF");
239     $dbh->do(<<"EOF");
248     $dbh->do(<<"EOF");
263     $dbh->do(<<"EOF");
278     $dbh->do(<<"EOF");
294     $dbh->disconnect;
303     $dbh = Rose::DB->new('informix_admin')->retain_dbh()
307   if(!$@ && $dbh)
313       local $dbh->{'RaiseError'} = 0;
314       local $dbh->{'PrintError'} = 0;
316       $dbh->do('DROP TABLE product_colors CASCADE');
317       $dbh->do('DROP TABLE prices CASCADE');
318       $dbh->do('DROP TABLE products CASCADE');
319       $dbh->do('DROP TABLE colors CASCADE');
320       $dbh->do('DROP TABLE vendors CASCADE');
323     $dbh->do(<<"EOF");
331     $dbh->do(<<"EOF");
339     $dbh->do(<<"EOF");
350     $dbh->do(<<"EOF");
360     $dbh->do(<<"EOF");
369     $dbh->disconnect;
378     $dbh = Rose::DB->new('sqlite_admin')->retain_dbh()
382   if(!$@ && $dbh)
388       local $dbh->{'RaiseError'} = 0;
389       local $dbh->{'PrintError'} = 0;
391       $dbh->do('DROP TABLE product_colors');
392       $dbh->do('DROP TABLE prices');
393       $dbh->do('DROP TABLE products');
394       $dbh->do('DROP TABLE colors');
395       $dbh->do('DROP TABLE vendors');
398     $dbh->do(<<"EOF");
406     $dbh->do(<<"EOF");
414     $dbh->do(<<"EOF");
425     $dbh->do(<<"EOF");
435     $dbh->do(<<"EOF");
444     $dbh->disconnect;
455     my $dbh = Rose::DB->new('pg_admin')->retain_dbh()
458     $dbh->do('DROP TABLE product_colors CASCADE');
459     $dbh->do('DROP TABLE prices CASCADE');
460     $dbh->do('DROP TABLE products CASCADE');
461     $dbh->do('DROP TABLE colors CASCADE');
462     $dbh->do('DROP TABLE vendors CASCADE');
464     $dbh->disconnect;
470     my $dbh = Rose::DB->new('mysql_admin')->retain_dbh()
473     $dbh->do('DROP TABLE product_colors CASCADE');
474     $dbh->do('DROP TABLE prices CASCADE');
475     $dbh->do('DROP TABLE products CASCADE');
476     $dbh->do('DROP TABLE colors CASCADE');
477     $dbh->do('DROP TABLE vendors CASCADE');
479     $dbh->disconnect;
485     my $dbh = Rose::DB->new('informix_admin')->retain_dbh()
488     $dbh->do('DROP TABLE product_colors CASCADE');
489     $dbh->do('DROP TABLE prices CASCADE');
490     $dbh->do('DROP TABLE products CASCADE');
491     $dbh->do('DROP TABLE colors CASCADE');
492     $dbh->do('DROP TABLE vendors CASCADE');
494     $dbh->disconnect;
500     my $dbh = Rose::DB->new('sqlite_admin')->retain_dbh()
503     $dbh->do('DROP TABLE product_colors');
504     $dbh->do('DROP TABLE prices');
505     $dbh->do('DROP TABLE products');
506     $dbh->do('DROP TABLE colors');
507     $dbh->do('DROP TABLE vendors');
509     $dbh->disconnect;