X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fmsgmap.t;fp=t%2Fmsgmap.t;h=a5232fab6cbc06b75e0aeb3df541f2d8a43c3285;hb=1e57ecc0dcbc64a6829a93dc81cfb6ab6f0ce71b;hp=5c28e54df7542b7031081e5a37cecfa803a68c05;hpb=9b80f2bedbe5a8a9154dfa0ba3c7e63012287bea;p=public-inbox.git diff --git a/t/msgmap.t b/t/msgmap.t index 5c28e54d..a5232fab 100644 --- a/t/msgmap.t +++ b/t/msgmap.t @@ -27,9 +27,9 @@ foreach my $mid (@mids) { } $@ = undef; -eval { $d->mid_insert('a@b') }; -ok($@, 'error raised when attempting duplicate message ID'); - +my $ret = $d->mid_insert('a@b'); +is($ret, undef, 'duplicate mid_insert in undef result'); +is($d->num_for('a@b'), $mid2num{'a@b'}, 'existing number not clobbered'); foreach my $n (keys %num2mid) { is($d->mid_for($n), $num2mid{$n}, "num:$n maps correctly");