*** empty log message ***

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / gdb701.exp

diff --git a/gdb/testsuite/gdb.mi/gdb701.exp b/gdb/testsuite/gdb.mi/gdb701.exp
index 703ec6a9fc3172a0d132a83af1e1427b29714e0d..c75e7ce0f49d55d77d07a451e783ee109f4faefa 100644 (file)
--- a/gdb/testsuite/gdb.mi/gdb701.exp
+++ b/gdb/testsuite/gdb.mi/gdb701.exp
@@ -1,4 +1,4 @@
-# Copyright 2002 Free Software Foundation, Inc.
+# Copyright 2002, 2007 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -33,7 +33,8 @@ set testfile gdb701
 set srcfile "$testfile.c"
 set binfile $objdir/$subdir/$testfile
 if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable debug] != ""} {
-  gdb_suppress_entire_file "Testcase compile failed, so all test in this file will automatically fail."
+  untested gdb701.exp
+  return -1
 }
 
 # When varobj reports the types of objects, it often isn't really reporting
@@ -49,9 +50,7 @@ mi_run_to_main
 # Step over "foo = 0"
 mi_next "step over \"foo = 0\""
 
-mi_gdb_test "-var-create fooPtr * foo" \
-  "(&\".*\"\r\n)*\\^done,name=\"fooPtr\",numchild=\"3\",type=\"Foo \\*\"" \
-  "create fooPtr"
+mi_create_varobj fooPtr foo "create fooPtr"
 
 mi_gdb_test "-var-list-children fooPtr" \
   "(&\".*\"\r\n)*\\^done,numchild=\"3\",.*" \