X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F36-filters.t;h=f69206577324c69ea554b211c0d8d006d4b9f0c6;hb=e3107d4769ffe86114bd8ab63dc4ff774fcbb69f;hp=b4e289faa809ed33c98a3c9684195469071f09d0;hpb=4d4385499fa84e31f78abe4cacf517e4a11c7b8f;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/36-filters.t b/t/36-filters.t
index b4e289f..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;
@@ -84,7 +88,6 @@ schema:
         first_name:
           data_type: foovar
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0