File: dependency.t

package info (click to toggle)
libmodule-runtime-perl 0.018-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 292 kB
  • sloc: perl: 264; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 425 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
 
# This test checks that M:R doesn't load any other modules.  Hence this
# script cannot itself use warnings, Test::More, or any other module.

BEGIN { print "1..1\n"; }
our(%preloaded, @extraloaded);
BEGIN { %preloaded = %INC; }
use Module::Runtime qw(require_module);
BEGIN { @extraloaded = sort grep { !exists($preloaded{$_}) } keys %INC; }
print join(" ", @extraloaded) eq "Module/Runtime.pm" ? "" : "not ", "ok 1\n";

1;