RSS Git Download  Clone
Raw Blame History
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);