[at-spi2-core: 8/17] Test GetRole

[Federico Mena Quintero <federico src gnome org>]

commit 8ba03f9ff0ca0a7e96f262db7338b0371d73835f
Author: Federico Mena Quintero <federico gnome org>
Date:   Tue Oct 11 18:55:40 2022 -0500

    Test GetRole

 tests/registryd/test_root_accessible.py | 7 +++++++
 1 file changed, 7 insertions(+)
---
diff --git a/tests/registryd/test_root_accessible.py b/tests/registryd/test_root_accessible.py
index b16249aa..da7fd670 100644
--- a/tests/registryd/test_root_accessible.py
+++ b/tests/registryd/test_root_accessible.py
@@ -11,6 +11,8 @@ from utils import get_property, check_unknown_property_yields_error
 
 ACCESSIBLE_IFACE = 'org.a11y.atspi.Accessible'
 
+ATSPI_ROLE_DESKTOP_FRAME = 14 # see atspi-constants.h
+
 def test_accessible_iface_properties(registry_root, session_manager):
     values = [
         ('Name',        'main'),
@@ -40,3 +42,8 @@ def test_root_get_index_in_parent(registry_root, session_manager):
 def test_root_get_relation_set(registry_root, session_manager):
     # The registry root has an empty relation set
     assert len(registry_root.GetRelationSet(dbus_interface=ACCESSIBLE_IFACE)) == 0
+
+def test_root_get_role(registry_root, session_manager):
+    # Hardcoded to ATSPI_ROLE_DESKTOP_FRAME
+    assert registry_root.GetRole(dbus_interface=ACCESSIBLE_IFACE) == ATSPI_ROLE_DESKTOP_FRAME
+