BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
require Test::More;
Test::More::plan(skip_all => 'these tests are for testing by the author');
}
}
use strict;
use warnings;
use Test::More;
use Test::Class::Moose::Load 't/randomlib';
use Test::Class::Moose::Runner;
my $tcmr = Test::Class::Moose::Runner->new( randomize_classes => 1 );
TODO: {
local $TODO
= 'cannot guarantee that randomized class list is not ABCDE';
# there is no "isnt_deeply", so string comparison instead.
my $classes = join( q{}, $tcmr->test_classes );
isnt( $classes, 'ABCDE', "$classes is not ABCDE" );
}
done_testing();