summaryrefslogtreecommitdiff
path: root/test/simplestore.t
diff options
context:
space:
mode:
Diffstat (limited to 'test/simplestore.t')
-rwxr-xr-xtest/simplestore.t30
1 files changed, 0 insertions, 30 deletions
diff --git a/test/simplestore.t b/test/simplestore.t
deleted file mode 100755
index 3c35f83..0000000
--- a/test/simplestore.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/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);