diff options
m--------- | runcap | 0 | ||||
-rw-r--r-- | t/09linemon.t | 35 |
2 files changed, 35 insertions, 0 deletions
diff --git a/runcap b/runcap | |||
Subproject 048800a78f64808116bb9b943837062a67f586a | Subproject 1309ae35b1ff7ed26a3ccc2fcdc6bd13bb494ce | ||
diff --git a/t/09linemon.t b/t/09linemon.t new file mode 100644 index 0000000..1f1666a --- /dev/null +++ b/t/09linemon.t | |||
@@ -0,0 +1,35 @@ | |||
1 | # -*- perl -*- | ||
2 | |||
3 | use lib 't', 'lib'; | ||
4 | |||
5 | use strict; | ||
6 | use warnings; | ||
7 | use TestCapture; | ||
8 | use Test::More tests => 3; | ||
9 | |||
10 | our($catbin, $input, $content); | ||
11 | |||
12 | my @lines; | ||
13 | |||
14 | TestCapture({ argv => [$catbin, $input], | ||
15 | stdout => sub { push @lines, shift } }); | ||
16 | |||
17 | is($content, join('', @lines)); | ||
18 | |||
19 | @lines = (); | ||
20 | |||
21 | TestCapture({ argv => [$catbin, '-l', 31, $input], | ||
22 | stdout => sub { push @lines, shift } }); | ||
23 | |||
24 | is_deeply(\@lines, ['CHAPTER I. Down the Rabbit-Hole']); | ||
25 | |||
26 | @lines = (); | ||
27 | |||
28 | TestCapture({ argv => [$catbin, '-l', 102, $input], | ||
29 | stdout => sub { push @lines, shift } }); | ||
30 | |||
31 | is_deeply(\@lines, [ "CHAPTER I. Down the Rabbit-Hole\n", | ||
32 | "\n", | ||
33 | 'Alice was beginning to get very tired of sitting by her sister on the' ]); | ||
34 | |||
35 | |||