5 use Test::More tests => 5;
6 use SQL::Translator::Utils qw($DEFAULT_COMMENT header_comment);
8 # Superfluous test, but that's ok
9 use_ok("SQL::Translator::Utils");
11 is($DEFAULT_COMMENT, '-- ', 'default comment');
12 like(header_comment("foo"), qr/[-][-] Created by foo/, "Created by...");
14 my $comm = header_comment("My::Producer",
17 like($comm, qr/[-][-] Created by My::Producer/, 'Multiline header comment...');
18 like($comm, qr/[-][-] Hi mom!/, '...with additional junk');