8 lines
264 B
Scheme
8 lines
264 B
Scheme
(require (as-is mzscheme load)
|
|
(as-is "test-harness.ss" test))
|
|
(load "../demos/dijkstra/dijkstra-mztake.ss")
|
|
(map-e (lambda (e)
|
|
(unless e
|
|
(test (dv:vector-length (t-data heap)) 5)))
|
|
(debug-process-running-e (current-process)))
|