diff lib/IMPL/Test/Unit.pm @ 410:9335cf010b23 ref20150831

refactoring
author cin
date Mon, 14 Sep 2015 01:11:53 +0300
parents c6e90e02dd17
children
line wrap: on
line diff
--- a/lib/IMPL/Test/Unit.pm	Sun Sep 13 19:30:49 2015 +0300
+++ b/lib/IMPL/Test/Unit.pm	Mon Sep 14 01:11:53 2015 +0300
@@ -86,26 +86,26 @@
         };
         
         return new IMPL::Test::Result(
-            Name => $this->Name,
-            State => IMPL::Test::Result::SUCCESS,
-            TimeExclusive => $elapsed,
-            TimeInclusive => tv_interval ( $t )
+            name => $this->Name,
+            state => IMPL::Test::Result::SUCCESS,
+            timeExclusive => $elapsed,
+            timeInclusive => tv_interval ( $t )
         );
     } catch IMPL::Test::FailException with {
         my $e = shift;
         return new IMPL::Test::Result(
-            Name => $this->Name,
-            State => IMPL::Test::Result::FAIL,
-            Exception => $e,
-            TimeInclusive => tv_interval ( $t )
+            name => $this->Name,
+            state => IMPL::Test::Result::FAIL,
+            exception => $e,
+            timeInclusive => tv_interval ( $t )
         );
     } otherwise {
         my $e = shift;
         return new IMPL::Test::Result(
-            Name => $this->Name,
-            State => IMPL::Test::Result::ERROR,
-            Exception => $e,
-            TimeInclusive => tv_interval ( $t )
+            name => $this->Name,
+            state => IMPL::Test::Result::ERROR,
+            exception => $e,
+            timeInclusive => tv_interval ( $t )
         );
     }
 }