Mercurial > pub > Impl

diff _test/Test/Class/Meta.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 76515373dac0
children a8db61d0ed33
line wrap: on
line diff
--- a/_test/Test/Class/Meta.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/_test/Test/Class/Meta.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -8,39 +8,39 @@
 use IMPL::Test qw(test failed);
 
 test defineFooClassData => sub {
-	Foo->class_data(info => {});	
+    Foo->class_data(info => {});    
 };
 
 test updateFooClassData => sub {
-	Foo->class_data('info')->{data} = 'Foo' ;
+    Foo->class_data('info')->{data} = 'Foo' ;
 };
 
 test getFooClassData => sub {
-	failed "Wrong class data", "Expected: Foo", "Got: ".Foo->class_data('info')->{data}  unless Foo->class_data('info')->{data} eq 'Foo';
+    failed "Wrong class data", "Expected: Foo", "Got: ".Foo->class_data('info')->{data}  unless Foo->class_data('info')->{data} eq 'Foo';
 };
 
 test getBazClassData => sub {
-	failed "Wrong class data", "Expected: Foo", "Got: ".Baz->class_data('info')->{data}  unless Baz->class_data('info')->{data} eq 'Foo';
+    failed "Wrong class data", "Expected: Foo", "Got: ".Baz->class_data('info')->{data}  unless Baz->class_data('info')->{data} eq 'Foo';
 };
 
 test updateBarClassData => sub {
-	Bar->class_data('info')->{data} = 'Bar';
+    Bar->class_data('info')->{data} = 'Bar';
 };
 
 test getBarClassData => sub {
-	failed "Wrong class data", "Expected: Bar", "Got: ".Bar->class_data('info')->{data}  unless Bar->class_data('info')->{data} eq 'Bar';
+    failed "Wrong class data", "Expected: Bar", "Got: ".Bar->class_data('info')->{data}  unless Bar->class_data('info')->{data} eq 'Bar';
 };
 
 test validatetFooClassData => sub {
-	failed "Wrong class data", "Expected: Foo", "Got: ".Foo->class_data('info')->{data}  unless Foo->class_data('info')->{data} eq 'Foo';
+    failed "Wrong class data", "Expected: Foo", "Got: ".Foo->class_data('info')->{data}  unless Foo->class_data('info')->{data} eq 'Foo';
 };
 
 test validateBazClassData => sub {
-	failed "Wrong class data", "Expected: Foo", "Got: ".Baz->class_data('info')->{data}  unless Baz->class_data('info')->{data} eq 'Foo';
+    failed "Wrong class data", "Expected: Foo", "Got: ".Baz->class_data('info')->{data}  unless Baz->class_data('info')->{data} eq 'Foo';
 };
 
 test getwrongBazClassData => sub {
-	failed "Wrong class data", "Expected: undef", "Got: ".Foo->class_data( 'info2' ) if Foo->class_data( 'info2' );
+    failed "Wrong class data", "Expected: undef", "Got: ".Foo->class_data( 'info2' ) if Foo->class_data( 'info2' );
 };