test snippetstore translator requirement, improve debugging, fix app
Matt S Trout [Wed, 1 Apr 2009 06:39:43 +0000 (07:39 +0100)]
lib/LolCatalyst/Lite.pm
lib/LolCatalyst/Lite/Controller/Root.pm
lib/LolCatalyst/Lite/Model/SnippetStore.pm
t/snippet_store/basic.t

index ad8abc6..1c43ddb 100644 (file)
@@ -14,8 +14,7 @@ use Catalyst::Runtime '5.70';
 #                 directory
 
 use parent qw/Catalyst/;
-use Catalyst qw/-Debug
-                ConfigLoader
+use Catalyst qw/ConfigLoader
                 Static::Simple/;
 our $VERSION = '0.01';
 
index 252b1bc..4ee16f6 100644 (file)
@@ -38,6 +38,8 @@ sub end : ActionClass('RenderView') {
     my ($self, $c) = @_;
     my $errors = scalar @{$c->error};
     if ($errors) {
+        $c->log->error("Errors in ${\$c->action}:");
+        $c->log->error($_) for @{$c->error};
         $c->res->status(500);
         $c->res->body('internal server error');
         $c->clear_errors;
index 775919e..8f8113f 100644 (file)
@@ -3,7 +3,10 @@ package LolCatalyst::Lite::Model::SnippetStore;
 use strict;
 use warnings;
 use aliased 'LolCatalyst::Lite::SnippetStore';
+use aliased 'LolCatalyst::Lite::Translator';
 
-sub COMPONENT { SnippetStore->new }
+sub COMPONENT {
+  SnippetStore->new(translator => Translator->new);
+}
 
 1;
index 5a46a3f..cc1aca6 100644 (file)
@@ -1,10 +1,15 @@
 use strict;
 use warnings;
 use Test::More qw(no_plan);
+use Test::Exception;
 
 use_ok "LolCatalyst::Lite::SnippetStore";
 
-my $store = LolCatalyst::Lite::SnippetStore->new;
+dies_ok {
+  LolCatalyst::Lite::SnippetStore->new;
+} 'Create without translator object fails';
+
+my $store = LolCatalyst::Lite::SnippetStore->new(translator => 'DUMMY');
 
 my $num_snips = 3;