Commit | Line | Data |
61063249 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use lib qw(t/lib); |
7 | use DBIC::SqlMakerTest; |
8 | |
9 | |
10 | use_ok('DBICTest'); |
11 | use_ok('DBIC::DebugObj'); |
12 | my $schema = DBICTest->init_schema(); |
13 | |
14 | my ($sql, @bind); |
15 | $schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)); |
16 | $schema->storage->debug(1); |
17 | |
18 | my $rs = $schema->resultset('BadNames1'); |
19 | |
20 | eval { |
21 | $rs->create({ good_name => 2002, }) |
22 | }; |
23 | |
24 | is_same_sql_bind( |
25 | $sql, \@bind, |
26 | "INSERT INTO bad_names_1( stupid_name ) VALUES ( ? )", ["'2002'"], |
27 | 'insert' |
28 | ); |
29 | |
30 | eval { |
31 | $rs->search({ 'me.good_name' => 2001 })->all |
32 | }; |
33 | |
34 | is_same_sql_bind( |
35 | $sql, \@bind, |
36 | "SELECT me.id, me.stupid_name FROM bad_names_1 me WHERE ( me.stupid_name = ? )", ["'2001'"], |
37 | 'select' |
38 | ); |
39 | |
40 | eval { |
41 | $rs->search({ 'me.good_name' => 2001 })->update({ good_name => 2112 }) |
42 | }; |
43 | |
44 | |
45 | is_same_sql_bind( |
46 | $sql, \@bind, |
47 | "UPDATE bad_names_1 SET stupid_name = ? WHERE ( stupid_name = ? )", ["'2112'", "'2001'"], |
48 | 'update' |
49 | ); |
50 | |
51 | eval { |
52 | $rs->search({ 'me.good_name' => 2001 })->delete |
53 | }; |
54 | |
55 | is_same_sql_bind( |
56 | $sql, \@bind, |
57 | "DELETE FROM bad_names_1 WHERE ( me.stupid_name = ? )", ["'2001'"], |
58 | 'delete' |
59 | ); |
60 | |
61 | done_testing; |