test post expansion from hashref

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

diff --git a/t/plagger_loader.t b/t/plagger_loader.t
index 9aa613f..f4b3002 100644 (file)
--- a/t/plagger_loader.t
+++ b/t/plagger_loader.t
@@ -2,10 +2,32 @@ use strict;
 use warnings;
 use Test::More qw(no_plan);
 
+
 BEGIN {
   use_ok aliased => 'IronMunger::PlaggerLoader';
 }
 
+my @names = ('Jess Robinson', 'Justin DeVuyst');
+
+my @files = ('my_Jess_Robinson.csv', 'my_Justin_DeVuyst.csv');
+
 ok(my $loader = PlaggerLoader->new(dir => 't/csv'), 'build loader');
 
+my @target = $loader->_target_files;
+
+cmp_ok(@target, '==', 2, '2 files in CSV directory');
 
+is_deeply(
+  [ sort map { ($_->splitpath)[-1] } @target ], \@files,
+  'filenames ok'
+);
+
+{
+  my %args = (url => 'http://foo.com', at => '2008-04-06T12:00:00');
+
+  ok(my $post = $loader->_expand_post(\%args), 'Expand post constructs object');
+
+  foreach my $key (sort keys %args) {
+    is($post->$key, $args{$key}, "Attribute ${key} ok");
+  }
+}