packaging one directory
|
1 |
use Test::More 'no_plan'; |
2 | ||
3 |
use strict; |
|
4 |
use warnings; |
|
5 |
use DBIx::Custom::Query; |
|
6 | ||
7 |
# Function for test name |
|
cleanup
|
8 |
sub test{ "# $_[0]\n" } |
packaging one directory
|
9 | |
10 |
# Variables for test |
|
11 |
my $query; |
|
12 | ||
13 |
test 'Accessors'; |
|
14 |
$query = DBIx::Custom::Query->new( |
|
15 |
sql => 'a', |
|
add all tests
|
16 |
columns => 'b', |
17 |
filter => 'c', |
|
packaging one directory
|
18 |
sth => 'e', |
19 |
fetch_filter => 'f', |
|
20 |
); |
|
21 | ||
cleanup
|
22 |
is($query->sql, 'a', "sql"); |
23 |
is($query->columns, 'b', "columns "); |
|
24 |
is($query->filter, 'c', "filter"); |
|
25 |
is($query->sth, 'e', "sth"); |
|
packaging one directory
|
26 |