view release on metacpan or  search on metacpan

t/ams-90up2date.t  view on Meta::CPAN

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
eval { require Test::Differences; };
my $has_test_diff = $@ eq '';
 
# a little warning
diag "Testing @{[scalar @themes]} themes using the network (may take a while)";
 
# compare each theme data with the network
for my $theme (@themes) {
 
SKIP: {
        no warnings 'utf8';
        skip "$theme ignored upon request", 2 if !$test{$theme};
        my $current = [ sort $theme->name(0) ];
        my $online  = [ sort $theme->remote_list() ];
 
    SKIP: {
            skip "Fetching remote items for $theme probably failed", 2
                if @$online == 0;
 
            # count
            is( scalar @$current,