darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* gdb.base/annota1.exp: Move test of isnative to earlier in the

Browse source 
file -- to prevent failing when the compile fails but we have no
 	intention of running the tests anyway.

	* gdb.base/long_long.exp: Test target_info for no_long_long, skip
	tests if set.

	* gdb.base/maint.exp: Support 2 byte integers as well as 4 byte
 	integers.

	* gdb.c++/ctti.exp: Skip tests if skip_cplus_tests returns true.
	* gdb.c++/namespace.exp: Ditto.

Fix PR gdb/16.
This commit is contained in:
David Taylor 2001-03-08 21:09:23 +00:00
parent 7898dedac0
commit fc33412a6a
6 changed files with 37 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,18 @@
Thu Mar 8 16:06:00 2001 David Taylor <taylor@redhat.com>
* gdb.base/annota1.exp: Move test of isnative to earlier in the
file -- to prevent failing when the compile fails but we have no
intention of running the tests anyway.
* gdb.base/long_long.exp: Test target_info for no_long_long, skip
tests if set.
* gdb.base/maint.exp: Support 2 byte integers as well as 4 byte
integers.
* gdb.c++/ctti.exp: Skip tests if skip_cplus_tests returns true.
* gdb.c++/namespace.exp: Ditto.
2001-03-07 Orjan Friberg <orjanf@axis.com>
* gdb.base/pointers.c: Don't assume doubles are >= 8 bytes.

22
gdb/testsuite/gdb.base/annota1.exp
View file

@ -1,4 +1,4 @@
# Copyright 1999, 2000
# Copyright 1999, 2000, 2001
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
@ -25,6 +25,16 @@ if $tracelevel then {
}
# are we on a target board? If so, don't run these tests.
# note: this is necessary because we cannot use runto_main (which would
# work for remote targets too) because of the different prompt we get
# when using annotation level 2.
#
if ![isnative] then {
return 0
}
#
# test running programs
#
@ -40,16 +50,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
}
# are we on a target board? If so, don't run these tests.
# note: this is necessary because we cannot use runto_main (which would
# work for remote targets too) because of the different prompt we get
# when using annotation level 2.
#
if ![isnative] then {
return 0
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir

6
gdb/testsuite/gdb.base/long_long.exp
View file

@ -1,4 +1,4 @@
# Copyright 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
# Copyright 1997, 1998, 1999, 2000, 2001 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
@ -25,6 +25,10 @@ if $tracelevel then {
strace $tracelevel
}
if [target_info exists no_long_long] {
return 0
}
set testfile long_long
set srcfile ${srcdir}/${subdir}/${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}

4
gdb/testsuite/gdb.base/maint.exp
View file

@ -1,4 +1,4 @@
# Copyright 1998, 1999, 2000 Free Software Foundation, Inc.
# Copyright 1998, 1999, 2000, 2001 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
@ -343,7 +343,7 @@ set timeout $old_timeout
send_gdb "maint print type argc\n"
gdb_expect {
-re "type node $hex\r\nname .int. \\($hex\\)\r\ncode $hex \\(TYPE_CODE_INT\\)\r\nlength 4\r\nobjfile $hex\r\ntarget_type $hex\r\npointer_type $hex\r\nreference_type $hex\r\nflags $hex\r\nnfields 0 $hex\r\nvptr_basetype $hex\r\nvptr_fieldno -1\r\ntype_specific $hex\r\n$gdb_prompt $"\
-re "type node $hex\r\nname .int. \\($hex\\)\r\ncode $hex \\(TYPE_CODE_INT\\)\r\nlength \[24\]\r\nobjfile $hex\r\ntarget_type $hex\r\npointer_type $hex\r\nreference_type $hex\r\nflags $hex\r\nnfields 0 $hex\r\nvptr_basetype $hex\r\nvptr_fieldno -1\r\ntype_specific $hex\r\n$gdb_prompt $"\
{ pass "maint print type" }
-re ".*$gdb_prompt $" { fail "maint print type" }
timeout { fail "(timeout) maint print type" }

3
gdb/testsuite/gdb.c++/ctti.exp
View file

@ -1,4 +1,4 @@
# Copyright 1998, 1999 Free Software Foundation, Inc.
# Copyright 1998, 1999, 2001 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
@ -29,6 +29,7 @@ if $tracelevel then {
strace $tracelevel
}
if { [skip_cplus_tests] } { continue }
# Check to see if we have an executable to test. If not, then either we
# haven't tried to compile one, or the compilation failed for some reason.

3
gdb/testsuite/gdb.c++/namespace.exp
View file

@ -1,4 +1,4 @@
# Copyright 1997, 1998, 2000 Free Software Foundation, Inc.
# Copyright 1997, 1998, 2000, 2001 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
@ -35,6 +35,7 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
if { [skip_cplus_tests] } { continue }
set testfile "namespace"
set srcfile ${testfile}.cc