suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moved unstable/cce/queue to unstable/queue.

Browse Source
This commit is contained in:
Carl Eastlund 2010-05-29 12:36:04 -04:00
parent 1d0c069a6c
commit 70858e93e5
7 changed files with 64 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
collects/tests/unstable/queue.rkt Normal file
View File

@ -0,0 +1,53 @@
#lang racket
(require rackunit rackunit/text-ui unstable/queue "helpers.rkt")
(run-tests
(test-suite "queue.ss"
(test-suite "queue-empty?"
(test-case "make-queue"
(check-true (queue-empty? (make-queue))))
(test-case "enqueue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(check-false (queue-empty? q))))
(test-case "enqueue! once / dequeue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(dequeue! q)
(check-true (queue-empty? q))))
(test-case "enqueue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(check-false (queue-empty? q))))
(test-case "enqueue! twice / dequeue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(dequeue! q)
(check-false (queue-empty? q))))
(test-case "enqueue! twice / dequeue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(dequeue! q)
(dequeue! q)
(check-true (queue-empty? q)))))
(test-suite "dequeue!"
(test-case "make-queue"
(check-exn exn:fail:contract? (lambda () (dequeue! (make-queue)))))
(test-case "enqueue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(check-equal? (dequeue! q) 1)
(check-exn exn:fail:contract?
(lambda () (dequeue! q)))))
(test-case "enqueue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(check-equal? (dequeue! q) 1)
(check-equal? (dequeue! q) 2)
(check-exn exn:fail:contract?
(lambda () (dequeue! q))))))))

1
collects/unstable/cce/reference/manual.scrbl
View File

@ -15,7 +15,6 @@
@include-section["set.scrbl"]
@include-section["dict.scrbl"]
@include-section["hash.scrbl"]
@include-section["queue.scrbl"]
@include-section["syntax.scrbl"]
@include-section["define.scrbl"]

2
collects/unstable/cce/test/test-main.ss
View File

@ -10,7 +10,6 @@
"test-hash.ss"
"test-planet.ss"
"test-port.ss"
"test-queue.ss"
"test-regexp.ss"
"test-require-provide.ss"
"test-sandbox.ss"
@ -29,7 +28,6 @@
hash-suite
planet-suite
port-suite
queue-suite
regexp-suite
require-provide-suite
sandbox-suite

56
collects/unstable/cce/test/test-queue.ss
View File

@ -1,56 +0,0 @@
#lang scheme
(require "checks.ss"
"../queue.ss")
(provide queue-suite)
(define queue-suite
(test-suite "queue.ss"
(test-suite "queue-empty?"
(test-case "make-queue"
(check-true (queue-empty? (make-queue))))
(test-case "enqueue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(check-false (queue-empty? q))))
(test-case "enqueue! once / dequeue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(dequeue! q)
(check-true (queue-empty? q))))
(test-case "enqueue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(check-false (queue-empty? q))))
(test-case "enqueue! twice / dequeue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(dequeue! q)
(check-false (queue-empty? q))))
(test-case "enqueue! twice / dequeue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(dequeue! q)
(dequeue! q)
(check-true (queue-empty? q)))))
(test-suite "dequeue!"
(test-case "make-queue"
(check-exn exn:fail:contract? (lambda () (dequeue! (make-queue)))))
(test-case "enqueue! once"
(let* ([q (make-queue)])
(enqueue! q 1)
(check-equal? (dequeue! q) 1)
(check-exn exn:fail:contract?
(lambda () (dequeue! q)))))
(test-case "enqueue! twice"
(let* ([q (make-queue)])
(enqueue! q 1)
(enqueue! q 2)
(check-equal? (dequeue! q) 1)
(check-equal? (dequeue! q) 2)
(check-exn exn:fail:contract?
(lambda () (dequeue! q))))))))

2
collects/unstable/cce/queue.ss → collects/unstable/queue.rkt
View File

@ -1,4 +1,4 @@
#lang scheme
#lang racket
;; A Queue is a circularly linked list of queue structures.
;; The head of the circle is identified by the distinguished head value.

20
collects/unstable/cce/reference/queue.scrbl → collects/unstable/scribblings/queue.scrbl
View File

@ -1,13 +1,11 @@
#lang scribble/doc
@(require scribble/manual
scribble/eval
"../scribble.ss"
"eval.ss")
@(require (for-label scheme unstable/cce/queue))
#lang scribble/manual
@(require scribble/eval "utils.rkt" (for-label racket unstable/queue))
@title[#:style 'quiet #:tag "cce-queue"]{Imperative Queues}
@title{Imperative Queues}
@defmodule[unstable/cce/queue]
@defmodule[unstable/queue]
@unstable[@author+email["Carl Eastlund" "cce@racket-lang.org"]]
This module provides a mutable queue representation.
@ -23,7 +21,7 @@ Adds an element to the back of a queue.
Removes an element from the front of a nonempty queue, and returns that element.
@defexamples[
#:eval (evaluator 'unstable/cce/queue)
#:eval (eval/require 'unstable/queue)
(define q (make-queue))
(enqueue! q 1)
(dequeue! q)
@ -38,7 +36,7 @@ Removes an element from the front of a nonempty queue, and returns that element.
Recognizes whether a queue is empty or not.
@defexamples[
#:eval (evaluator 'unstable/cce/queue)
#:eval (eval/require 'unstable/queue)
(define q (make-queue))
(queue-empty? q)
(enqueue! q 1)
@ -52,7 +50,7 @@ Recognizes whether a queue is empty or not.
This predicate recognizes queues.
@defexamples[
#:eval (evaluator 'unstable/cce/queue)
#:eval (eval/require 'unstable/queue)
(queue? (make-queue))
(queue? 'not-a-queue)
]

1
collects/unstable/scribblings/unstable.scrbl
View File

@ -81,6 +81,7 @@ Keep documentation and tests up to date.
@include-section["net.scrbl"]
@include-section["path.scrbl"]
@include-section["pretty.scrbl"]
@include-section["queue.scrbl"]
@include-section["srcloc.scrbl"]
@include-section["string.scrbl"]
@include-section["struct.scrbl"]