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