use Forks::Super ':test', ON_BUSY => 'bogus';
use Test::More tests => 6;
use strict;
use warnings;
#
# the value $Forks::Super::ON_BUSY is a tied scalar
# that can only be assigned the (case insensitive) values:
#
# block fail queue
#
for my $valid (qw(Block block FAIL Queue)) {
$Forks::Super::ON_BUSY = $valid;
ok($Forks::Super::ON_BUSY eq lc $valid);
}
my $current = $Forks::Super::ON_BUSY;
$Forks::Super::ON_BUSY = "Bogus";
ok($Forks::Super::ON_BUSY eq 'queue' && $Forks::Super::ON_BUSY eq $current);
$Forks::Super::ON_BUSY =~ s/queue/Block/;
ok($Forks::Super::ON_BUSY eq "block");