diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsuite/config/default.exp')
-rw-r--r-- | contrib/bluegnu2.0.3/testsuite/config/default.exp | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/config/default.exp b/contrib/bluegnu2.0.3/testsuite/config/default.exp deleted file mode 100644 index 5954252..0000000 --- a/contrib/bluegnu2.0.3/testsuite/config/default.exp +++ /dev/null @@ -1,79 +0,0 @@ - Copyright (C) 1988, 90-93, 1995 Free Software Foundation, Inc. - -# 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 Rob Savoye. (rob@welcomehome.org) - -global RUNTEST -if ![info exists RUNTEST] then { - set RUNTEST [transform runtest] -} - -if ![info exists EXPECT] { - set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/expect" expect] - verbose "EXPECT defaulting to $EXPECT" 2 -} - -global RUNTESTFLAGS -if ![info exists RUNTESTFLAGS] then { - set RUNTESTFLAGS "-v -v -a" -} - -# -# runtest_version -- extract and print the version number -# -proc runtest_version { } { - global RUNTEST - - catch {exec $RUNTEST -V} tmp - if [info exists tmp] then { - clone_output "$tmp\n" - } -} - -# -# runtest_load -- loads the program. For runtest, this is just a stub -# -proc runtest_load { arg } { -} - -# -# runtest_exit -- exit the test driver for expect -# -proc runtest_exit { } { - close -} - -# -# runtest_start -- start everything -# -proc runtest_start { } { - global verbose - global spawn_id - global subdir - global srcdir - global objdir - global RUNTEST - global RUNTESTFLAGS - - if {[which $RUNTEST] != 0} then { - perror "Can't find $RUNTEST" - } - -# return [open [concat "$RUNTEST $RUNTESTFLAGS"] r] -} |