1 files changed, 186 insertions, 0 deletions
diff --git a/tests/queue.test b/tests/queue.test
new file mode 100644
index 0000000..3ec365c
--- /dev/null
+++ b/tests/queue.test
@@ -0,0 +1,186 @@
+# queue.test:  tests for the queue package.
+#
+# This file contains a collection of tests for one or more of the Tcl
+# built-in commands.  Sourcing this file into Tcl runs the tests and
+# generates output for errors.  No output means no errors were found.
+#
+# Copyright (c) 1998-2000 by Scriptics Corporation.
+# All rights reserved.
+#
+# RCS: @(#) $Id: queue.test,v 1.1 2000/02/05 03:20:21 ericm Exp $
+
+if {[lsearch [namespace children] ::tcltest] == -1} {
+    package require tcltest
+    namespace import ::tcltest::*
+}
+
+package require struct
+namespace import struct::*
+
+test queue-0.1 {queue errors} {
+    queue myqueue
+    catch {queue myqueue} msg
+    myqueue destroy
+    set msg
+} "command \"myqueue\" already exists, unable to create queue"
+test queue-0.2 {queue errors} {
+    queue myqueue
+    catch {myqueue} msg
+    myqueue destroy
+    set msg
+} "wrong # args: should be \"myqueue option ?arg arg ...?\""
+test queue-0.3 {queue errors} {
+    queue myqueue
+    catch {myqueue foo} msg
+    myqueue destroy
+    set msg
+} "bad option \"foo\": must be clear, destroy, get, peek, put, or size"
+test queue-0.4 {queue errors} {
+    catch {::struct::queue::QueueProc myqueue} msg
+    set msg
+} "unknown queue \"myqueue\""
+test queue-0.5 {queue errors} {
+    catch {queue set} msg
+    set msg
+} "command \"set\" already exists, unable to create queue"
+
+test queue-1.1 {queue creation} {
+    set foo [queue myqueue]
+    set cmd [info commands ::myqueue]
+    set size [myqueue size]
+    myqueue destroy
+    list $foo $cmd $size
+} {myqueue ::myqueue 0}
+test queue-1.2 {queue creation} {
+    set foo [queue]
+    set cmd [info commands ::$foo]
+    set size [$foo size]
+    $foo destroy
+    list $foo $cmd $size
+} {queue1 ::queue1 0}
+
+test queue-2.1 {queue destroy} {
+    queue myqueue
+    myqueue destroy
+    info commands ::myqueue
+} {}
+test queue-2.2 {queue destroy} {
+    queue myqueue
+    myqueue destroy
+    catch {::struct::queue::QueueProc myqueue} msg
+    set msg
+} "unknown queue \"myqueue\""
+
+test queue-3.2 {size operation} {
+    queue myqueue
+    myqueue put a b c d e f g
+    set size [myqueue size]
+    myqueue destroy
+    set size
+} 7
+test queue-3.3 {size operation} {
+    queue myqueue
+    myqueue put a b c d e f g
+    myqueue get 3
+    set size [myqueue size]
+    myqueue destroy
+    set size
+} 4
+test queue-3.4 {size operation} {
+    queue myqueue
+    myqueue put a b c d e f g
+    myqueue get 3
+    myqueue peek 3
+    set size [myqueue size]
+    myqueue destroy
+    set size
+} 4
+    
+test queue-4.1 {put operation} {
+    queue myqueue
+    catch {myqueue put} msg
+    myqueue destroy
+    set msg
+} "wrong # args: should be \"myqueue put item ?item ...?\""
+test queue-4.2 {put operation, singleton items} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [list [myqueue get] [myqueue get] [myqueue get]]
+    myqueue destroy
+    set result
+} "a b c"
+test queue-4.3 {put operation, multiple items} {
+    queue myqueue
+    myqueue put a b c
+    set result [list [myqueue get] [myqueue get] [myqueue get]]
+    myqueue destroy
+    set result
+} "a b c"
+test queue-4.4 {put operation, spaces in items} {
+    queue myqueue
+    myqueue put a b "foo bar"
+    set result [list [myqueue get] [myqueue get] [myqueue get]]
+    myqueue destroy
+    set result
+} [list a b "foo bar"]
+test queue-4.5 {put operation, bad chars in items} {
+    queue myqueue
+    myqueue put a b \{
+    set result [list [myqueue get] [myqueue get] [myqueue get]]
+    myqueue destroy
+    set result
+} [list a b \{]
+
+test queue-5.1 {get operation} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [list [myqueue get] [myqueue get] [myqueue get]]
+    myqueue destroy
+    set result
+} [list a b c]
+test queue-5.2 {get operation, multiple items} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [myqueue get 3]
+    myqueue destroy
+    set result
+} [list a b c]
+
+test queue-6.1 {peek operation} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [list [myqueue peek] [myqueue peek] [myqueue peek]]
+    myqueue destroy
+    set result
+} [list a a a]
+test queue-6.2 {get operation, multiple items} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [list [myqueue peek 3] [myqueue get 3]]
+    myqueue destroy
+    set result
+} [list [list a b c] [list a b c]]
+
+test queue-7.1 {clear operation} {
+    queue myqueue
+    myqueue put a
+    myqueue put b
+    myqueue put c
+    set result [list [myqueue peek 3]]
+    myqueue clear
+    lappend result [myqueue size]
+    myqueue destroy
+    set result
+} [list [list a b c] 0]
+
+::tcltest::cleanupTests