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 = Local::DB->dbix({ dbname => 'hilis4' });

is(-e "$Bin/../templates/resources/menu/local/$_.test", 1, "file $_ found")
    for qw( file_uploads request_forms );

my @databases = $dbix->query('SHOW DATABASES')->column; # p @databases;
is( ( $_ ~~ @databases ), 1, "database $_ found" )
    for qw( hmrn_test outreach_test );

done_testing(TESTS);