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
28
29
30
31
32
33
34
35
|
use strict;
use warnings;
use String::TT 'strip';
use Test::TableDriven (
strip => {
'Input' =>
'Input',
"\nInput" =>
"Input",
"\nInput\n" =>
"Input\n",
' Input' =>
'Input',
' Input ' =>
'Input ',
"\n Input\n" =>
"Input\n",
"\n This is a test\n Of indenting\n" =>
"This is a test\nOf indenting\n",
"\n This is a test\n Of indenting\n" =>
"This is a test\n Of indenting\n",
"\n This is a test\n\n\n\n Of indenting\n" =>
"This is a test\n\n\n\n Of indenting\n",
},
);
runtests;
|
