package Arbitrary::Test::Package;
use strict;
use warnings;
use Forks::Super::Tie::Enum;
use Test::More tests => 4;
# unit tests for Forks::Super::Tie::Enum, for scalars that take on a limited
# number of (case-insensitive) values
my $my_favorite_color;
tie $my_favorite_color, 'Forks::Super::Tie::Enum',
'red', 'green', 'blue', 'yellow';
ok($my_favorite_color eq "red");
$my_favorite_color = "yellow";
ok($my_favorite_color eq "yellow");
$my_favorite_color = "Green";
ok($my_favorite_color eq "green");
$my_favorite_color = "Modern";
ok($my_favorite_color eq "green");