use strict;     
use Test::More tests => 14;
use Test::Exception;

use_ok('Catalyst::Enzyme::CRUD::Model');


ok(my $model = Catalyst::Enzyme::CRUD::Model->new, "new");



print "\n* default_column_moniker\n";

is($model->default_column_moniker("foo"), "Foo", "Single word lowercase");
is($model->default_column_moniker("FOO"), "Foo", "Single word uppercase");
is($model->default_column_moniker("Foo"), "Foo", "Single word ucfirst");


is($model->default_column_moniker("id_foo"), "Foo", "Single word with id_");
is($model->default_column_moniker("foo_id"), "Foo", "Single word with _id");
is($model->default_column_moniker("id_foo_id"), "Foo", "Single word with id_ _id");
#found bug

is($model->default_column_moniker("foo_bar"), "Foo Bar", "Two word");
is($model->default_column_moniker("foo bar"), "Foo Bar", "Two word with whitespace");

is($model->default_column_moniker("foo__bar"), "Foo Bar", "Two word multi _");

is($model->default_column_moniker("foo _ _bar"), "Foo Bar", "Two word multi _ and space");


is($model->default_column_moniker("foo_Bar_BAZ"), "Foo Bar Baz", "Three word multicase");
#found bug

is($model->default_column_moniker("FOO_bar_BAZ_florp"), "Foo Bar Baz Florp", "Four word multicase");



__END__