Merge pull request PerlDancer#766 from Ovid/pr/log_serialization_sorting

Pr/log serialization sorting
leto · Mar 27, 2012 · 991a76b · 991a76b
2 parents 7385570 + a558f12
commit 991a76b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/Dancer/Logger.pm b/lib/Dancer/Logger.pm
@@ -25,6 +25,7 @@ sub _serialize {
                         ->Terse(1)
                         ->Purity(1)
                         ->Indent(0)
+                        ->Sortkeys(1)
                         ->Dump()    :
             $_
     } @vars;

diff --git a/t/11_logger/08_serialize.t b/t/11_logger/08_serialize.t
@@ -7,7 +7,7 @@ use Test::More import => ['!pass'];
 plan skip_all => "Test::Output is needed for this test"
     unless Dancer::ModuleLoader->load('Test::Output');
 
-plan tests => 3;
+plan tests => 4;
 
 use Dancer ':syntax';
 set logger => 'Console';
@@ -30,3 +30,8 @@ Test::Output::stderr_like(
     'Multiple arguments are okay',
 );
 
+Test::Output::stderr_like(
+    sub { Dancer::Logger::warning( { b => 1, a => 2, e => 3, d => 4, c => 5}) }, 
+    qr/\[\d+\]  warn @.+> {'a' => 2,'b' => 1,'c' => 5,'d' => 4,'e' => 3}/,
+    'Hash keys are sorted okay',
+);