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"); ok( open(IN, "< $crypt/corrupt"), "open corrupted file");
my $content; my $content;
$result = read(IN, $content, 20); $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 # Test internal modification