File: 90compile.t

package info (click to toggle)
libnet-proxy-perl 0.12-5
  • links: PTS
  • area: main
  • in suites: squeeze, wheezy
  • size: 304 kB
  • ctags: 66
  • sloc: perl: 777; sh: 84; makefile: 44
file content (30 lines) | stat: -rw-r--r-- 717 bytes parent folder | download | duplicates (5) 
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
28
29
30
 
use Test::More;
use IPC::Open3;
use File::Spec::Functions;
use strict;

my @scripts = glob catfile( 'script', '*' );

plan tests => scalar @scripts;

my %prereq = ( 'script/connect-tunnel' => [qw( LWP::UserAgent )], );

for my $script (@scripts) {
SKIP: {
        my $skip;
        for my $module ( @{ $prereq{$script} } ) {
            eval {"use $module;"};
            $skip .= "$module " if $@;
        }
        skip "'$script' missing prereq: $skip", 1 if $skip;

        local ( *IN, *OUT, *ERR );
        my $pid = open3( \*IN, \*OUT, \*ERR, "$^X -Mblib -c $script" );
        wait;

        local $/ = undef;
        my $errput = <ERR>;
        like( $errput, qr/syntax OK/, "'$script' compiles" );
    }
}