summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-08-11 13:26:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-08-11 13:26:10 (GMT)
commit65e17722f171ca567827a4d59ea436f636f938d2 (patch)
tree451d47fff87eb5ac1a61afbfd2d8d408f50ac26e /tests
parent632196139ecb87e0d5c65db14c7d1565a91a54a7 (diff)
downloadtcl-65e17722f171ca567827a4d59ea436f636f938d2.zip
tcl-65e17722f171ca567827a4d59ea436f636f938d2.tar.gz
tcl-65e17722f171ca567827a4d59ea436f636f938d2.tar.bz2
TIP#136 IMPLEMENTATION. We now have an [lrepeat] command!
Diffstat (limited to 'tests')
-rw-r--r--tests/lrepeat.test79
1 files changed, 79 insertions, 0 deletions
diff --git a/tests/lrepeat.test b/tests/lrepeat.test
new file mode 100644
index 0000000..5478d7b
--- /dev/null
+++ b/tests/lrepeat.test
@@ -0,0 +1,79 @@
+# Commands covered: lrepeat
+#
+# 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) 2003 by Simon Geard.
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# RCS: @(#) $Id: lrepeat.test,v 1.1 2003/08/11 13:26:14 dkf Exp $
+
+if {[lsearch [namespace children] ::tcltest] == -1} {
+ package require tcltest
+ namespace import -force ::tcltest::*
+}
+
+## Arg errors
+test lrepeat-1.1 {error cases} {
+ -body {
+ lrepeat
+ }
+ -returnCodes 1
+ -result {wrong # args: should be "lrepeat positiveCount value ?value ...?"}
+}
+test lrepeat-1.2 {error cases} {
+ -body {
+ lrepeat 1
+ }
+ -returnCodes 1
+ -result {wrong # args: should be "lrepeat positiveCount value ?value ...?"}
+}
+test lrepeat-1.3 {error cases} {
+ -body {
+ lrepeat a 1
+ }
+ -returnCodes 1
+ -result {expected integer but got "a"}
+}
+test lrepeat-1.4 {error cases} {
+ -body {
+ lrepeat -3 1
+ }
+ -returnCodes 1
+ -result {must have a count of at least 1}
+}
+test lrepeat-1.5 {error cases} {
+ -body {
+ lrepeat 0
+ }
+ -returnCodes 1
+ -result {wrong # args: should be "lrepeat positiveCount value ?value ...?"}
+}
+test lrepeat-1.6 {error cases} {
+ -body {
+ lrepeat 3.5 1
+ }
+ -returnCodes 1
+ -result {expected integer but got "3.5"}
+}
+
+## Okay
+test lrepeat-2.1 {normal cases} {
+ lrepeat 10 a
+} {a a a a a a a a a a}
+test lrepeat-2.2 {normal cases} {
+ lrepeat 3 [lrepeat 3 0]
+} {{0 0 0} {0 0 0} {0 0 0}}
+test lrepeat-2.3 {normal cases} {
+ lrepeat 3 a b c
+} {a b c a b c a b c}
+test lrepeat-2.4 {normal cases} {
+ lrepeat 3 [lrepeat 2 a] b c
+} {{a a} b c {a a} b c {a a} b c}
+
+# cleanup
+::tcltest::cleanupTests
+return