blob: 5c1ca96be7d620dfad27fe5b546050b2b9035ac4 [file] [log] [blame]
(:*******************************************************:)
(: Test: K-SeqReverseFunc-14 :)
(: Written by: Frans Englich :)
(: Date: 2006-10-05T18:29:40+02:00 :)
(: Purpose: A test whose essence is: `deep-equal((11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1), reverse(((), (), 1, 2, (3, 4), (5), (6, (7, 8), 9), 10, (), 11, ())))`. :)
(:*******************************************************:)
deep-equal((11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1), reverse(((), (), 1, 2, (3, 4), (5), (6, (7, 8), 9), 10, (), 11, ())))