Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
37000.t	745 B	-r--r--r--	2014-12-27 11:48
39548.t	357 B	-r--r--r--	2014-12-27 11:48
79766.t	705 B	-r--r--r--	2014-12-27 11:48
Jacobson.t	398 B	-r--r--r--	2014-12-27 11:48
Jacobson2.t	402 B	-r--r--r--	2014-12-27 11:48
Jochen.t	147 B	-r--r--r--	2014-12-27 11:48
Tabs-ElCid.t	4.85 KB	-r--r--r--	2014-12-27 11:48
Wrap-JLB.t	5.58 KB	-r--r--r--	2014-12-27 11:48
belg4mit.t	362 B	-r--r--r--	2014-12-27 11:48
dandv.t	180 B	-r--r--r--	2014-12-27 11:48
fill.t	2.87 KB	-r--r--r--	2014-12-27 11:48
sep.t	5.03 KB	-r--r--r--	2014-12-27 11:48
sep2.t	5.03 KB	-r--r--r--	2014-12-27 11:48
tabs.t	1.73 KB	-r--r--r--	2014-12-27 11:48
wrap.t	5.66 KB	-r--r--r--	2014-12-27 11:48
wrap_separator2.t	467 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/old/bin/perl5.004_01 -w

@tests = (split(/\nEND\n/s, <<DONE));
TEST 1 u
                x
END
		x
END
TEST 2 e
		x
END
                x
END
TEST 3 e
	x
		y
			z
END
        x
                y
                        z
END
TEST 4 u
        x
                y
                        z
END
	x
		y
			z
END
TEST 5 u
This    Is      a       test    of      a       line with many embedded tabs
END
This	Is	a	test	of	a	line with many embedded tabs
END
TEST 6 e
This	Is	a	test	of	a	line with many embedded tabs
END
This    Is      a       test    of      a       line with many embedded tabs
END
TEST 7 u
            x
END
	    x
END
TEST 8 e

END

END
TEST 9 u
           
END
	   
END
TEST 10 u

END

END
TEST 11 u
foobar                  IN	A		140.174.82.12

END
foobar			IN	A		140.174.82.12

END
DONE

$| = 1;

my $numtests = scalar(@tests) / 2;
print "1..$numtests\n";

use Text::Tabs;

$rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;

$tn = 1;
while (@tests) {
	my $in = shift(@tests);
	my $out = shift(@tests);

$in =~ s/^TEST\s*(\d+)?\s*(\S+)?\n//;

if ($2 eq 'e') {
		$f = \&expand;
		$fn = 'expand';
	} else {
		$f = \&unexpand;
		$fn = 'unexpand';
	}

my $back = &$f($in);

if ($back eq $out) {
		print "ok $tn\n";
	} elsif ($rerun) {
		my $oi = $in;
		foreach ($in, $back, $out) {
			s/\t/^I\t/gs;
			s/\n/\$\n/gs;
		}
		print "------------ input ------------\n";
		print $in;
		print "\$\n------------ $fn -----------\n";
		print $back;
		print "\$\n------------ expected ---------\n";
		print $out;
		print "\$\n-------------------------------\n";
		$Text::Tabs::debug = 1;
		my $back = &$f($in);
		exit(1);
	} else {
		print "not ok $tn\n";
	}
	$tn++;
}