Ticket #25 (assigned defect)

Opened 6 years ago

Last modified 6 years ago

Error in Unit Testing

Reported by: dom Owned by: dom
Priority: major Milestone:
Component: component1 Version:
Keywords: Cc:

Description

### Error in:   5
Third BoundsError "Value not in extension constraint: could be invalid value or unsupported extension"

Change History

Changed 6 years ago by dom

  • status changed from new to assigned

Looks like a bug in BitPut?. The darcs version works but 0.3.1 in hackage doesn't.

dom@lagrange:~/backup/asn15/asn1> darcs whatsnew
{
hunk ./Language/ASN1/PER/Integer.hs 22
-import Data.Binary.Strict.BitPut
+import Data.Binary.BitPut
hunk ./Language/ASN1/PER/IntegerAux.hs 33
-import Data.Binary.Strict.BitPut
+import Data.Binary.BitPut
hunk ./Language/ASN1/PER/IntegerAux.hs 60
-to2sComplementUsingReverse :: Integer -> B.ByteString
+to2sComplementUsingReverse :: Integer -> BL.ByteString
hunk ./Language/ASN1/PER/IntegerAux.hs 62
-   B.reverse (B.map reverseBits (runBitPut (to2sComplementReverse n)))
+   BL.reverse (BL.map reverseBits (runBitPut (to2sComplementReverse n)))
}

With these changes, all tests pass:

+++ OK, passed 100 tests.
Cases: 11  Tried: 11  Errors: 0  Failures: 0
Counts {cases = 11, tried = 11, errors = 0, failures = 0}
Note: See TracTickets for help on using tickets.