1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Render::Util ('ucc_widget', 'cc_widget');
my @cc = ('MyApp', 'myApp', 'My_App', 'MyLongerApp');
my @ucc = ('my_app', 'my_app', 'my_app', 'my_longer_app');
my @cc_ucc = ('MyApp', 'MyApp', 'MyApp', 'MyLongerApp');
my $index = 0;
foreach my $str ( @cc ) {
is( ucc_widget($str), $ucc[$index], "$str uncamelcased ok" );
$index++;
}
$index = 0;
foreach my $str ( @ucc ) {
is( cc_widget($str), $cc_ucc[$index], "$str camelcased ok" );
$index++;
}
done_testing;
|
