Multiple expected values revised

We are going to use the "any" function of List::MoreUtils.

use strict;
use warnings;

use MyTools;

use List::MoreUtils qw(any);

use Test::More tests => 4;


for (1..4) {
    my $value = dice();
    ok( (any {$_ eq $value} (1, 2, 3, 4, 5, 6)), 'correct number');
}

Output:

1..4
not ok 1 - correct number
#   Failed test 'correct number'
#   at t/dice_any.t line 14.
ok 2 - correct number
not ok 3 - correct number
#   Failed test 'correct number'
#   at t/dice_any.t line 14.
ok 4 - correct number
# Looks like you failed 2 tests of 4.