X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F12header_comment.t;h=84f585852d544137f6d326d66294dcd6cfdd80d6;hb=22fc086af6e3fcbc9c29f9420b2ce719cb84684b;hp=0713d17447deb0a3015b21eb67ef9af654ae4c64;hpb=631aafb6e016b361f6d11e5905c9f605bf79214c;p=dbsrgits%2FSQL-Translator.git diff --git a/t/12header_comment.t b/t/12header_comment.t index 0713d17..84f5858 100644 --- a/t/12header_comment.t +++ b/t/12header_comment.t @@ -1,15 +1,14 @@ #!/usr/bin/perl # vim: set ft=perl: -use Test::More; +use strict; +use Test::More tests => 5; use SQL::Translator::Utils qw($DEFAULT_COMMENT header_comment); -plan tests => 5; - # Superfluous test, but that's ok use_ok("SQL::Translator::Utils"); -is($DEFAULT_COMMENT, '-- ', 'default comment'); +is($DEFAULT_COMMENT, '--', 'default comment'); like(header_comment("foo"), qr/[-][-] Created by foo/, "Created by..."); my $comm = header_comment("My::Producer",