view release on metacpan or  search on metacpan

t/table.t  view on Meta::CPAN

Test::More::is($o->primary_column($a), $a, 'set primary column to arrayref');

Test::More::is(scalar(Basset::DB::Table->primary_column('invalid name')), undef, 'Could not set primary column for class attribute');
};
{
#line 165  autogenerated

my $o = Basset::DB::Table->new();

Test::More::ok($o, "created object");
Test::More::is($o->autogenerated(1), 1, "set autogenerated");
Test::More::is($o->autogenerated(), 1, "accessed autogenerated");
Test::More::is($o->autogenerated(0), 0, "shut off autogenerated");
Test::More::is($o->autogenerated, 0, "accessed autogenerated");

Test::More::is(scalar(Basset::DB::Table->autogenerated(1)), undef, "Could not set autogenerated for class");
};
{
#line 242  definition

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");

my $h = {'foo' => 'bar', 'baz' => 'yee'};
Test::More::ok($h, 'got hashref');
Test::More::is($h->{'foo'}, 'bar', 'foo is bar');
Test::More::is($h->{'baz'}, 'yee', 'baz is yee');
Test::More::is($o->definition($h), $h, "Set definition");
Test::More::is($o->definition(), $h, 'reset definition');
Test::More::is(scalar(Basset::DB::Table->definition(1)), undef, 'Could not set definition for class');
};
{
#line 285  references

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");

my $h = {'foo' => 'bar', 'baz' => 'yee'};
Test::More::ok($h, 'got hashref');
Test::More::is($h->{'foo'}, 'bar', 'foo is bar');
Test::More::is($h->{'baz'}, 'yee', 'baz is yee');
Test::More::is($o->references($h), $h, "Set references");
Test::More::is($o->references(), $h, 'reset references');
Test::More::is(scalar(Basset::DB::Table->references(1)), undef, 'Could not set references for class');
};
{
#line 356  extra_select

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");

my $h = {'foo' => 'bar', 'baz' => 'yee'};
Test::More::ok($h, 'got hashref');
Test::More::is($h->{'foo'}, 'bar', 'foo is bar');
Test::More::is($h->{'baz'}, 'yee', 'baz is yee');
Test::More::is($o->extra_select($h), $h, "Set extra_select");
Test::More::is($o->extra_select(), $h, 'reset extra_select');
Test::More::is(scalar(Basset::DB::Table->extra_select(1)), undef, 'Could not set extra_select for class');
};
{
#line 404  db_read_translation

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");

my $h = {'foo' => 'bar', 'baz' => 'yee'};
Test::More::ok($h, 'got hashref');
Test::More::is($h->{'foo'}, 'bar', 'foo is bar');
Test::More::is($h->{'baz'}, 'yee', 'baz is yee');
Test::More::is($o->db_read_translation($h), $h, "Set db_read_translation");
Test::More::is($o->db_read_translation(), $h, 'reset db_read_translation');
Test::More::is(scalar(Basset::DB::Table->db_read_translation(1)), undef, 'Could not set db_read_translation for class');
};
{
#line 535  db_write_translation

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");

my $h = {'foo' => 'bar', 'baz' => 'yee'};
Test::More::ok($h, 'got hashref');
Test::More::is($h->{'foo'}, 'bar', 'foo is bar');
Test::More::is($h->{'baz'}, 'yee', 'baz is yee');
Test::More::is($o->db_write_translation($h), $h, "Set db_write_translation");
Test::More::is($o->db_write_translation(), $h, 'reset db_write_translation');
Test::More::is(scalar(Basset::DB::Table->db_write_translation(1)), undef, 'Could not set db_write_translation for class');
};
{
#line 580  column_aliases

my $aliases = {
	'able' => 'aliased_able',
	'baker' => 'aliased_baker',
	'charlie' => 'aliased_charlie',
	'delta' => 'aliased_delta'
};

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Created object");

Test::More::is($o->column_aliases($aliases), $aliases, "Set column aliases");
Test::More::is($o->column_aliases(), $aliases, "Got column aliases");
};
{
#line 607  _cached_queries

my $o = Basset::DB::Table->new();
Test::More::ok($o, "Got object");
Test::More::is(scalar(Basset::DB::Table->_cached_queries), undef, "could not call object method as class method");
Test::More::is(Basset::DB::Table->errcode, "BO-08", "proper error code");
Test::More::is(ref($o->_cached_queries), 'HASH', '_cached_queries is hashref');
Test::More::is($o->_cached_queries('abc'), 'abc', 'set _cached_queries to abc');
Test::More::is($o->_cached_queries(), 'abc', 'read value of _cached_queries - abc');
my $h = {};
Test::More::ok($h, 'got hashref');
Test::More::is($o->_cached_queries($h), $h, 'set _cached_queries to hashref');
Test::More::is($o->_cached_queries(), $h, 'read value of _cached_queries  - hashref');
my $a = [];
Test::More::ok($a, 'got arrayref');
Test::More::is($o->_cached_queries($a), $a, 'set _cached_queries to arrayref');
Test::More::is($o->_cached_queries(), $a, 'read value of _cached_queries  - arrayref');