File Coverage

t/bits.t
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1 1     1   1090 use Test::Most 'die';
  0            
  0            
2              
3             use lib 'lib';
4             use Unknown::Values;
5              
6             my $value = unknown;
7             throws_ok { $value & 1 }
8             qr/Bit manipulation cannot be performed on unknown values/,
9             'Bitwise & should be illegal';
10             throws_ok { $value | 1 }
11             qr/Bit manipulation cannot be performed on unknown values/,
12             'Bitwise | should be illegal';
13             throws_ok { ~$value }
14             qr/Bit manipulation cannot be performed on unknown values/,
15             'Bitwise ~ should be illegal';
16             throws_ok { $value ^ 1 }
17             qr/Bit manipulation cannot be performed on unknown values/,
18             'Bitwise ^ should be illegal';
19              
20             #use 5.12.0;
21             #diag $value ~~ 3;
22              
23             done_testing;