1#!/usr/bin/perl 2 3use Cwd; 4use File::Spec; 5use Test::More 'no_plan'; 6 7require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); 8 9use_ok( 'Crypt::Rijndael' ); 10 11ok( defined &Crypt::Rijndael::MODE_ECB ); 12diag( "MODE_ECB is @{ [Crypt::Rijndael::MODE_ECB()] }" ) if $ENV{DEBUG}; 13 14foreach my $a ( 0 .. 10 ) 15 { 16 my $hash = crypt_decrypt( Crypt::Rijndael::MODE_ECB() ); 17 18 is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); 19 }