use Test::Most 'die';
use lib 'lib';
use Unknown::Values;
my $value = unknown;
throws_ok { $value & 1 }
qr/Bit manipulation cannot be performed on unknown values/,
'Bitwise & should be illegal';
throws_ok { $value | 1 }
qr/Bit manipulation cannot be performed on unknown values/,
'Bitwise | should be illegal';
throws_ok { ~$value }
qr/Bit manipulation cannot be performed on unknown values/,
'Bitwise ~ should be illegal';
throws_ok { $value ^ 1 }
qr/Bit manipulation cannot be performed on unknown values/,
'Bitwise ^ should be illegal';
#use 5.12.0;
#diag $value ~~ 3;
done_testing;