view release on metacpan or  search on metacpan

t/02-x25519-file.t  view on Meta::CPAN

close $ifh;

lives_ok { age_x25519_encrypt_file([$public], $original, $encrypted) }
   'encrypt to file';
ok -s $encrypted, 'encrypted file was generated';

lives_ok { age_x25519_decrypt_file($secret, $encrypted, $decrypted) }
   'decrypt to file';
ok -s $decrypted, 'decrypted file was generated';

my $retrieved = do { local(@ARGV, $/) = $decrypted; <> };
is $retrieved, $cleartext, 'decryption was successful across files';

done_testing();

t/03-x25519-fh.t  view on Meta::CPAN

$efh = undef;
open $efh, '<', $encrypted or die "open($encrypted): $!";
my ($ofh, $decrypted) = tempfile(UNLINK => 1);
lives_ok { age_x25519_decrypt_fh([$secret], $efh, $ofh) }
   'decrypt to filehandle';
close $ofh;
close $efh;
ok -s $decrypted, 'decrypted file was generated';

my $retrieved = do { local(@ARGV, $/) = $decrypted; <> };
is $retrieved, $cleartext, 'decryption was successful across files';

done_testing();