1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl
=head1 NAME
file.t - test
=head1 DESCRIPTION
Check we can use the 'file' option.
=cut
use strict;
use warnings;
use Test::More tests => 6;
sub make_tmpfile {
my ($file, $data) = @_;
open my $io, ">$file" or return;
print {$io} $data;
close $io;
}
make_tmpfile(foo => "abcdefgh");
make_tmpfile(bar => "zyxwvuts");
make_tmpfile(baz => "abcdefgh");
END { unlink qw/foo bar baz/ }
require_ok('Crypt::Simple');
{
package Foo;
Crypt::Simple->import(file => "foo");
}
{
package Bar;
Crypt::Simple->import(file => "bar");
}
{
package Baz;
Crypt::Simple->import(file => "baz");
}
my $plaintext = "hello world";
my $footext = Foo::encrypt($plaintext);
my $bartext = Bar::encrypt($plaintext);
my $baztext = Baz::encrypt($plaintext);
isnt $footext, $bartext, "Foo and Bar are different";
is $footext, $baztext, "Foo and Baz are the same";
is Foo::decrypt($footext), $plaintext, "Foo encryption";
is Bar::decrypt($bartext), $plaintext, "Bar encryption";
is Baz::decrypt($baztext), $plaintext, "Baz encryption";
|
