The following program fails with an assertion error:
let a = Pkcs11.CK_ATTRIBUTE_TYPE.CKA_CS_UNKNOWN Unsigned.ULong.zero in
let b = Pkcs11.CK_ATTRIBUTE_TYPE.CKA_CLASS in
Pkcs11.CK_ATTRIBUTE_TYPE.compare' a b
This is understandable of course, but this should not be an assertion error. Either the exception should be different, or the subcase with CKA_CS_UNKNOWN should try harder with the comparison.
The following program fails with an assertion error:
This is understandable of course, but this should not be an assertion error. Either the exception should be different, or the subcase with
CKA_CS_UNKNOWN
should try harder with the comparison.