From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CRENZ / Module-Find-0.17 / t / 11-wrong-module-all.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
use strict;
use warnings;
use Test::More tests => 3;
use Module::Find;
use lib qw(./t/test-malicious);
setmoduledirs('./t/test');
my @l = useall ModuleFindTest;
ok($#l == 1);
ok($l[0] eq 'ModuleFindTest::SubMod');
ok(ModuleFindTest::SubMod::theRealDeal());