DBIx-Custom / t / dbix-custom-query.t /
Newer Older
26 lines | 0.495kb
packaging one directory
yuki-kimoto authored on 2009-11-16
1
use Test::More 'no_plan';
2

            
3
use strict;
4
use warnings;
5
use DBIx::Custom::Query;
6

            
7
# Function for test name
table object call dbi object...
Yuki Kimoto authored on 2011-01-25
8
sub test{ print "# $_[0]\n" }
packaging one directory
yuki-kimoto authored on 2009-11-16
9

            
10
# Variables for test
11
my $query;
12

            
13
test 'Accessors';
14
$query = DBIx::Custom::Query->new(
15
    sql              => 'a',
add all tests
yuki-kimoto authored on 2010-05-01
16
    columns        => 'b',
17
    filter      => 'c',
packaging one directory
yuki-kimoto authored on 2009-11-16
18
    sth              => 'e',
19
    fetch_filter     => 'f',
20
);
21

            
cleanup
Yuki Kimoto authored on 2011-01-23
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
yuki-kimoto authored on 2009-11-16
26