File: 100-internal-pl-file-compiles.t

package info (click to toggle)
libtest-compile-perl 1.0.1-1~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 252 kB
  • sloc: perl: 516; makefile: 2
file content (27 lines) | stat: -rw-r--r-- 745 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
#!perl

use strict;
use warnings;

use Test::More;
use Test::Compile::Internal;

my $internal = Test::Compile::Internal->new();

my $yes = $internal->pl_file_compiles('t/scripts/subdir/success.pl');
is($yes,1,"success.pl should compile");

my $taint = $internal->pl_file_compiles('t/scripts/taint.pl');
is($taint,1,"taint.pl should compile - with -T enabled");

my $taint2 = $internal->pl_file_compiles('t/scripts/CVS/taint2.pl');
is($taint2,1,"taint2.pl should compile - with -t enabled");

my $no = $internal->pl_file_compiles('t/scripts/failure.pl');
is($no,0,"failure.pl should not compile");

my $not_found = $internal->pl_file_compiles('t/scripts/no_file_here.pl');
is($not_found,0,"no_file_here.pl should not compile");


done_testing();