1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use warnings;
use Test::More;
use lib "lib";
use Test::DBIC::ExpectedQueries;
my $queries = Test::DBIC::ExpectedQueries->new({
schema => "don't run",
queries => [
Test::DBIC::ExpectedQueries::Query->new({
sql => "UPDATE datum SET is_valid = ? WHERE ( id = ? )",
stack_trace => "not under test",
report_subselect_tables => 0,
}),
Test::DBIC::ExpectedQueries::Query->new({
sql => "
sELECT *
from file",
stack_trace => "not under test",
report_subselect_tables => 0,
}),
],
});
is(scalar @{$queries->queries}, 2, "Parsed out two query objects");
my $query = $queries->queries->[0];
is($query->operation, "update", "Correct ->operation");
is($query->table, "datum", "Correct ->table");
$query = $queries->queries->[1];
is($query->operation, "select", "Correct ->operation");
is($query->table, "file", "Correct ->table");
done_testing();
|
