Mercurial > pub > Impl

comparison _test/Test/Lang.pm @ 176:74c27daf2e7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author sergey
date Wed, 05 Oct 2011 16:23:45 +0400
parents 9057e4b95d10
children b3d91ff7aea9
comparison
equal deleted inserted replaced
175:9057e4b95d10 176:74c27daf2e7b
91 assert($c->{b}); 91 assert($c->{b});
92 assert($c->{b} == $c); 92 assert($c->{b} == $c);
93 93
94 }; 94 };
95 95
96 test hashParse => sub {
97 my $res = hashParse("a = test a\nb = test b\nc c=test c");
98
99 assert($res->{a} eq "test a");
100 assert($res->{b} eq "test b");
101 assert($res->{"c c"} eq "test c");
102
103 $res = hashParse("a:b, c: d",qr/\s*:\s*/,qr/\s*,\s*/);
104
105 assert($res->{a} eq "b");
106 assert($res->{c} eq "d");
107 };
108
96 1; 109 1;