diff options
author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2013-06-12 13:23:15 +1000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2013-06-12 13:23:15 +1000 |
commit | fdf0a41ee03d8deb725407cacff3ae78c04d0558 (patch) | |
tree | eaf9a21e1d636ce06aaae554346c63a67e76aa72 | |
parent | 7bdef849bb375267060f8bfa11bcd66c98a13c9a (diff) | |
download | dejagnu-fdf0a41ee03d8deb725407cacff3ae78c04d0558.zip dejagnu-fdf0a41ee03d8deb725407cacff3ae78c04d0558.tar.gz dejagnu-fdf0a41ee03d8deb725407cacff3ae78c04d0558.tar.bz2 |
* testsuite/runtest.all/default_procs.tcl (send_log): Use the
magic "args" parameter name, as expect send_log proc accepts -- as
a leading option.
Signed-off-by: Ben Elliston <bje@gnu.org>
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | testsuite/runtest.all/default_procs.tcl | 4 |
2 files changed, 8 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2013-06-12 Bernhard Reutner-Fischer <aldot@gcc.gnu.org> + + * testsuite/runtest.all/default_procs.tcl (send_log): Use the + magic "args" parameter name, as expect send_log proc accepts -- as + a leading option. + 2013-06-08 Makoto Fujiwara <makoto@ki.nu> * Makefile.am (pkgdata_DATA): Rename from pkgdata_SCRIPTS. diff --git a/testsuite/runtest.all/default_procs.tcl b/testsuite/runtest.all/default_procs.tcl index 8a42dfb..c3358b3 100644 --- a/testsuite/runtest.all/default_procs.tcl +++ b/testsuite/runtest.all/default_procs.tcl @@ -16,7 +16,7 @@ proc lib_pat_test { cmd arg pattern } { return 0 } } - + # this tests a proc for a returned value proc lib_ret_test { cmd arg val } { catch "$cmd \"$arg\"" result @@ -58,7 +58,7 @@ proc run_tests { tests } { } } -proc send_log { msg } { +proc send_log { args } { # this is just a stub for testing } |