@@ -102,7 +102,7 @@ class \nodoc\ iso _TestFrameParserText is UnitTest
102102 let frame = _TestFrameHelper .masked_frame (
103103 true , 0x01 , " Hello" .array ())
104104 let parser = _FrameParser
105- match parser.parse (frame)
105+ match \exhaustive\ parser.parse (frame)
106106 | let frames: Array [_ParsedFrame val ] val =>
107107 h.assert_eq [USize ](1 , frames.size ())
108108 h.assert_true (frames (0 )?.fin )
@@ -120,7 +120,7 @@ class \nodoc\ iso _TestFrameParserBinary is UnitTest
120120 let payload: Array [U8 ] val = recover val [as U8 : 0x01 ; 0x02 ; 0x03 ] end
121121 let frame = _TestFrameHelper .masked_frame (true , 0x02 , payload)
122122 let parser = _FrameParser
123- match parser.parse (frame)
123+ match \exhaustive\ parser.parse (frame)
124124 | let frames: Array [_ParsedFrame val ] val =>
125125 h.assert_eq [USize ](1 , frames.size ())
126126 h.assert_eq [U8 ](0x02 , frames (0 )?.opcode )
@@ -138,7 +138,7 @@ class \nodoc\ iso _TestFrameParserPing is UnitTest
138138 let payload: Array [U8 ] val = recover val [as U8 : 0xAA ; 0xBB ] end
139139 let frame = _TestFrameHelper .masked_frame (true , 0x09 , payload)
140140 let parser = _FrameParser
141- match parser.parse (frame)
141+ match \exhaustive\ parser.parse (frame)
142142 | let frames: Array [_ParsedFrame val ] val =>
143143 h.assert_eq [USize ](1 , frames.size ())
144144 h.assert_eq [U8 ](0x09 , frames (0 )?.opcode )
@@ -154,7 +154,7 @@ class \nodoc\ iso _TestFrameParserPong is UnitTest
154154 let frame = _TestFrameHelper .masked_frame (
155155 true , 0x0A , recover val Array [U8 ] end )
156156 let parser = _FrameParser
157- match parser.parse (frame)
157+ match \exhaustive\ parser.parse (frame)
158158 | let frames: Array [_ParsedFrame val ] val =>
159159 h.assert_eq [USize ](1 , frames.size ())
160160 h.assert_eq [U8 ](0x0A , frames (0 )?.opcode )
@@ -171,7 +171,7 @@ class \nodoc\ iso _TestFrameParserCloseWithCode is UnitTest
171171 recover val [as U8 : 0x03 ; 0xE8 ; 'b' ; 'y' ; 'e' ] end
172172 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
173173 let parser = _FrameParser
174- match parser.parse (frame)
174+ match \exhaustive\ parser.parse (frame)
175175 | let frames: Array [_ParsedFrame val ] val =>
176176 h.assert_eq [USize ](1 , frames.size ())
177177 h.assert_eq [U8 ](0x08 , frames (0 )?.opcode )
@@ -190,7 +190,7 @@ class \nodoc\ iso _TestFrameParserCloseEmpty is UnitTest
190190 let frame = _TestFrameHelper .masked_frame (
191191 true , 0x08 , recover val Array [U8 ] end )
192192 let parser = _FrameParser
193- match parser.parse (frame)
193+ match \exhaustive\ parser.parse (frame)
194194 | let frames: Array [_ParsedFrame val ] val =>
195195 h.assert_eq [USize ](1 , frames.size ())
196196 h.assert_eq [U8 ](0x08 , frames (0 )?.opcode )
@@ -206,7 +206,7 @@ class \nodoc\ iso _TestFrameParserCloseOneByte is UnitTest
206206 let payload: Array [U8 ] val = recover val [as U8 : 0x03 ] end
207207 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
208208 let parser = _FrameParser
209- match parser.parse (frame)
209+ match \exhaustive\ parser.parse (frame)
210210 | let frames: Array [_ParsedFrame val ] val =>
211211 h.fail (" expected error for 1-byte close payload" )
212212 | let err: _FrameError =>
@@ -223,7 +223,7 @@ class \nodoc\ iso _TestFrameParserCloseInvalidUtf8Reason is UnitTest
223223 recover val [as U8 : 0x03 ; 0xE8 ; 0xFF ] end
224224 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
225225 let parser = _FrameParser
226- match parser.parse (frame)
226+ match \exhaustive\ parser.parse (frame)
227227 | let frames: Array [_ParsedFrame val ] val =>
228228 h.fail (" expected error for invalid UTF-8 in close reason" )
229229 | let err: _FrameError =>
@@ -240,7 +240,7 @@ class \nodoc\ iso _TestFrameParserCloseValidUtf8Reason is UnitTest
240240 recover val [as U8 : 0x03 ; 0xE8 ; 'O' ; 'K' ] end
241241 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
242242 let parser = _FrameParser
243- match parser.parse (frame)
243+ match \exhaustive\ parser.parse (frame)
244244 | let frames: Array [_ParsedFrame val ] val =>
245245 h.assert_eq [USize ](1 , frames.size ())
246246 h.assert_eq [U8 ](0x08 , frames (0 )?.opcode )
@@ -260,7 +260,7 @@ class \nodoc\ iso _TestFrameParserLength16Bit is UnitTest
260260 end
261261 let frame = _TestFrameHelper .masked_frame (true , 0x02 , payload)
262262 let parser = _FrameParser
263- match parser.parse (frame)
263+ match \exhaustive\ parser.parse (frame)
264264 | let frames: Array [_ParsedFrame val ] val =>
265265 h.assert_eq [USize ](1 , frames.size ())
266266 h.assert_eq [USize ](200 , frames (0 )?.payload .size ())
@@ -281,7 +281,7 @@ class \nodoc\ iso _TestFrameParserLength64Bit is UnitTest
281281 end
282282 let frame = _TestFrameHelper .masked_frame (true , 0x02 , payload)
283283 let parser = _FrameParser
284- match parser.parse (frame)
284+ match \exhaustive\ parser.parse (frame)
285285 | let frames: Array [_ParsedFrame val ] val =>
286286 h.assert_eq [USize ](1 , frames.size ())
287287 h.assert_eq [USize ](size, frames (0 )?.payload .size ())
@@ -309,7 +309,7 @@ class \nodoc\ iso _TestFrameParserLength64BitMsbSet is UnitTest
309309 f
310310 end
311311 let parser = _FrameParser
312- match parser.parse (raw)
312+ match \exhaustive\ parser.parse (raw)
313313 | let frames: Array [_ParsedFrame val ] val =>
314314 h.fail (" expected error for 64-bit length with MSB set" )
315315 | let err: _FrameError =>
@@ -324,7 +324,7 @@ class \nodoc\ iso _TestFrameParserUnmasked is UnitTest
324324 let frame = _TestFrameHelper .unmasked_frame (
325325 true , 0x01 , " Hello" .array ())
326326 let parser = _FrameParser
327- match parser.parse (frame)
327+ match \exhaustive\ parser.parse (frame)
328328 | let frames: Array [_ParsedFrame val ] val =>
329329 h.fail (" expected error for unmasked frame" )
330330 | let err: _FrameError =>
@@ -345,7 +345,7 @@ class \nodoc\ iso _TestFrameParserNonZeroRsv is UnitTest
345345 f
346346 end
347347 let parser = _FrameParser
348- match parser.parse (raw)
348+ match \exhaustive\ parser.parse (raw)
349349 | let frames: Array [_ParsedFrame val ] val =>
350350 h.fail (" expected error for RSV bits" )
351351 | let err: _FrameError =>
@@ -360,7 +360,7 @@ class \nodoc\ iso _TestFrameParserFragmentedControl is UnitTest
360360 let frame = _TestFrameHelper .masked_frame (
361361 false , 0x09 , recover val Array [U8 ] end )
362362 let parser = _FrameParser
363- match parser.parse (frame)
363+ match \exhaustive\ parser.parse (frame)
364364 | let frames: Array [_ParsedFrame val ] val =>
365365 h.fail (" expected error for fragmented control frame" )
366366 | let err: _FrameError =>
@@ -380,7 +380,7 @@ class \nodoc\ iso _TestFrameParserControlTooLarge is UnitTest
380380 end
381381 let frame = _TestFrameHelper .masked_frame (true , 0x09 , payload)
382382 let parser = _FrameParser
383- match parser.parse (frame)
383+ match \exhaustive\ parser.parse (frame)
384384 | let frames: Array [_ParsedFrame val ] val =>
385385 h.fail (" expected error for oversized control frame" )
386386 | let err: _FrameError =>
@@ -395,7 +395,7 @@ class \nodoc\ iso _TestFrameParserUnknownOpcode is UnitTest
395395 let frame = _TestFrameHelper .masked_frame (
396396 true , 0x03 , recover val Array [U8 ] end )
397397 let parser = _FrameParser
398- match parser.parse (frame)
398+ match \exhaustive\ parser.parse (frame)
399399 | let frames: Array [_ParsedFrame val ] val =>
400400 h.fail (" expected error for unknown opcode" )
401401 | let err: _FrameError =>
@@ -415,7 +415,7 @@ class \nodoc\ iso _TestFrameParserIncremental is UnitTest
415415 var i: USize = 0
416416 while i < (full_frame.size () - 1 ) do
417417 let byte: Array [U8 ] val = recover val [as U8 : full_frame (i)?] end
418- match parser.parse (byte)
418+ match \exhaustive\ parser.parse (byte)
419419 | let frames: Array [_ParsedFrame val ] val =>
420420 h.assert_eq [USize ](0 , frames.size ())
421421 | let err: _FrameError => h.fail (" unexpected error at byte " +
@@ -426,7 +426,7 @@ class \nodoc\ iso _TestFrameParserIncremental is UnitTest
426426
427427 // Feed last byte — should complete the frame
428428 let last: Array [U8 ] val = recover val [as U8 : full_frame (i)?] end
429- match parser.parse (last)
429+ match \exhaustive\ parser.parse (last)
430430 | let frames: Array [_ParsedFrame val ] val =>
431431 h.assert_eq [USize ](1 , frames.size ())
432432 h.assert_eq [U8 ](0x01 , frames (0 )?.opcode )
@@ -454,7 +454,7 @@ class \nodoc\ iso _TestFrameParserMultipleFrames is UnitTest
454454 end
455455
456456 let parser = _FrameParser
457- match parser.parse (combined)
457+ match \exhaustive\ parser.parse (combined)
458458 | let frames: Array [_ParsedFrame val ] val =>
459459 h.assert_eq [USize ](2 , frames.size ())
460460 h.assert_eq [U8 ](0x01 , frames (0 )?.opcode )
@@ -479,7 +479,7 @@ class \nodoc\ iso _TestFrameParserCloseValidCodes is Property1[U16]
479479 recover val [as U8 : (code >> 8 ).u8 (); code.u8 ()] end
480480 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
481481 let parser = _FrameParser
482- match parser.parse (frame)
482+ match \exhaustive\ parser.parse (frame)
483483 | let frames: Array [_ParsedFrame val ] val =>
484484 h.assert_eq [USize ](1 , frames.size ())
485485 h.assert_eq [U8 ](0x08 , frames (0 )?.opcode )
@@ -507,7 +507,7 @@ class \nodoc\ iso _TestFrameParserCloseInvalidCodes is Property1[U16]
507507 recover val [as U8 : (code >> 8 ).u8 (); code.u8 ()] end
508508 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
509509 let parser = _FrameParser
510- match parser.parse (frame)
510+ match \exhaustive\ parser.parse (frame)
511511 | let frames: Array [_ParsedFrame val ] val =>
512512 h.fail (" expected error for invalid code " + code.string ())
513513 | let err: _FrameError =>
@@ -543,7 +543,7 @@ class \nodoc\ iso _TestFrameParserCloseMixedCodes is Property1[U16]
543543 recover val [as U8 : (code >> 8 ).u8 (); code.u8 ()] end
544544 let frame = _TestFrameHelper .masked_frame (true , 0x08 , payload)
545545 let parser = _FrameParser
546- match parser.parse (frame)
546+ match \exhaustive\ parser.parse (frame)
547547 | let frames: Array [_ParsedFrame val ] val =>
548548 h.assert_true (valid, " code " + code.string () + " should be rejected" )
549549 | let err: _FrameError =>
@@ -566,7 +566,7 @@ class \nodoc\ iso _TestFrameParserPropertyRandom is Property1[USize]
566566 end
567567 let frame = _TestFrameHelper .masked_frame (true , 0x02 , payload)
568568 let parser = _FrameParser
569- match parser.parse (frame)
569+ match \exhaustive\ parser.parse (frame)
570570 | let frames: Array [_ParsedFrame val ] val =>
571571 h.assert_eq [USize ](1 , frames.size ())
572572 h.assert_eq [U8 ](0x02 , frames (0 )?.opcode )
0 commit comments