diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-11 13:12:22 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-11 13:12:22 +0200 |
commit | ecca64326f6b745787e2edd9951cc95263aa42f6 (patch) | |
tree | a341f9e1ad3ee3528e89c3debe309ff5956ec975 /t/simplestore.t | |
parent | f03f3bd525b291fd5a01e12fa514245021797b40 (diff) |
Moved test to t/ subdirectory, shortened Build.PL
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); |