File: 1-basic.t

package info (click to toggle)
libmodule-scandeps-perl 0.62-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 180 kB
  • ctags: 114
  • sloc: perl: 1,811; makefile: 43
file content (27 lines) | stat: -rw-r--r-- 473 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#!/usr/bin/perl

use Test;
BEGIN { plan tests => 20 }

my @deps = qw(
    Carp.pm Config.pm	Exporter.pm Test.pm
    base.pm constant.pm	strict.pm   vars.pm
    Module/ScanDeps.pm
);

use Module::ScanDeps;
ok(1);

my $rv = scan_deps($0);
ok(exists $rv->{$_}) foreach @deps;

my $obj = Module::ScanDeps->new;
$obj->set_file($0);
$obj->calculate_info;
ok($rv = $obj->get_files);

foreach my $mod (@deps) {
    ok(grep {$_->{store_as} eq $mod } @{$rv->{modules}});
};

__END__