add self to credits
[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 80split_name.t
1 use strict;
2 use warnings;
3 use Test::More tests => 18;
4 use DBIx::Class::Schema::Loader::Utils 'split_name';
5
6 is_deeply [split_name('foo_bar_baz')], [qw/foo bar baz/],
7     'by underscore';
8
9 is_deeply [split_name('foo__bar__baz')], [qw/foo bar baz/],
10     'by double underscore';
11
12 is_deeply [split_name('Foo_Bar_Baz')], [qw/Foo Bar Baz/],
13     'by underscore with full capitalization';
14
15 is_deeply [split_name('foo_Bar_Baz')], [qw/foo Bar Baz/],
16     'by underscore with lcfirst capitalization';
17
18 is_deeply [split_name('fooBarBaz')], [qw/foo Bar Baz/],
19     'lcfirst camelCase identifier';
20
21 is_deeply [split_name('FooBarBaz')], [qw/Foo Bar Baz/],
22     'ucfirst camelCase identifier';
23
24 is_deeply [split_name('VLANValidID')], [qw/VLAN Valid ID/],
25     'CAMELCase identifier (word with all caps)';
26
27 is_deeply [split_name('VlanVALIDId')], [qw/Vlan VALID Id/],
28     'CamelCASE identifier (second word with all caps)';
29
30 is_deeply [split_name('foo..bar/baz')], [qw/foo bar baz/],
31     'by non-alphanum chars';
32
33 # naming=v7
34
35 is_deeply [split_name('foo_bar_baz', 7)], [qw/foo bar baz/],
36     'by underscore for v=7';
37
38 is_deeply [split_name('foo__bar__baz', 7)], [qw/foo bar baz/],
39     'by double underscore for v=7';
40
41 is_deeply [split_name('Foo_Bar_Baz', 7)], [qw/Foo Bar Baz/],
42     'by underscore with full capitalization for v=7';
43
44 is_deeply [split_name('foo_Bar_Baz', 7)], [qw/foo Bar Baz/],
45     'by underscore with lcfirst capitalization for v=7';
46
47 is_deeply [split_name('fooBarBaz', 7)], [qw/foo Bar Baz/],
48     'lcfirst camelCase identifier for v=7';
49
50 is_deeply [split_name('FooBarBaz', 7)], [qw/Foo Bar Baz/],
51     'ucfirst camelCase identifier for v=7';
52
53 is_deeply [split_name('VLANValidID', 7)], [qw/VLANValid ID/],
54     'CAMELCase identifier (word with all caps) for v=7';
55
56 is_deeply [split_name('VlanVALIDId', 7)], [qw/Vlan VALIDId/],
57     'CamelCASE identifier (second word with all caps) for v=7';
58
59 is_deeply [split_name('foo..bar/baz', 7)], [qw/foo bar baz/],
60     'by non-alphanum chars for v=7';