From 68a4a7e1c511838e39852deb5ceb42012e810fce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Love=20H=C3=B6rnquist=20=C3=85strand?= <lha@kth.se>
Date: Thu, 21 Apr 2005 19:29:18 +0000
Subject: [PATCH] remove more leftovers

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@14883 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/des/t/perl |  0
 lib/des/t/test | 27 ---------------------------
 2 files changed, 27 deletions(-)
 delete mode 100644 lib/des/t/perl
 delete mode 100644 lib/des/t/test

diff --git a/lib/des/t/perl b/lib/des/t/perl
deleted file mode 100644
index e69de29bb..000000000
diff --git a/lib/des/t/test b/lib/des/t/test
deleted file mode 100644
index 97acd0552..000000000
--- a/lib/des/t/test
+++ /dev/null
@@ -1,27 +0,0 @@
-#!./perl
-
-BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); }
-
-use DES;
-
-$key='00000000';
-$ks=DES::set_key($key);
-@a=split(//,$ks);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-
-
-$key=DES::random_key();
-print "($_)\n";
-@a=split(//,$key);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-$str="this is and again into the breach";
-($k1,$k2)=DES::string_to_2keys($str);
-@a=split(//,$k1);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-@a=split(//,$k2);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-