1#!/usr/bin/perl
2# this test will actually core for version < 2.4.8.2 :-))
3use Test::More tests => 1;
4
5use strict;
6use Mcrypt qw(:ALGORITHMS :MODES :FUNCS);
7
8my($input) = "0123456701234567";
9
10my $td = Mcrypt->new( algorithm => Mcrypt::BLOWFISH,
11                            mode => Mcrypt::CFB,
12                         verbose => 0 );
13my($key) = "k" x $td->{KEY_SIZE};
14my($iv) = "i" x $td->{IV_SIZE};
15$td->init($key, $iv);
16$td->decrypt($input);
17$td->end();
18
19ok(1, "survived");
20