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");