From add1e3e32ec43aed703fae19fccb997d09e37fdb Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Mon, 28 Nov 2022 20:53:29 -0600
Subject: Add UNSUPPORTED test result to DejaGnu unit test protocol

---
 testsuite/libdejagnu/unit-c.c |  1 +
 testsuite/libdejagnu/unit.exp | 20 +++++++++++---------
 2 files changed, 12 insertions(+), 9 deletions(-)

(limited to 'testsuite')

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
 }
-- 
cgit v1.1