Rename folder to match history.

This is a Synthesized commit to combine perl-MDK-Common and perl_checker repository
history.

1 files changed, 0 insertions, 28 deletions

diff --git a/perl_checker.src/test/read_t.pm b/perl_checker.src/test/read_t.pm
deleted file mode 100644
index a07c041..0000000
--- a/perl_checker.src/test/read_t.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-package read_t;
-
-use lib '../..';
-use MDK::Common;
-
-sub read_t {
-    my ($file) = @_;
-
-    my @tests;
-    my ($column_width, $line_number, @lines, @logs);
-    foreach (cat_($file), "\n") {
-	if (/^$/) {
-	    push @tests, { line_number => $line_number, lines => [ @lines ], logs => [ @logs ] } if @lines;
-	    @lines = @logs = ();
-	} else {
-	    $column_width ||= length(first(/(.{20}\s+)/));
-	    my ($line, $log) = $column_width > 25 && /(.{$column_width})(.*)/ ? (chomp_($1) . "\n", $2) : ($_, '');
-	    $line =~ s/[ \t]*$//;
-	    push @lines, $line;
-	    push @logs, $log;
-	}
-	$line_number++;
-    }
-    @tests;
-}
-
-1;
-