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