#!/usr/bin/perl -s
##
## random_octet.t 
##
## Copyright (c) 2000, 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: 03-random_octet.t,v 1.2 2001/04/17 19:53:23 vipul Exp $

use FindBin qw($Bin);
use lib "$Bin/../lib";
use Crypt::RSA; 
use Crypt::Random qw(makerandom_octet);

print "1..6\n";  my $i = 0;

for my $len (qw/10 512 1024/) { 
    my $ro = makerandom_octet ( Length => $len );
    print $ro ne "" ? "ok" : "not ok"; print " ", ++$i, "\n";
    print length($ro) == $len ? "ok" : "not ok"; print " ", ++$i, "\n";
}