Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(1458)

Unified Diff: gdb/testsuite/gdb.ada/iwide.exp

Issue 124383005: GDB 7.6.50 (Closed) Base URL: http://git.chromium.org/native_client/nacl-gdb.git@upstream
Patch Set: Created 6 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « gdb/testsuite/gdb.ada/interface/types.ads ('k') | gdb/testsuite/gdb.ada/iwide/classes.adb » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: gdb/testsuite/gdb.ada/iwide.exp
diff --git a/gdb/testsuite/gdb.ada/print_chars.exp b/gdb/testsuite/gdb.ada/iwide.exp
similarity index 56%
copy from gdb/testsuite/gdb.ada/print_chars.exp
copy to gdb/testsuite/gdb.ada/iwide.exp
index 35dfcc6b85d548dd9211015853143857a15f5878..3b7bdbf32cbb0aa8833ec0388e7a06e9a7cbc2b8 100644
--- a/gdb/testsuite/gdb.ada/print_chars.exp
+++ b/gdb/testsuite/gdb.ada/iwide.exp
@@ -1,4 +1,4 @@
-# Copyright 2007-2012 Free Software Foundation, Inc.
+# Copyright 2012-2013 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
@@ -15,32 +15,28 @@
load_lib "ada.exp"
-set testdir "print_chars"
-set testfile "${testdir}/foo"
-set srcfile ${srcdir}/${subdir}/${testfile}.adb
-set binfile ${objdir}/${subdir}/${testfile}
+standard_ada_testfile p
-file mkdir ${objdir}/${subdir}/${testdir}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
return -1
}
clean_restart ${testfile}
-set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
-runto "foo.adb:$bp_location"
+set bp_location [gdb_get_line_number "BREAK" ${testdir}/p.adb]
+runto "p.adb:$bp_location"
+gdb_test "print My_Drawable" \
+ "= \\(center => \\(x => 1, y => 2\\), radius => 3\\)"
-gdb_test "print C" \
- "= 97 'a'" \
- "print C"
+gdb_test "print s_access.all" \
+ "\\(center => \\(x => 1, y => 2\\), radius => 3\\)"
-gdb_test "print WC" \
- "= 98 'b'" \
- "print WC"
-
-gdb_test "print WWC" \
- "= 99 'c'" \
- "print WWC"
+gdb_test "print sp_access.all" \
+ "\\(center => \\(x => 1, y => 2\\), radius => 3\\)"
+gdb_test "print d_access.all" \
+ "\\(center => \\(x => 1, y => 2\\), radius => 3\\)"
+gdb_test "print dp_access.all" \
+ "\\(center => \\(x => 1, y => 2\\), radius => 3\\)"
« no previous file with comments | « gdb/testsuite/gdb.ada/interface/types.ads ('k') | gdb/testsuite/gdb.ada/iwide/classes.adb » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698