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};