blob: 3c35f83978f987a93ef6e8a5d6c3c775c8d64c86 (
plain)
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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Checker;
use Test::More tests => 8;
my $testfile = "/tmp/simplestore-test-$$";
my $hash;
is(podchecker('lib/Simplestore.pm'), 0, "Valid POD");
BEGIN {use_ok('Simplestore')}
require_ok('Simplestore');
$hash = {foo => "bar\nbar"};
ok(save($testfile, $hash), 'save hash 1');
undef $hash;
ok($hash = load($testfile), 'load hash 1');
is($hash->{foo}, "bar\nbar", 'successful storage & load');
$hash = {dude => "dudette\nfoo"};
$hash = load($testfile, $hash);
is($hash->{dude}, "dudette\nfoo", 'load: preserve hash keys');
$hash = {foo => "moose\nbaz"};
$hash = load($testfile, $hash);
is($hash->{foo}, "bar\nbar", 'load: overwrite conflicting hash keys');
unlink($testfile);
|
