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; |
