X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F38-filter-names.t;h=4edd79343778395eed3ad3f03b439256bc8c690a;hb=aee4b66eb2152b7066ced4def46e0223eb1649b1;hp=47428b44b5d8c0f8c41713533c2e4a06ca83c458;hpb=bdf60588bb1e35e284bdc02c43d0ffe691994465;p=dbsrgits%2FSQL-Translator.git diff --git a/t/38-filter-names.t b/t/38-filter-names.t index 47428b4..4edd793 100644 --- a/t/38-filter-names.t +++ b/t/38-filter-names.t @@ -74,7 +74,7 @@ $obj = SQL::Translator->new( data => $in_yaml, filters => [ # Filter from SQL::Translator::Filter::* - [ 'Names', { + [ 'Names', { tables => 'lc', fields => 'ucfirst', } ], @@ -86,7 +86,7 @@ my $out; lives_ok { $out = $obj->translate; } "Translate ran"; is $obj->error, '' ,"No errors"; ok $out ne "" ,"Produced something!"; -# Somewhat hackishly modify the yaml with a regex to avoid +# Somewhat hackishly modify the yaml with a regex to avoid # failing randomly on every change of version. $out =~ s/version: .*/version: SUPPRESSED/; eq_or_diff $out, $ans_yaml ,"Output looks right";