no plan, use done_testing

diff --git a/t/14postgres-parser.t b/t/14postgres-parser.t
index d159c58..44530c4 100644 (file)
--- a/t/14postgres-parser.t
+++ b/t/14postgres-parser.t
@@ -1,16 +1,8 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-
 use strict;
+use warnings;
 use Test::More;
 use SQL::Translator;
 use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);
-use Test::SQL::Translator qw(maybe_plan);
-
-BEGIN {
-    maybe_plan(120, 'SQL::Translator::Parser::DDL::PostgreSQL');
-#    SQL::Translator::Parser::PostgreSQL->import('parse');
-}
 
 my $t   = SQL::Translator->new( trace => 0, from => 'PostgreSQL' );
 my $sql = q[
@@ -278,3 +270,5 @@ is( $t2_c3->type, CHECK_C, "Constraint is a 'CHECK'" );
 is( exists $schema->get_table('products_1')->extra()->{'temporary'}, "", "Table is NOT temporary");
 is( $schema->get_table('products_2')->extra('temporary'), 1,"Table is TEMP");
 is( $schema->get_table('products_3')->extra('temporary'), 1,"Table is TEMPORARY");
+
+done_testing;

diff --git a/t/27sqlite-parser.t b/t/27sqlite-parser.t
index 37d8d0a..5199ca0 100644 (file)
--- a/t/27sqlite-parser.t
+++ b/t/27sqlite-parser.t
@@ -1,17 +1,10 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-
 use strict;
+use warnings;
 use Test::More;
-use Test::SQL::Translator qw(maybe_plan);
 use FindBin qw/$Bin/;
 use SQL::Translator;
 use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);
 
-BEGIN {
-    maybe_plan(12, 'SQL::Translator::Parser::DDL::SQLite');
-}
-
 my $file = "$Bin/data/sqlite/create.sql";
 
 {
@@ -52,4 +45,6 @@ my $file = "$Bin/data/sqlite/create.sql";
 
     my @triggers = $schema->get_triggers;
     is( scalar @triggers, 1, 'Parsed one triggers' );
+
+    done_testing;
 }

diff --git a/t/60roundtrip.t b/t/60roundtrip.t
index b9d9a33..d51e770 100644 (file)
--- a/t/60roundtrip.t
+++ b/t/60roundtrip.t
@@ -1,8 +1,6 @@
-#!/usr/bin/perl
-
 use warnings;
 use strict;
-use Test::More qw/no_plan/;
+use Test::More;
 use Test::Exception;
 use Test::Differences;
 use FindBin qw/$Bin/;
@@ -122,18 +120,15 @@ for my $args (@$plan) {
       local $TODO = $args->{todo} if $args->{todo};
 
       lives_ok (
-#        sub { check_roundtrip ($args, $base_schema) },
         sub { check_roundtrip ($args, $base_t, $base_schema) },
-#        sub { check_roundtrip ($args, $base_schema) },
         "Round trip for $args->{name} did not throw an exception",
       );
     }
   }
 }
+done_testing;
 
 sub check_roundtrip {
-#  my ($args, $base_schema) = @_;
-#  my $base_t = $base_schema->translator;
   my ($args, $base_t, $base_schema) = @_;
 
 # create some output from the submitted schema