|
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 |
|
| 8 |
my $test; |
|
| 9 |
sub test{
|
|
| 10 |
$test = shift; |
|
| 11 |
} |
|
| 12 | ||
| 13 |
# Variables for test |
|
| 14 |
my $query; |
|
| 15 | ||
| 16 |
test 'Accessors'; |
|
| 17 |
$query = DBIx::Custom::Query->new( |
|
| 18 |
sql => 'a', |
|
| 19 |
key_infos => 'b', |
|
| 20 |
bind_filter => 'c', |
|
| 21 |
sth => 'e', |
|
| 22 |
fetch_filter => 'f', |
|
| 23 |
); |
|
| 24 | ||
| 25 |
is($query->sql, 'a', "$test : sql"); |
|
| 26 |
is($query->key_infos, 'b', "$test : key_infos "); |
|
| 27 |
is($query->bind_filter, 'c', "$test : bind_filter"); |
|
| 28 |
is($query->sth, 'e', "$test : sth"); |
|
| 29 |