use Devel::DumpTrace;
use Test::More tests => 20;
use strict;
use warnings;
# test settings for $Devel::DumpTrace::TRACE
for my $lev (qw(1 2 3 4 5 6 7 11 12 13 314159 102 106 999)) {
$Devel::DumpTrace::TRACE = $lev;
ok($Devel::DumpTrace::TRACE == $lev, "level $lev => $lev");
}
$Devel::DumpTrace::TRACE = 'default';
ok($Devel::DumpTrace::TRACE == 3, "'default' => 3");
$Devel::DumpTrace::TRACE = 'normal';
ok($Devel::DumpTrace::TRACE == 3, "'normal' => 3");
$Devel::DumpTrace::TRACE = 'quiet';
ok($Devel::DumpTrace::TRACE == 1, "'quiet' => 1");
$Devel::DumpTrace::TRACE = 'verbose';
ok($Devel::DumpTrace::TRACE == 5, "'verbose' => 5");
$Devel::DumpTrace::TRACE = 'verbose,package';
ok($Devel::DumpTrace::TRACE == 105, "'verbose,package' => 105");
$Devel::DumpTrace::TRACE = 'quiet,package';
ok($Devel::DumpTrace::TRACE == 101, "'quiet,package' => 101");