Mercurial > pub > Impl
comparison _test/Test/Lang.pm @ 174:d920d2b70230
minor changes
author | sergey |
---|---|
date | Tue, 04 Oct 2011 17:55:38 +0400 |
parents | 6148f89bb7bf |
children | 9057e4b95d10 |
comparison
equal
deleted
inserted
replaced
173:aaab45153411 | 174:d920d2b70230 |
---|---|
3 use warnings; | 3 use warnings; |
4 | 4 |
5 use parent qw(IMPL::Test::Unit); | 5 use parent qw(IMPL::Test::Unit); |
6 | 6 |
7 use IMPL::Test qw(test failed assert); | 7 use IMPL::Test qw(test failed assert); |
8 use IMPL::lang qw(:hash :compare); | 8 use IMPL::lang qw(:hash :compare clone); |
9 | 9 |
10 __PACKAGE__->PassThroughArgs; | 10 __PACKAGE__->PassThroughArgs; |
11 | 11 |
12 test equals => sub { | 12 test equals => sub { |
13 assert( equals(1,1) ); | 13 assert( equals(1,1) ); |
72 | 72 |
73 assert( hashCompare( \%b, hashMerge(\%a,\%diff) ) ); | 73 assert( hashCompare( \%b, hashMerge(\%a,\%diff) ) ); |
74 | 74 |
75 }; | 75 }; |
76 | 76 |
77 test clone => { | |
78 | |
79 }; | |
80 | |
77 1; | 81 1; |