correct last test and don't output to STDOUT to make prove happy

diff --git a/lib/CloudStore/Store.pm b/lib/CloudStore/Store.pm
index 50bbbf0..4b91ee0 100644 (file)
--- a/lib/CloudStore/Store.pm
+++ b/lib/CloudStore/Store.pm
@@ -372,6 +372,7 @@ sub dedup {
                                next;
                        }
                        my $new = {
+                               login => $data->{login},
                                pid => $data->{pid},
                                file => "$dir$file",
                                md5 => $md5,
@@ -384,7 +385,7 @@ sub dedup {
                                $self->md5pool( $new );
                        }
                }
-               print "INFO imported $imported files from ",dump($data);
+               warn "INFO imported $imported files from ",dump($data);
 
                return; # don't put md5sum files into pool
        }

diff --git a/t/Store.t b/t/Store.t
index b40a6de..32d52a2 100755 (executable)
--- a/t/Store.t
+++ b/t/Store.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 16;
 use Data::Dump qw(dump);
 
 use lib 'lib';