[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: GNU poke 2.0.91 pre-released in alpha.gnu.org
From: |
Bruno Haible |
Subject: |
Re: GNU poke 2.0.91 pre-released in alpha.gnu.org |
Date: |
Sat, 05 Feb 2022 02:28:17 +0100 |
Jose E. Marchesi wrote:
> The patch below should fix this.
>
> diff --git a/ChangeLog b/ChangeLog
> index f93b9b86..d2131591 100644
> --- a/ChangeLog
> +++ b/ChangeLog
> @@ -1,5 +1,10 @@
> 2022-02-05 Jose E. Marchesi <jemarch@gnu.org>
>
> + * testsuite/lib/poke.exp (verify_exit_status): Avoid using
> + lassign.
> +
It does fix it. Many more tests pass now. Still, there are 2 Tcl syntax errors:
=== poke tests ===
Schedule of variations:
unix
Running target unix
Using /usr/share/dejagnu/baseboards/unix.exp as board description file for
target.
Using /usr/share/dejagnu/config/unix.exp as generic interface file for target.
Using /home/bruno/poke-2.0.91/testsuite/config/unix.exp as
tool-and-target-specific interface file.
Running /home/bruno/poke-2.0.91/testsuite/poke.cmd/cmd.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.libpoke/libpoke.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.map/map.exp ...
ERROR: tcl error sourcing /home/bruno/poke-2.0.91/testsuite/poke.map/map.exp.
ERROR: bad switch "-119": must be -all, -about, -indices, -inline, -expanded,
-line, -linestop, -lineanchor, -nocase, -start, or --
while executing
"regexp $texttmp ${output}"
invoked from within
"if ![file exists $output_file] {
warning "$name compilation failed to produce executable"
} else {
set status -1
set result [${tool}_l..."
(procedure "dg-test" line 224)
invoked from within
"dg-test $testcase $flags ${default-extra-flags}"
(procedure "dg-runtest" line 10)
invoked from within
"dg-runtest [lsort [glob -nocomplain $srcdir/poke.map/$tests_pattern]] {} {}"
(file "/home/bruno/poke-2.0.91/testsuite/poke.map/map.exp" line 21)
invoked from within
"source /home/bruno/poke-2.0.91/testsuite/poke.map/map.exp"
("uplevel" body line 1)
invoked from within
"uplevel #0 source /home/bruno/poke-2.0.91/testsuite/poke.map/map.exp"
invoked from within
"catch "uplevel #0 source $test_file_name""
Running /home/bruno/poke-2.0.91/testsuite/poke.mi-json/mi-json.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.pickles/pickles.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.pkl/pkl.exp ...
ERROR: tcl error sourcing /home/bruno/poke-2.0.91/testsuite/poke.pkl/pkl.exp.
ERROR: bad switch "-6#32
-6#32": must be -all, -about, -indices, -inline, -expanded, -line, -linestop,
-lineanchor, -nocase, -start, or --
while executing
"regexp $texttmp ${output}"
invoked from within
"if ![file exists $output_file] {
warning "$name compilation failed to produce executable"
} else {
set status -1
set result [${tool}_l..."
(procedure "dg-test" line 224)
invoked from within
"dg-test $testcase $flags ${default-extra-flags}"
(procedure "dg-runtest" line 10)
invoked from within
"dg-runtest [lsort [glob -nocomplain $srcdir/poke.pkl/$tests_pattern]] {} {}"
(file "/home/bruno/poke-2.0.91/testsuite/poke.pkl/pkl.exp" line 21)
invoked from within
"source /home/bruno/poke-2.0.91/testsuite/poke.pkl/pkl.exp"
("uplevel" body line 1)
invoked from within
"uplevel #0 source /home/bruno/poke-2.0.91/testsuite/poke.pkl/pkl.exp"
invoked from within
"catch "uplevel #0 source $test_file_name""
Running /home/bruno/poke-2.0.91/testsuite/poke.pktest/pktest.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.repl/repl.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.std/std.exp ...
Running /home/bruno/poke-2.0.91/testsuite/poke.time/time.exp ...
=== poke Summary ===
# of expected passes 3137
# of unsupported tests 2
Re: GNU poke 2.0.91 pre-released in alpha.gnu.org, Bruno Haible, 2022/02/04
Re: GNU poke 2.0.91 pre-released in alpha.gnu.org, Bruno Haible, 2022/02/04