--- a/_test/Test/Lang.pm	Wed Oct 12 00:06:07 2011 +0300
+++ b/_test/Test/Lang.pm	Tue Dec 20 23:00:30 2011 +0300
@@ -6,6 +6,7 @@
 
 use IMPL::Test qw(test failed assert);
 use IMPL::lang qw(:hash :compare clone);
+use Scalar::Util qw(reftype);
 
 __PACKAGE__->PassThroughArgs;
 
@@ -82,7 +83,7 @@
 	
 	assert(not defined $b);
 	
-	my $lp = { a => '1' };
+	my $lp = { a => '1', rx => qr/abc$/ };
 	$lp->{b} = $lp;
 	
 	my $c = clone($lp); 
@@ -90,6 +91,7 @@
 	assert($c);
 	assert($c->{b});
 	assert($c->{b} == $c);
+	assert(reftype $c->{rx} eq 'REGEXP');
 	
 };