diff options
Diffstat (limited to 't/simplestore.t')
-rw-r--r-- | t/simplestore.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/t/simplestore.t b/t/simplestore.t new file mode 100644 index 0000000..3c35f83 --- /dev/null +++ b/t/simplestore.t @@ -0,0 +1,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); |