1 files changed, 0 insertions, 52 deletions
diff --git a/t/GnuPG/ComparablePrimaryKey.pm b/t/GnuPG/ComparablePrimaryKey.pm
deleted file mode 100644
index 24f7d1f..0000000
--- a/t/GnuPG/ComparablePrimaryKey.pm
+++ /dev/null
@@ -1,52 +0,0 @@
-#  ComparablePrimaryKey.pm
-#      - Comparable GnuPG::PrimaryKey
-#
-#  Copyright (C) 2000 Frank J. Tobin <ftobin@cpan.org>
-#
-#  This module is free software; you can redistribute it and/or modify it
-#  under the same terms as Perl itself.
-#
-#  This program is distributed in the hope that it will be useful,
-#  but WITHOUT ANY WARRANTY; without even the implied warranty of
-#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-#
-#  $Id: ComparablePrimaryKey.pm,v 1.3 2001/09/14 12:34:36 ftobin Exp $
-#
-
-package GnuPG::ComparablePrimaryKey;
-
-use strict;
-use GnuPG::ComparableSubKey;
-
-use base qw( GnuPG::PrimaryKey GnuPG::ComparableKey );
-
-sub _deeply_compare
-{
-    my ( $self, $other ) = @_;
-    
-    my @self_subkeys  = $self->subkeys();
-    my @other_subkeys = $other->subkeys();
-    
-    return 0 unless @self_subkeys == @other_subkeys;
-    
-    my $num_subkeys = @self_subkeys;
-    
-    for ( my $i = 0; $i < $num_subkeys; $i++ )
-    {
-	my $subkey1 = $self_subkeys[$i];
-	my $subkey2 = $other_subkeys[$i];
-	
-	bless $subkey1, 'GnuPG::ComparableSubKey';
-	
-	return 0 unless $subkey1->compare( $subkey2, 1 );
-    }
-    
-    # don't compare user id's because their ordering
-    # is not necessarily deterministic
-    
-    $self->SUPER::_deeply_compare( $other );
-    
-    return 1;
-}
-
-1;