File: 00-use.t

package info (click to toggle)
libcrypt-openssl-dsa-perl 0.20-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 128 kB
  • sloc: perl: 17; makefile: 11
file content (17 lines) | stat: -rw-r--r-- 370 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# -*- Mode: Perl; -*-

# test file added by Brad Fitzpatrick in response to bugs found by Karl Koscher
# related to null bytes in SHA1 signatures, and strlen truncating the message
# being signed/verified

use strict;

use Test;
use Crypt::OpenSSL::DSA;

BEGIN { plan tests => 1 };

my $dsa = Crypt::OpenSSL::DSA->generate_parameters( 512 );
$dsa->generate_key;

ok(1);