X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FSQL%2FTranslator.pm;h=79f412bb20df82facbfcca374f6f7646c17b8333;hb=ba506e52c480afe33dfec6b38a12759fad1e7fa2;hp=cffa0860393bc6a8a96e30d6669d6d17589a7085;hpb=11fee3e0fa749a76e9da1491fb681bae65bfecf0;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/Test/SQL/Translator.pm b/lib/Test/SQL/Translator.pm index cffa086..79f412b 100644 --- a/lib/Test/SQL/Translator.pm +++ b/lib/Test/SQL/Translator.pm @@ -33,7 +33,7 @@ use SQL::Translator::Schema::Constants; use base qw(Exporter); use vars qw($VERSION @EXPORT @EXPORT_OK); -$VERSION = '1.59'; +$VERSION = '1.60'; @EXPORT = qw( schema_ok table_ok @@ -480,9 +480,12 @@ sub maybe_plan { join ", ", @errors; plan skip_all => $msg; } - else { + elsif ($ntests and $ntests ne 'no_plan') { plan tests => $ntests; } + else { + plan 'no_plan'; + } } 1; # compile please =========================================================== @@ -631,8 +634,8 @@ schema file and test yaml file to compare it against. Mark D. Addison Emark.addison@itn.co.ukE, Darren Chamberlain . -Thanks to Ken Y. Clark for the original table and field test code taken from -his mysql test. +Thanks to Ken YouensClark for the original table and field test code taken +from his mysql test. =head1 SEE ALSO