From ecca64326f6b745787e2edd9951cc95263aa42f6 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 11 Jul 2009 13:12:22 +0200
Subject: Moved test to t/ subdirectory, shortened Build.PL

---
 t/simplestore.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 t/simplestore.t

(limited to 't')

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);
-- 
cgit v1.2.3