RSS Git Download  Clone
Raw Blame History
use Test::More;
use Data::Printer;
use FindBin '$Bin'; # warn $Bin;
use Smart::Match 'any';

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;
is( ( $_ ~~ any(@databases) ), 1, "database $_ found" )
    for qw( hmrn_test outreach_test );

done_testing(TESTS);