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_PCBC ); 12diag( "MODE_PCBC is @{ [Crypt::Rijndael::MODE_PCBC()] }" ) if $ENV{DEBUG}; 13 14TODO: { 15 local $TODO = "PCBC is not a legal mode (yet)"; 16 17my $value = eval { 18 foreach my $a ( 0 .. 10 ) 19 { 20 my $hash = crypt_decrypt( Crypt::Rijndael::MODE_PCBC() ); 21 22 is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); 23 } 24 }; 25 26};