1use strict; 2use Test::More tests => 14; 3use Test::Exception; 4 5use_ok('Catalyst::Enzyme::CRUD::Model'); 6 7 8ok(my $model = Catalyst::Enzyme::CRUD::Model->new, "new"); 9 10 11 12print "\n* default_column_moniker\n"; 13 14is($model->default_column_moniker("foo"), "Foo", "Single word lowercase"); 15is($model->default_column_moniker("FOO"), "Foo", "Single word uppercase"); 16is($model->default_column_moniker("Foo"), "Foo", "Single word ucfirst"); 17 18 19is($model->default_column_moniker("id_foo"), "Foo", "Single word with id_"); 20is($model->default_column_moniker("foo_id"), "Foo", "Single word with _id"); 21is($model->default_column_moniker("id_foo_id"), "Foo", "Single word with id_ _id"); 22#found bug 23 24is($model->default_column_moniker("foo_bar"), "Foo Bar", "Two word"); 25is($model->default_column_moniker("foo bar"), "Foo Bar", "Two word with whitespace"); 26 27is($model->default_column_moniker("foo__bar"), "Foo Bar", "Two word multi _"); 28 29is($model->default_column_moniker("foo _ _bar"), "Foo Bar", "Two word multi _ and space"); 30 31 32is($model->default_column_moniker("foo_Bar_BAZ"), "Foo Bar Baz", "Three word multicase"); 33#found bug 34 35is($model->default_column_moniker("FOO_bar_BAZ_florp"), "Foo Bar Baz Florp", "Four word multicase"); 36 37 38 39__END__ 40