aboutsummaryrefslogtreecommitdiff
path: root/t/07two.t
blob: 9a77d3eedc5b9529c0f26ab70a6aac2d476f3da4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# -*- perl -*-
use lib 't';

use strict;
use warnings;
use TestCapture;
use Test::More tests => 1;

our($catbin, $input, $content);

ok(TestCapture([$catbin, '-l', 337, '-o', $input, '-s', 628, '-l', 734, '-e', $input],
	       stdout => {
		   nlines => 8,
		   length => 337,
		   content => substr($content, 0, 337)
               },
	       stderr => {
		   nlines => 11,
		   length => 734,
		   content => substr($content, 628, 734)
	       }
   ));


Return to:

Send suggestions and report system problems to the System administrator.