test-chunks-order.rkt (374B)
1 #lang hyper-literate racket/base 2 3 @chunk[<values> 4 'A] 5 6 @chunk[<values> 7 'B] 8 9 @CHUNK[<values> 10 'C] 11 12 @CHUNK[<values> 13 'D] 14 15 @chunk[<values> 16 'E] 17 18 @chunk[<values> 19 'F] 20 21 @CHUNK[<values> 22 'G] 23 24 @CHUNK[<values> 25 'H] 26 27 @chunk[<*> 28 (require rackunit) 29 (check-equal? (list <values>) 30 '(A B C D E F G H))]