File: do.t

package info (click to toggle)
libtest-simple-perl 1.001008-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 948 kB
  • ctags: 230
  • sloc: perl: 6,569; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 274 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w

# Test the idiom of running another test file as a subtest.

use strict;
use Test::More;

pass("First");

my $file = "t/subtest/for_do_t.test";
ok -e $file, "subtest test file exists";

subtest $file => sub { do $file };

pass("Last");

done_testing(4);