view release on metacpan or  search on metacpan

t/table.t  view on Meta::CPAN

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