Check BADMSG return codes

This commit is contained in:
benrubson 2017-08-10 13:04:24 +02:00
parent 59ba9de03f
commit 8e13120b18

View File

@ -111,7 +111,7 @@ sub corruption
ok( open(IN, "< $crypt/corrupt"), "open corrupted file");
my $content;
$result = read(IN, $content, 20);
ok(! defined $result, "corrupted file with MAC returns read error: $!");
ok($!{EBADMSG} && (! defined $result), "corrupted file with MAC returns read error: $!");
}
# Test internal modification