From ecca64326f6b745787e2edd9951cc95263aa42f6 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 11 Jul 2009 13:12:22 +0200 Subject: Moved test to t/ subdirectory, shortened Build.PL --- test/simplestore.t | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100755 test/simplestore.t (limited to 'test') 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); -- cgit v1.2.3