File: 18-findbin.t

package info (click to toggle)
libmodule-scandeps-perl 1.30-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 580 kB
  • sloc: perl: 2,905; makefile: 8; ansic: 1
file content (16 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;
use FindBin; 

BEGIN { use_ok( 'Module::ScanDeps' ); }

my $saved_bin = $FindBin::Bin;

my $deps = scan_deps(files => [ 't/data/use-findbin.pl' ], recurse => 1);
ok($deps->{"Net/FTP.pm"}, q[Net::FTP seen in module found via 'use lib "$FindBin::Bin/..."']);

is($FindBin::Bin, $saved_bin, '$FindBin::Bin unchanged after call to scan_deps()');