Re: GNU poke 2.0.91 pre-released in alpha.gnu.org

[Bruno Haible]

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