diff -r 531e14cda4fa -r 8af91c021f4a test
--- a/test	Thu Jul 23 15:57:20 2015 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,81 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $purge_cmd = "./purge-proe";
-
-my $stem = "a";
-my $subdir = "x";
-my $proe_first_line = "#UGC:";
-my $num_empty = 69;
-my $num_non_proe = 101;
-my @nums_before = (0, 1, 2, 7, 13, 17, 23, 42, '0815', 4711);
-
-use Test::Simple tests => 53;
-
-my $files = {
-
-  in_workdir => [ map "$stem.$_", @nums_before ],
-  in_subdir => [ map "$subdir/$stem.$_", @nums_before ],
-  empty => "$subdir/$stem.$num_empty",
-  non_proe => "$subdir/$stem.$num_non_proe",
-  errors_lst => [ map "errors.lst.$_", @nums_before ],
-  trail_txt => [ map "trail.txt.$_", @nums_before ],
-  info_trf => [ map "info.trf.$_", @nums_before ]
-
-};
-
-sub prepare;
-
-prepare({ dirs => [$subdir], files => $files, proe_first_line => $proe_first_line });
-ok(qx/$purge_cmd/, "Running '$purge_cmd'");
-my (@absent, @present);
-@present = @{$files}{qw(empty non_proe)};
-for (qw(in_workdir in_subdir errors_lst trail_txt info_trf)) {
-    push @present, splice @{$files->{$_}}, -3, 3;
-    push @absent, @{$files->{$_}};
-}
-for (@present) { ok(-f $_, "Checking for presence of file '$_'"); }
-for (@absent) { ok(! -e $_, "Checking for absence of '$_'"); }
-
-for (@present, "y/abc") { unlink || warn "Can't unlink '$_': $!" if -f; }
-rmdir $subdir or warn "Can't rmdir '$subdir': $!";
-
-# $opts = { 
-#   dirs => ['dir1', 'dir2', ..],
-#   files => {
-#     in_workdir => ['file1', 'file2', ..],
-#     in_subdir => ['path1', 'path2', ..],
-#     empty => 'path_to_an_empty_file',
-#     non_proe => 'path_to_a_nonempty_nonproe_file'
-#     errors_lst => [ 'errors.lst.n1', 'errors.lst.n2', ..],
-#     trail_txt => [ 'trail.txt.n1', 'trail.txt.n2', ..],
-#     info_trf => [ 'info.trf.n1', 'info.trf.n2', ..]
-#   },
-#   proe_first_line => 'something that should appear in the first line of a file to match'
-# }
-sub prepare {
-
-  my ($opts) = @_;
-
-  for (@{$opts->{dirs}}) { mkdir $_ or warn "Can't mkdir '$_': $!"; }
-
-  for (map { @{$_} } @{$opts->{files}}{qw(in_workdir in_subdir errors_lst trail_txt info_trf)}) {
-
-      open F, '>', $_ or warn "Can't open F, '>', '$_': $!";
-      print F $proe_first_line;
-      close F;
-
-  }
-
-  my $empty = $opts->{files}->{empty};
-  open F, '>', $empty or warn "Can't open F, '>', '$empty': $!";
-  close F;
-
-  my $non_proe = $opts->{files}->{non_proe};
-  open F, '>', $non_proe or warn "Can't open F, '>', '$non_proe': $!";
-  print F "foo";
-  close F;
-
-}