1use Test::More tests => 1 + 1;
2BEGIN {
3    use_ok('Text::Outdent', qw/
4        expand_leading_tabs
5    /);
6}
7
8###############################################################################
9
10use strict;
11
12sub f { my ($str) = @_; $str =~ tr/./ /; return $str }
13sub g { my ($str) = @_; $str =~ tr/ /./; return $str }
14
15my $tabs = <<"_TABS_";
16\tthis
17\t
18\t.....\tis\t
19...\t\ta
20string\t
21..\t.\tthat
22\t
23_TABS_
24
25my $spaces = <<"_SPACES_";
26........this
27........
28................is\t
29................a
30string\t
31................that
32........
33_SPACES_
34
35is(g(expand_leading_tabs(8, f($tabs))), g(f($spaces)));
36