use Test::More; use Data::Printer; use FindBin '$Bin'; # warn $Bin; BEGIN { require 't/test-lib.pl'; } use constant TESTS => 4; my $dbix = get_dbix(); is(-e "$Bin/../templates/resources/menu/local/$_.test", 1, "file $_ found") for qw( file_uploads request_forms ); my @databases = $dbix->query('SHOW DATABASES')->flat; # p \@databases; for my $db ( qw/hmrn_test outreach_test/ ) { is( ( grep { $_ eq $db } @databases ), 1, "database $db found" ); } done_testing(TESTS);