File: orz.t

package info (click to toggle)
libmodule-compile-perl 0.38-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 332 kB
  • sloc: perl: 1,831; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 371 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
 
# BEGIN { unlink 't/orz.tc' }

# Need to invoke Module::Compile before Test::More
my $t; use lib ($t = -e 't' ? 't' : 'test'), 'inc';
use Module::Compile;

use Test::More tests => 5;

pass "Test runs";

ok ((-f "$t/orz.tc"), "Compiled file exists");

use Testorz;

fail "don't want this to run";

no Testorz;

pass "Second half of test runs";

END { unlink "$t/orz.tc" }