diff options
author | Jacob Bachmeyer <jcb@gnu.org> | 2022-11-28 20:53:29 -0600 |
---|---|---|
committer | Jacob Bachmeyer <jcb@gnu.org> | 2022-11-28 20:53:29 -0600 |
commit | add1e3e32ec43aed703fae19fccb997d09e37fdb (patch) | |
tree | d18126acbaca724abb1892fb62432ed1009d7d29 /testsuite/libdejagnu | |
parent | 92bf23d77f288766eddff2b04323c320f202c8c5 (diff) | |
download | dejagnu-add1e3e32ec43aed703fae19fccb997d09e37fdb.zip dejagnu-add1e3e32ec43aed703fae19fccb997d09e37fdb.tar.gz dejagnu-add1e3e32ec43aed703fae19fccb997d09e37fdb.tar.bz2 |
Add UNSUPPORTED test result to DejaGnu unit test protocol
Diffstat (limited to 'testsuite/libdejagnu')
-rw-r--r-- | testsuite/libdejagnu/unit-c.c | 1 | ||||
-rw-r--r-- | testsuite/libdejagnu/unit.exp | 20 |
2 files changed, 12 insertions, 9 deletions
diff --git a/testsuite/libdejagnu/unit-c.c b/testsuite/libdejagnu/unit-c.c index aeccbd5..1265b70 100644 --- a/testsuite/libdejagnu/unit-c.c +++ b/testsuite/libdejagnu/unit-c.c @@ -45,6 +45,7 @@ main(int argc, char ** argv) else if (!strcmp("xfail", argv[i])) xfail("test"); else if (!strcmp("untested", argv[i])) untested("test"); else if (!strcmp("unresolved", argv[i])) unresolved("test"); + else if (!strcmp("unsupported", argv[i])) unsupported("test"); else if (!strcmp("note", argv[i])) note("test"); else { fprintf(stderr, "%s: unknown test `%s'\n", argv[0], argv[i]); diff --git a/testsuite/libdejagnu/unit.exp b/testsuite/libdejagnu/unit.exp index 9580806..545c7bb 100644 --- a/testsuite/libdejagnu/unit.exp +++ b/testsuite/libdejagnu/unit.exp @@ -31,13 +31,14 @@ proc test_libdejagnu_unit { language tests } { "expected failures" xfail untested untested unresolved unresolved + unsupported unsupported } foreach test $tests { array set expected_totals { pass 0 fail 0 xpass 0 xfail 0 - untested 0 unresolved 0 + untested 0 unresolved 0 unsupported 0 } set test_idx 0 set result pass @@ -73,13 +74,14 @@ proc test_libdejagnu_unit { language tests } { -re {(?:\A|\n)\t([][[:upper:]]+):([^\n]+)\n} { # above pattern copied from lib/dejagnu.exp:host_execute switch -- [lindex $test $test_idx] { - note { set expected NOTE } - pass { set expected PASSED } - fail { set expected FAILED } - xpass { set expected XPASSED } - xfail { set expected XFAILED } - untested { set expected UNTESTED } - unresolved { set expected UNRESOLVED } + note { set expected NOTE } + pass { set expected PASSED } + fail { set expected FAILED } + xpass { set expected XPASSED } + xfail { set expected XFAILED } + untested { set expected UNTESTED } + unresolved { set expected UNRESOLVED } + unsupported { set expected UNSUPPORTED } } if { [info exists expected_totals([lindex $test $test_idx])]} { incr expected_totals([lindex $test $test_idx]) @@ -124,5 +126,5 @@ proc test_libdejagnu_unit { language tests } { } test_libdejagnu_unit c { - note pass fail xpass xfail untested unresolved + note pass fail xpass xfail untested unresolved unsupported } |