view release on metacpan or  search on metacpan

t/30-create_crypted_password.t  view on Meta::CPAN

use Crypt::CBC;

my $secret = 'This is a kind of safe password for its length';
my $cipher_key = 'Here is an other longish string';
my $tmp_dir = tempdir(CLEANUP => 1);
my $secret_file = catfile($tmp_dir, 'password.private');

note('Create crypted file');
{
    local $ENV{PERL5LIB} = 'lib';
    local @ARGV = (
        '--file-name'  => $secret_file,
        '--cipher-key' => $cipher_key,
        '--password'   => $secret,
    );
    do "bin/create_crypted_password";
    is($@, "", "programme ran successfully");
    ok(-e $secret_file, "crypted password file exists");
}

note('Read crypted file');