1 files changed, 27 insertions, 0 deletions
diff --git a/perl_checker.src/test/read_t.pm b/perl_checker.src/test/read_t.pm
new file mode 100644
index 0000000..d7d9b9c
--- /dev/null
+++ b/perl_checker.src/test/read_t.pm
@@ -0,0 +1,27 @@
+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) : ($_, '');
+	    push @lines, $line;
+	    push @logs, $log;
+	}
+	$line_number++;
+    }
+    @tests;
+}
+
+1;
+