5 use SQL::Translator::Utils qw(normalize_name);
8 "silly field (with random characters)" => "silly_field_with_random_characters",
10 "hello, world" => "hello_world",
11 "- 9s80 qwehjf 4r" => "_9s80_qwehjf_4r",
14 plan tests => scalar(keys %tests) + 1;
16 # Superfluous test, but that's ok
17 use_ok("SQL::Translator::Utils");
19 for my $test (keys %tests) {
20 is(normalize_name($test) => $tests{$test},
21 "normalize_name('$test') => '$tests{$test}'");