summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-07-11 13:12:22 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2009-07-11 13:12:22 +0200
commitecca64326f6b745787e2edd9951cc95263aa42f6 (patch)
treea341f9e1ad3ee3528e89c3debe309ff5956ec975 /test
parentf03f3bd525b291fd5a01e12fa514245021797b40 (diff)
Moved test to t/ subdirectory, shortened Build.PL
Diffstat (limited to 'test')
-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);