@@ -81,9 +81,12 @@ goodProducer = assertEqual "partial encoding should not explode on undefined"
81 '{' (L.head (encode wibble))
81 '{' (L.head (encode wibble))
83 wibble = Wibble {
83 wibble = Wibble {
84− wibbleString = replicate 4030 'a'
84+ wibbleString = replicate k 'a'
85− , wibbleInt = undefined
85+ , wibbleInt = 1
89+ arch32bit = (maxBound :: Int) == 2147483647
88-- Test decoding various UTC time formats
91-- Test decoding various UTC time formats