#!/usr/bin/env
[defn test-sort [times sort-func]
[def l #nil]
[dotimes [i times]
[set! l [cons [random/rng!] l]]]
[def sorted [sort-func l]]
[while sorted
[when [and [cadr sorted]
[> [car sorted] [cadr sorted]]]
[throw :list-not-sorted]]
[cdr! sorted]]]
[test-sort 1500 list/sort/bubble]
[return :success]
