94
95
parent = Accessibility_Accessible__get_parent (accessible, &env);
95
96
g_assert (env._major == CORBA_NO_EXCEPTION);
96
97
g_assert (accessible != CORBA_OBJECT_NIL);
98
num_children = Accessibility_Accessible__get_childCount (accessible, &env);
99
g_assert (env._major == CORBA_NO_EXCEPTION);
100
g_assert (num_children == 1);
98
fprintf (stderr, "parent: [%p] [%s]\n",
99
parent, Accessibility_Accessible_getRoleName (parent, &env));
102
101
num_children = Accessibility_Accessible__get_childCount (parent, &env);
103
102
g_assert (env._major == CORBA_NO_EXCEPTION);
104
103
g_assert (num_children == 1);
105
fprintf (stderr, "remote accessible (1 of %d children) [%p] [%s]\n",
106
num_children, accessible, Accessibility_Accessible_getRoleName (accessible, &env));
106
108
tmp = Accessibility_Accessible_getChildAtIndex (parent, 0, &env);
107
109
g_assert (env._major == CORBA_NO_EXCEPTION);
108
110
g_assert (CORBA_Object_is_equivalent (accessible, tmp, &env));
109
111
g_assert (env._major == CORBA_NO_EXCEPTION);
113
num_children = Accessibility_Accessible__get_childCount (accessible, &env);
114
g_assert (env._major == CORBA_NO_EXCEPTION);
115
g_assert (num_children == 1);
117
child = Accessibility_Accessible_getChildAtIndex (accessible, 0, &env);
118
g_assert (env._major == CORBA_NO_EXCEPTION);
119
fprintf (stderr, "child: (1 of %d) [%p] [%s]\n",
120
num_children, child, Accessibility_Accessible_getRoleName (child, &env));
122
parent = Accessibility_Accessible__get_parent (child, &env);
123
g_assert (env._major == CORBA_NO_EXCEPTION);
124
g_assert (parent != CORBA_OBJECT_NIL);
125
g_assert (CORBA_Object_is_equivalent (accessible, parent, &env));
126
g_assert (env._major == CORBA_NO_EXCEPTION);
128
num_children = Accessibility_Accessible__get_childCount (child, &env);
129
g_assert (env._major == CORBA_NO_EXCEPTION);
131
if (num_children > 0)
133
tmp = Accessibility_Accessible_getChildAtIndex (child, 0, &env);
134
g_assert (env._major == CORBA_NO_EXCEPTION);
135
fprintf (stderr, "grandchild: (1 of %d) [%p] [%s]\n",
136
num_children, tmp, Accessibility_Accessible_getRoleName (tmp, &env));
138
parent = Accessibility_Accessible__get_parent (tmp, &env);
139
g_assert (env._major == CORBA_NO_EXCEPTION);
140
g_assert (parent != CORBA_OBJECT_NIL);
141
g_assert (CORBA_Object_is_equivalent (child, parent, &env));
142
g_assert (env._major == CORBA_NO_EXCEPTION);
144
fprintf (stderr, "parent-child relationships OK.\n");
111
145
CORBA_exception_free (&env);