use
strict;
use
warnings;
use
Test::More;
package
Foo;
eval
{
Foo->table(
"foo"
);
Foo->columns(
Essential
=>
qw(foo bar)
);
#Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
};
#::is $@, '';
::is(Foo->table,
"foo"
);
::is_deeply [
sort
map
lc
, Foo->columns], [
sort
map
lc
,
qw(foo bar)
];
::done_testing;