Add log slimming function
Change-Id: I0f8878a9eded0394df9f0aa0a1a9a8fc04410a28
diff --git a/t/log_slim.t b/t/log_slim.t
new file mode 100644
index 0000000..2f99364
--- /dev/null
+++ b/t/log_slim.t
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Dumper;
+use Test::More;
+use File::Temp 'tempfile';
+use File::Basename 'dirname';
+use File::Spec::Functions qw!catdir catfile!;
+
+use_ok('KorAP::XML::Log::Slim');
+
+my $temp = tempfile();
+
+my $file = catfile(dirname(__FILE__), 'logs','dereko-example-log.txt');
+
+ok(!KorAP::XML::Log::Slim->new);
+
+my $slim = KorAP::XML::Log::Slim->new($file);
+
+$slim->slim_to($temp);
+
+seek($temp, 0,0);
+
+my $content;
+{
+ local $/;
+ $content = <$temp>;
+}
+
+like($content, qr!2 Start serial processing of e03\.\*zip!);
+unlike($content, qr!Convert \[[^:]+?\:2\/\d+?\] Processed!);
+unlike($content, qr!Unable to process!);
+like($content, qr!Use of uninitialized value!);
+like($content, qr!End-of-central-directory!);
+like($content, qr!## Done\. \[\!Process\: 1\]!);
+like($content, qr!file #1: bad zipfile offset!);
+like($content, qr!cannot find zipfile directory!);
+
+done_testing;