1# $Id: test.pl,v 1.2 2001/09/15 03:38:24 btrott Exp $
2
3use strict;
4
5use Test;
6use Crypt::DES_EDE3;
7use strict;
8
9BEGIN { plan tests => 7 }
10
11my $des = Crypt::DES_EDE3->new( pack 'H64', '0123456789ABCDEF' x 4 );
12ok($des);
13ok($des->keysize, 24);
14
15my $enc = $des->encrypt( _checkbytes() );
16ok($enc);
17my $dec = $des->decrypt($enc);
18ok($dec);
19
20ok( vec($dec, 0, 8) == vec($dec, 2, 8) );
21ok( vec($dec, 1, 8) == vec($dec, 3, 8) );
22ok( vec($dec, 5, 8) == 0 );
23
24sub _checkbytes {
25    my($check1, $check2) = (chr int rand 255, chr int rand 255);
26    "$check1$check2$check1$check2\0\0\0\0";
27}
28