File: 03_pl_file_ok.t

package info (click to toggle)
libtest-compile-perl 0.13-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 308 kB
  • ctags: 228
  • sloc: perl: 3,034; makefile: 2
file content (10 lines) | stat: -rw-r--r-- 353 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
#!perl -w
use strict;
use warnings;
use Test::More tests => 1;
use Test::Compile;
pl_file_ok('t/scripts/success.pl', 'success.pl compiles');

# TODO: Testing failure of test methods is a little harder
#       perhaps I could copy the approach in Test::Simple's t/fail-like.t ?
#ok(not pl_file_ok('t/scripts/failure.pl'), 'failure.pl does not compile');