perltidy code and add .perltidyrc to repo

[p5sagit/Log-Contextual.git] / t / log-with-levels.t

diff --git a/t/log-with-levels.t b/t/log-with-levels.t
index e6371a5..d4f3cc6 100644 (file)
--- a/t/log-with-levels.t
+++ b/t/log-with-levels.t
@@ -1,7 +1,8 @@
 use strict;
 use warnings;
 
-use Log::Contextual qw{:dlog :log with_logger set_logger}, -levels => ['custom'];
+use Log::Contextual qw{:dlog :log with_logger set_logger},
+  -levels => ['custom'];
 use Log::Contextual::SimpleLogger;
 use Test::More qw(no_plan);
 
@@ -10,15 +11,18 @@ my $logger = DumbLogger->new;
 set_logger(sub { $logger });
 
 log_custom { 'fiSMBoC' };
-is( $DumbLogger::var, "fiSMBoC", "custom works");
+is($DumbLogger::var, "fiSMBoC", "custom works");
 
 my @vars = log_custom { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
-is( $DumbLogger::var, "fiSMBoC: bar", "log_custom works with input");
-ok( eq_array(\@vars, [qw{foo bar baz}]), "log_custom passes data through correctly");
+is($DumbLogger::var, "fiSMBoC: bar", "log_custom works with input");
+ok(
+   eq_array(\@vars, [qw{foo bar baz}]),
+   "log_custom passes data through correctly"
+);
 
 my $val = logS_custom { 'fiSMBoC: ' . $_[0] } 'foo';
-is( $DumbLogger::var, "fiSMBoC: foo", "logS_custom works with input");
-is( $val, 'foo', "logS_custom passes data through correctly");
+is($DumbLogger::var, "fiSMBoC: foo", "logS_custom works with input");
+is($val, 'foo', "logS_custom passes data through correctly");
 
 my @foo = Dlog_custom { "Look ma, data: $_" } qw{frew bar baz};
 
@@ -27,30 +31,31 @@ ok(
    "Dlog_custom passes data through correctly"
 );
 is(
-   $DumbLogger::var, qq(Look ma, data: "frew"\n"bar"\n"baz"\n),
+   $DumbLogger::var,
+   qq(Look ma, data: "frew"\n"bar"\n"baz"\n),
    "Output for Dlog_custom is correct"
 );
 
-my $bar = DlogS_custom { "Look ma, data: $_" } [qw{frew bar baz}];
-ok(
-   eq_array($bar, [qw{frew bar baz}]),
-   'DlogS_custom passes data through correctly'
-);
+my $bar = DlogS_custom { "Look ma, data: $_" }[qw{frew bar baz}];
+ok(eq_array($bar, [qw{frew bar baz}]),
+   'DlogS_custom passes data through correctly');
 is(
-   $DumbLogger::var, qq(Look ma, data: [\n  "frew",\n  "bar",\n  "baz"\n]\n),
+   $DumbLogger::var,
+   qq(Look ma, data: [\n  "frew",\n  "bar",\n  "baz"\n]\n),
    "Output for DlogS_custom is correct"
 );
 
 @foo = Dlog_custom { "nothing: $_" } ();
-ok( eq_array(\@foo, []), "Dlog_custom passes nothing through correctly");
-is( $DumbLogger::var, "nothing: ()", "Output for Dlog_custom is correct");
+ok(eq_array(\@foo, []), "Dlog_custom passes nothing through correctly");
+is($DumbLogger::var, "nothing: ()", "Output for Dlog_custom is correct");
 
 ok(!main->can($_), "$_ not imported")
-   for map +( "log_$_", "logS_$_" ), qw(debug trace warn info error fatal);
+  for map +("log_$_", "logS_$_"), qw(debug trace warn info error fatal);
 
 ok(!eval { Log::Contextual->import; 1 }, 'Blank Log::Contextual import dies');
 
 BEGIN {
+
    package DumbLogger;
 
    our $var;