Improve trigger 'scope' attribute support (RT#119997)

[dbsrgits/SQL-Translator.git] / t / 36-filters.t

diff --git a/t/36-filters.t b/t/36-filters.t
index 1ca7a1d..f692065 100644 (file)
--- 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,14 +83,11 @@ schema:
       options: []
       order: 2
     PERSON:
-      comments: ''
       constraints: []
       fields:
         first_name:
-          comments: ''
           data_type: foovar
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0