X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F36-filters.t;h=f69206577324c69ea554b211c0d8d006d4b9f0c6;hb=e8ce64809bd4b63c65a17aafba231a8b2357e21e;hp=6cd0b60cff9e405c2dbbbb0a9b949eb9cc41a109;hpb=44eb9098440c7b05f6753efce0756c146e6000de;p=dbsrgits%2FSQL-Translator.git diff --git a/t/36-filters.t b/t/36-filters.t index 6cd0b60..f692065 100644 --- a/t/36-filters.t +++ b/t/36-filters.t @@ -6,18 +6,19 @@ package SQL::Translator::Filter::Ok; use strict; -sub filter { Test::More::pass(@_) } +sub filter { Test::More::pass( + 'Filter called with args: ' . join ', ', @_ +) } # Hack to allow sqlt to see our module as it wasn't loaded from a .pm $INC{'SQL/Translator/Filter/Ok.pm'} = 'lib/SQL/Translator/Filter/Ok.pm'; #============================================================================= # SQL::Translator::Filter::HelloWorld - Test filter in a package -package SQL::Translator::Filter::HelloWorld; +package # hide from cpan + SQL::Translator::Filter::HelloWorld; use strict; -use vars qw/$VERSION/; -$VERSION=0.1; sub filter { my ($schema,%args) = (shift,@_); @@ -43,7 +44,10 @@ use Test::SQL::Translator qw(maybe_plan); use Data::Dumper; BEGIN { - maybe_plan(16, 'Template', 'Test::Differences') + maybe_plan(16, 'Template 2.20', 'Test::Differences', + 'SQL::Translator::Parser::YAML', + 'SQL::Translator::Producer::YAML') + } use Test::Differences; use SQL::Translator; @@ -65,7 +69,6 @@ schema: procedures: {} tables: GdayWorld: - comments: '' constraints: [] fields: {} indices: [] @@ -73,7 +76,6 @@ schema: options: [] order: 3 HelloWorld: - comments: '' constraints: [] fields: {} indices: [] @@ -81,13 +83,11 @@ schema: options: [] order: 2 PERSON: - comments: '' constraints: [] fields: first_name: data_type: foovar default_value: ~ - extra: {} is_nullable: 1 is_primary_key: 0 is_unique: 0