DBIx-Custom / t / dbix-custom-query.t /
75dbc63 13 years ago
2 contributor
26 lines | 0.495kb
use Test::More 'no_plan';

use strict;
use warnings;
use DBIx::Custom::Query;

# Function for test name
sub test{ print "# $_[0]\n" }

# Variables for test
my $query;

test 'Accessors';
$query = DBIx::Custom::Query->new(
    sql              => 'a',
    columns        => 'b',
    filter      => 'c',
    sth              => 'e',
    fetch_filter     => 'f',
);

is($query->sql, 'a', "sql");
is($query->columns, 'b', "columns ");
is($query->filter, 'c', "filter");
is($query->sth, 'e', "sth");