#!/usr/bin/perl -sw
##
##
##
## 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: octet_string.t,v 1.1.1.1 2001/06/21 15:34:49 vipul Exp $

use lib "../lib";
use Crypt::Random qw(makerandom_octet);

print "1..2\n";

my $skip;

for (0..32, 65..255) { 
     $skip .= chr($_)
 }
 
my $string = makerandom_octet ( Length => 200, Strength => 0, Skip => $skip );
print length($string) == 200 ? "ok 1" : "not ok 1"; print "\n";

my $q_skip = quotemeta $skip;
print $string !~ qr/[$q_skip]/ ? "ok 2" : "not ok 2"; print "\n";