You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2002/04/09 18:14:40 UTC
cvs commit: tcl-websh/src/tests msc.test
ronnie 02/04/09 09:14:40
Modified: src/tests msc.test
Log:
- fixed test copyright-1.0
Revision Changes Path
1.3 +6 -6 tcl-websh/src/tests/msc.test
Index: msc.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/msc.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- msc.test 25 Oct 2001 11:04:29 -0000 1.2
+++ msc.test 9 Apr 2002 16:14:40 -0000 1.3
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) $Id: msc.test,v 1.2 2001/10/25 11:04:29 davidw Exp $
+# @(#) $Id: msc.test,v 1.3 2002/04/09 16:14:40 ronnie Exp $
#
# -----------------------------------------------------------------------------
@@ -24,11 +24,11 @@
# creation and 'normal' usage
# -----------------------------------------------------------------------------
test copyright-1.0 {web::config copyright} {
- set tmp [split [web::config copyright] "\n"]
- if {[info exists res]} {unset res}
- lappend res [regexp {http://netcetera\.ch} [lindex $tmp 0]]
- lappend res [regexp {http://websh\.com} [lindex $tmp 1]]
- lappend res [regexp {info@websh\.com} [lindex $tmp 2]]
+ set res {}
+ set tmp [web::config copyright]
+ lappend res [regexp {http://netcetera\.ch} $tmp]
+ lappend res [regexp {http://websh\.com} $tmp]
+ lappend res [regexp {info@websh\.com} $tmp]
set res
} {1 1 1}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org