From 97b6d550e3a121b357906a4524b741d65a97d5eb Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Thu, 2 Jul 2009 11:38:57 +0200
Subject: Added some tests

---
 test/main          |  3 +++
 test/simplestore.t | 25 +++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100755 test/main
 create mode 100755 test/simplestore.t

diff --git a/test/main b/test/main
new file mode 100755
index 0000000..4b699d0
--- /dev/null
+++ b/test/main
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -Ilib test/simplestore.t
diff --git a/test/simplestore.t b/test/simplestore.t
new file mode 100755
index 0000000..bbeea0d
--- /dev/null
+++ b/test/simplestore.t
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 7;
+my $testfile = "/tmp/envstore-test-$$";
+
+my $hash;
+
+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');
-- 
cgit v1.2.3