t/08input.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

# -*- perl -*-

use lib 't';

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

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

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

open(my $fd, '<', $input) or die;
ok(TestCapture({ argv => [$catbin, '-'],
                 input => $fd },
	       stdout => {
		   nlines => 71,
		   length => 4051,
		   content => $content
               }));