#!/usr/bin/perl -s
##
## 09-publickey.t
##
## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: 10-keygen.t,v 1.1 2001/04/06 18:33:31 vipul Exp $

use FindBin qw($Bin);
use lib "$Bin/../lib";
use Crypt::RSA::Key;
use Data::Dumper;

my $i = 0;
print "1..15\n";
my $keychain = new Crypt::RSA::Key; 

for my $ksize (qw(128 256 512 768 1024)) { 

    my ($pub, $pri) = $keychain->generate ( Identity => 'mail@vipul.net', 
                                            Password => 'a day so foul and fair', 
                                            Verbosity => 1,
                                            Size     => $ksize );

    die $keychain->errstr if $keychain->errstr();
    print $pub->Identity eq 'mail@vipul.net' ? "ok" : "not ok"; print " ", ++$i, "\n";
    print $pub->n eq $pri->p * $pri->q  ? "ok" : "not ok"; print " ", ++$i, "\n";
    $pri->check || die $pri->errstr();
    print $pri->check  ? "ok" : "not ok"; print " ", ++$i, "\n";

}