--- a/Lib/IMPL/Test.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Test.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 
+use IMPL::Const qw(:access);
 require IMPL::Test::SkipException;
 
 require Exporter;
@@ -11,7 +12,6 @@
 require IMPL::Test::Unit;
 require IMPL::Test::Plan;
 require IMPL::Test::TAPListener;
-use IMPL::Class::Member;
 
 sub test($$) {
     my ($name,$code) = @_;
@@ -28,8 +28,8 @@
     my $class = caller;
     
     die new IMPL::Exception("Only properties could be declared as shared",$propInfo->name) unless eval {$propInfo->isa('IMPL::Class::PropertyInfo')};
-    die new IMPL::Exception("You can't mark the readonly property as shared",$propInfo->name) unless $propInfo->canSet;
-    die new IMPL::Exception("Only public properties could be declared as shared",$propInfo->name) unless $propInfo->access == IMPL::Class::Member::MOD_PUBLIC;
+    die new IMPL::Exception("You can't mark the readonly property as shared",$propInfo->name) unless $propInfo->setter;
+    die new IMPL::Exception("Only public properties could be declared as shared",$propInfo->name) unless $propInfo->access == ACCESS_PUBLIC;
     
     $class->set_meta(new IMPL::Test::Unit::SharedData($propInfo->name));
 }