procedures: {}
tables:
person:
- comments: ''
constraints: []
fields:
First_name:
- comments: ''
data_type: foovar
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
producer_type: SQL::Translator::Producer::YAML
show_warnings: 1
trace: 0
- version: 0.07
+ version: SUPPRESSED
};
# Parse the test schema
data => $in_yaml,
filters => [
# Filter from SQL::Translator::Filter::*
- [ 'Names', {
+ [ 'Names', {
tables => 'lc',
fields => 'ucfirst',
} ],
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
+# failing randomly on every change of version.
+$out =~ s/version: .*/version: SUPPRESSED/;
eq_or_diff $out, $ans_yaml ,"Output looks right";