Util::TestMan: fix create_submission()

 * when user not given, create submission as anonymous

diff --git a/src/newslash_web/lib/Newslash/Util/TestMan.pm b/src/newslash_web/lib/Newslash/Util/TestMan.pm
index 8f5ee5b..9a8d620 100644 (file)
--- a/src/newslash_web/lib/Newslash/Util/TestMan.pm
+++ b/src/newslash_web/lib/Newslash/Util/TestMan.pm
@@ -142,9 +142,18 @@ sub create_submission {
     my $self = shift;
     my $params = {@_};
 
+    my $user;
+    if ($params->{user}) {
+       $user = $params->{user};
+    }
+    else {
+       $user = Newslash::Util::Test::get_anonymous_user($self->app);
+    }
+
     my $s = Newslash::Util::Test::create_submission($self->app,
-                                                    $params->{user},
+                                                    $user,
                                                     params => $params);
+    ok($s, "create submission for test (Newslash::Util::TestMan)");
     push @{$self->{submissions}}, $s;
     return $s;
 }