#!perl
# File: runner.t
use strictures;
use Test::More;
    
for my $env (qw/ PROD DEV /)
{
    my $test = join "_", $env, "TEST";
    local $ENV{$test} = 1;
    do 'run.t.raw';
}

done_testing (4);