t/06lines.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

# -*- perl -*-

use lib 't';

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

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

ok(TestCapture([$catbin, $input],
	       stdout => {
		   nlines => 71,
		   length => 4051,
		   content => $content
               }));