Commit | Line | Data |
04d3c854 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More qw(no_plan); |
7a42977e |
4 | use IO::All; |
dd5885d7 |
5 | |
04d3c854 |
6 | BEGIN { |
7 | use_ok aliased => 'IronMunger::PlaggerLoader'; |
8 | } |
9 | |
dd5885d7 |
10 | my @names = ('Jess Robinson', 'Justin DeVuyst'); |
11 | |
12 | my @files = ('my_Jess_Robinson.csv', 'my_Justin_DeVuyst.csv'); |
13 | |
04d3c854 |
14 | ok(my $loader = PlaggerLoader->new(dir => 't/csv'), 'build loader'); |
15 | |
dd5885d7 |
16 | my @target = $loader->_target_files; |
17 | |
18 | cmp_ok(@target, '==', 2, '2 files in CSV directory'); |
04d3c854 |
19 | |
dd5885d7 |
20 | is_deeply( |
21 | [ sort map { ($_->splitpath)[-1] } @target ], \@files, |
22 | 'filenames ok' |
23 | ); |
bd245ba2 |
24 | |
25 | { |
26 | my %args = (url => 'http://foo.com', at => '2008-04-06T12:00:00'); |
27 | |
28 | ok(my $post = $loader->_expand_post(\%args), 'Expand post constructs object'); |
29 | |
30 | foreach my $key (sort keys %args) { |
31 | is($post->$key, $args{$key}, "Attribute ${key} ok"); |
32 | } |
33 | } |
7a42977e |
34 | |
35 | my @postspecs = map |
36 | +{ |
37 | url => 'http://jdv79.blogspot.com/2009/05/testable-v007.html', |
38 | at => $_, |
39 | }, qw(2009-05-13T02:45:00 2009-05-14T16:00:00); |
40 | |
e4465877 |
41 | my $jdv_file = io('t/csv/my_Justin_DeVuyst.csv'); |
42 | |
43 | my $specs = $loader->_expand_postspecs_from_file($jdv_file); |
7a42977e |
44 | |
45 | is_deeply($specs, \@postspecs, 'Post specs from file ok'); |
e4465877 |
46 | |
47 | my $posts = $loader->_expand_posts_from_file($jdv_file); |
48 | |
49 | cmp_ok(scalar(@$posts), '==', scalar(@postspecs), 'Right number of posts'); |
50 | |
51 | foreach my $i (0, 1) { |
52 | my %spec = %{$postspecs[$i]}; |
53 | my $post = $posts->[$i]; |
54 | foreach my $key (sort keys %spec) { |
55 | is($post->$key, $spec{$key}, "Attribute ${key} ok for post ${i}"); |
56 | } |
57 | } |
58 | |
f00c97c5 |
59 | my $jdv = $loader->_expand_monger($jdv_file); |
60 | |
61 | is($jdv->name, 'Justin DeVuyst', 'Name correct'); |
62 | ok(!$jdv->has_nick, 'No nickname'); |
63 | cmp_ok(@{$jdv->posts}, '==', 2, '2 posts loaded'); |
64 | |
65 | my @mongers = sort { $a->name cmp $b->name } $loader->mongers; |
66 | |
67 | cmp_ok(scalar(@mongers), '==', 2, '2 mongers loaded'); |
68 | |
69 | foreach my $i (0, 1) { |
70 | is($mongers[$i]->name, $names[$i], $names[$i].' loaded'); |
71 | } |