1 files changed, 0 insertions, 22 deletions
diff --git a/challenge-025/paulo-custodio/test.pl b/challenge-025/paulo-custodio/test.pl
deleted file mode 100644
index eb06b45b8e..0000000000
--- a/challenge-025/paulo-custodio/test.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Modern::Perl;
-
-is capture("perl perl/ch-1.pl"), <<END;
-machamp petilil landorus scrafty yamask kricketune emboar registeel loudred darmanitan nosepass simisear relicanth heatmor rufflet trapinch haxorus seaking girafarig gabite exeggcute emolga audino
-END
-
-my($text, $encoded) = qw( WELLDONEISBETTERTHANWELLSAID
-                          OAHQHCNYNXTSZJRRHJBYHQKSOUJY );
-is capture("perl perl/ch-2.pl encode $text"), "$encoded\n";
-is capture("perl perl/ch-2.pl decode $encoded"), "$text\n";
-
-done_testing;
-
-sub capture {
-    my($cmd) = @_;
-    my $out = `$cmd`;
-    $out =~ s/[ \t\v\f\r]*\n/\n/g;
-    return $out;
-}