2001-12-10 Michael Meeks <michael@ximian.com>
[platform/core/uifw/at-spi2-atk.git] / test / test-simple.c
index b74e37e..bd55cde 100644 (file)
@@ -63,7 +63,6 @@ focus_me (GtkWidget *widget)
        
        g_object_unref (G_OBJECT (aobject));
 
-       /* Pull focus away and then back - thus sucks */
        return FALSE;
 }
 
@@ -210,6 +209,41 @@ test_text (AccessibleText *text)
 }
 
 static void
+test_value (AccessibleValue *value)
+{
+       char *str;
+       float original_value;
+       
+        /* Note: test_value assertions are known not to work as of Dec 09 */
+       
+       fprintf (stderr, "Testing value ...\n");
+
+       original_value = AccessibleValue_getCurrentValue (value);
+       
+       g_assert (AccessibleValue_getCurrentValue (value) <=
+                 AccessibleValue_getMaximumValue (value));
+
+       g_assert (AccessibleValue_getCurrentValue (value) >=
+                 AccessibleValue_getMinimumValue (value));
+
+       AccessibleValue_setCurrentValue (value, 
+                 AccessibleValue_getMinimumValue (value));
+       
+       g_assert (AccessibleValue_getCurrentValue (value) ==
+                 AccessibleValue_getMinimumValue (value));
+
+       AccessibleValue_setCurrentValue (value, 
+                 AccessibleValue_getMaximumValue (value));
+       
+       g_assert (AccessibleValue_getCurrentValue (value) ==
+                 AccessibleValue_getMaximumValue (value));
+
+       AccessibleValue_setCurrentValue (value, original_value);
+       
+       g_assert (AccessibleValue_getCurrentValue (value) == original_value);
+}
+
+static void
 test_component (AccessibleComponent *component)
 {
        long x, y, width, height;
@@ -273,7 +307,7 @@ validate_tree (Accessible *accessible,
                g_assert (parent != NULL);
 
                index = Accessible_getIndexInParent (accessible);
-               g_assert (index >= 0);
+               g_assert (index >= 0); 
 
                child_at_index = Accessible_getChildAtIndex (parent, index);
 
@@ -410,6 +444,16 @@ validate_accessible (Accessible *accessible,
                AccessibleText_unref (tmp);
        }
 
+       if (Accessible_isValue (accessible)) {
+               tmp = Accessible_getValue (accessible);
+               g_assert (tmp != NULL);
+               if (print_tree)
+                       fprintf (stderr, "Va");
+               else
+                       ; /* test_value (tmp); */
+               AccessibleValue_unref (tmp);
+       }
+
        if (print_tree)
                fprintf (stderr, " ] '%s' (%s) - %s:\n", name, descr, role);
 
@@ -464,9 +508,13 @@ main (int argc, char **argv)
 {
        int leaked;
        TestWindow *win;
+       const char *modules, *tmp;
        AccessibleEventListener *global_listener;
 
-       setenv ("GTK_MODULES", "gail:at-bridge", FALSE);
+       modules = g_getenv ("GTK_MODULES");
+       if (!modules || modules [0] == '\0')
+               putenv ("GTK_MODULES=gail:at-bridge");
+       modules = NULL;
 
        gtk_init (&argc, &argv);
 
@@ -503,7 +551,7 @@ main (int argc, char **argv)
                gtk_main ();
        }
 
-       setenv ("AT_BRIDGE_SHUTDOWN", "1", TRUE);
+       putenv ("AT_BRIDGE_SHUTDOWN=1");
 
        return 0;
 }