view release on metacpan or  search on metacpan

t/12-session-ser-cryptbase64.t  view on Meta::CPAN

    diag("WARNING: No supported Crypt::CBC compatible block cipher module found!");
} else { 
    diag("NOTICE: Testing using Crypt::CBC with " . $sess->{args}->{SerializeCipher});
}

ok(Apache::AppSamurai::Session::Serialize::CryptBase64::serialize($sess), "serialize() - Serialized (encoded and encrypted) data");

# Clear session data before reloading
$sess->{data} = '';

ok((Apache::AppSamurai::Session::Serialize::CryptBase64::unserialize($sess)) && ($sess->{data}->{pass} eq $pass), "unserialize() - Correctly unserialized (decrypted and decoded) saved data");