start of stats saver code

[engit/Iron-Munger.git] / t / stats_saver.t

diff --git a/t/stats_saver.t b/t/stats_saver.t
new file mode 100644 (file)
index 0000000..0eba022
--- /dev/null
+++ b/t/stats_saver.t
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+
+BEGIN { use_ok aliased => 'IronMunger::StatsSaver'; }
+
+ok(
+  (my $saver = StatsSaver->new(dir => 'X')),
+  'Constructed object ok'
+);
+
+is(
+  $saver->_image_symlink_target('male','iron'), 'X/badges/male/iron.png',
+  'Symlink target ok',
+);
+
+is(
+  $saver->_image_symlink_from('mst', 'female',), 'X/mybadge/female/mst.png',
+  'Symlink from ok',
+);