File: data2.t.subrun

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 (19 lines) | stat: -rw-r--r-- 372 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
 
my $t; use lib ($t = -e 't' ? 't' : 'test'), 'inc';
use TestModuleCompile tests => 3;

my $pmc;
BEGIN {
    $pmc = "$t/lib/DataTest.pmc";
    ok((-e $pmc), ".pmc exists");
}

use DataTest;

ok((-e $pmc), ".pmc still exists");

local $/;
my $data = <DataTest::DATA>;
is $data, "\none\ntwo\n\nthree\n\n",
    "DATA section is correct";

END { unlink "$t/lib/DataTest.pmc" }