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 /test | |
| parent | f03f3bd525b291fd5a01e12fa514245021797b40 (diff) | |
Moved test to t/ subdirectory, shortened Build.PL
Diffstat (limited to 'test')
| -rwxr-xr-x | test/simplestore.t | 30 |
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); |
