URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
Compare Revisions
- This comparison shows the changes necessary to convert path
/or1k/tags/start/insight/tk/testsuite/tk.tests
- from Rev 579 to Rev 1765
- ↔ Reverse comparison
Rev 579 → Rev 1765
/tk-test.exp
0,0 → 1,99
# Copyright (C) 1996 Cygnus Support |
|
# This program is free software; you can redistribute it and/or modify |
# it under the terms of the GNU General Public License as published by |
# the Free Software Foundation; either version 2 of the License, or |
# (at your option) any later version. |
# |
# This program is distributed in the hope that it will be useful, |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# GNU General Public License for more details. |
# |
# You should have received a copy of the GNU General Public License |
# along with this program; if not, write to the Free Software |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
# Please email any bugs, comments, and/or additions to this file to: |
# bug-dejagnu@prep.ai.mit.edu |
|
# This file was written by Tom Tromey <tromey@cygnus.com> |
|
if {$tracelevel} then { |
strace $tracelevel |
} |
|
if {[tk_start] == -1} then { |
perror "Couldn't start the Tk test environment" 0 |
return -1 |
} |
|
# This file is needed by the Tk test suite. |
copy_file $srcdir/../tests/README README |
|
set timeoutmsg "Timed out: Never got started, " |
set timeout 100 |
set file all |
set timetol 0 |
|
# |
# Change to the dir where all the tests live. |
# |
|
set timetol 0 |
if {! [file exists ${srcdir}/../tests/${file}]} then { |
perror "The source for the test case \"$file\" is missing" 0 |
return -1 |
} |
send "source \$srcdir/${file}\n" |
expect { |
-re "source \$srcdir/$file\[\r\n\]+\[$tprompt\]*" { |
verbose "Sourced test $file ..." |
set timeoutmsg "Never got to the end of " |
exp_continue |
} |
"install Tcl or set your TCL_LIBRARY environment variable" { |
perror "You need to set the TCL_LIBRARY environment variable" |
return -1 |
} |
-re "\[\r\n\]*\\+\\+\\+\\+ (\[a-zA-Z\]*-\[.0-9\]*) PASSED\[\r\n\]*" { |
pass $expect_out(1,string) |
set timetol 0 |
exp_continue |
} |
-re "\[\r\n\]*\\+* (\[a-zA-Z\]*-\[.0-9\]*) FAILED\[\r\n\]*" { |
fail $expect_out(1,string) |
exp_continue |
} |
-re "\[x\]+ \[a-i\]+ \[A-K\]+ \[0-9\]+ " { |
verbose "Got standard output message from exec 8.1 test." 3 |
exp_continue |
} |
-re "Test generated error:\[\r\n\]*.*\[\r\n\]*" { |
regsub "Test generated error:\[\r\n\]*" $expect_out(0,string) "" tmp |
regsub -all "\[\r\n\]*\[a-zA-Z.\]test\[\r\n\]*" $tmp "" tmp |
regsub -all "\[\r\n\]*" $tmp "" tmp |
perror "Got a test case bug \"$tmp\"" |
exp_continue |
} |
"Tests all done" { |
verbose "Done" 2 |
} |
"*Error: bad option *" { |
fail "Got a bad option" |
} |
eof { |
verbose "Done" 2 |
} |
timeout { |
warning "Timed out executing test case" |
if { $timetol <= 2 } { |
incr timetol |
exp_continue |
} else { |
return -1 |
} |
} |
} |
|
catch close |
tk-test.exp
Property changes :
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property