* 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>

diff --git a/ChangeLog b/ChangeLog
index 4ece904..677c072 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 (file)
--- 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
 }