view release on metacpan or  search on metacpan

t/36_hooks.t  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
use Test::NoWarnings qw/had_no_warnings clear_warnings/;
 
use DBD::SQLeet;
 
plan tests => 24 * @CALL_FUNCS + 1;
 
# hooks : just count the commits / rollbacks / updates
my ($n_commits, $n_rollbacks, $n_updates, @update_args);
sub commit_hook   {  $n_commits   += 1; return 0; }
sub rollback_hook {  $n_rollbacks += 1; return 0; }
sub update_hook   {  $n_updates   += 1;
                     @update_args  = @_;          }
 
my $sql_count_rows = "SELECT COUNT(foo) FROM hook_test";
 
foreach my $call_func (@CALL_FUNCS) {
 
  # connect
  my $dbh = connect_ok( RaiseError => 1 );
  $dbh->do( 'CREATE TEMP TABLE hook_test ( foo )' );

t/39_foreign_keys.t  view on Meta::CPAN

68
69
70
71
72
73
74
75
76
77
78
79
80
ok update_track(3, "Mr. Bojangles");
 
# Now that "Sammy Davis Jr." (artistid = 3) has been added to the
# database, it is possible to INSERT new tracks using this artist
# without violating the foreign key constraint:
 
ok insert_track(15, "Boogie Woogie", 3);
 
sub insert_artist { _do("INSERT INTO artist (artistid, artistname) VALUES (?, ?)", @_ ); }
sub insert_track {  _do("INSERT INTO track (trackid, trackname, trackartist) VALUES (?, ?, ?)", @_); }
sub update_track {  _do("UPDATE track SET trackartist = ? WHERE trackname = ?", @_); }
 
sub _do { eval { $dbh->do(shift, undef, @_) }; }