File: 200-all-pl-files.t

package info (click to toggle)
libtest-compile-perl 3.3.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 324 kB
  • sloc: perl: 816; makefile: 2; sh: 1
file content (19 lines) | stat: -rw-r--r-- 421 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!perl
use strict;
use warnings;
use Test::More tests => 2;

use Test::Compile;

# this file is mostly just to increase the coverage.
# ..The main test should be testing Test::Compile->all_pl_files() directly

# Given
my $plinput = 't/scripts/subdir/success.pl';

# When
my @plfiles = all_pl_files($plinput);

# Then
is(@plfiles, 1, 'got one specified PL file'); 
is($plfiles[0], $plinput, 'got the specified PL file');