18 lines
415 B
Racket
18 lines
415 B
Racket
#lang racket
|
|
(require tests/eli-tester
|
|
"../lib/pqueue.rkt")
|
|
|
|
(define N 10)
|
|
|
|
(test
|
|
(local [(define pq
|
|
(pqueue (make-temporary-file "tmp~a" 'directory)))]
|
|
(test (pqueue-init! pq)
|
|
|
|
(for ([i (in-range N)])
|
|
(pqueue-enqueue! pq i))
|
|
|
|
(for/list ([i (in-range N)])
|
|
(pqueue-dequeue! pq))
|
|
=>
|
|
(for/list ([i (in-range N)]) i)))) |