GDB 7.6.50

gdb/testsuite/gdb.base/comprdebug.exp

-# Copyright 2000, 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
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-load_lib "java.exp"
+standard_testfile average.c
 
-proc test_comparisons {} {
-    global gdb_prompt
-
-    # Test various comparisons.
-
-    gdb_test "p 1 > 2" " = false"
-    gdb_test "p 1 < 2" " = true"
+set ofile "${binfile}0.o"
+if {[gdb_compile $srcdir/$subdir/$srcfile $ofile \
+         object {debug}] != ""} {
+    untested comprdebug.exp
+    return
 }
 
-# Start with a fresh gdb.
+set objcopy_program [gdb_find_objcopy]
+set cmd "$objcopy_program --compress-debug-sections $ofile"
+verbose "invoking $cmd"
+set result [catch "exec $cmd" output]
+verbose "result is $result"
+verbose "output is $output"
+
+if {$result == 1} {
+    untested comprdebug.exp
+    return
+}
 
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
+set testname "file [file tail $ofile]"
+if {[gdb_file_cmd $ofile] == 0} {
+    pass $testname
+} else {
+    fail $testname
+}
 
-gdb_test "set print sevenbit-strings" ""
-gdb_test "set print address off" "" ""
-gdb_test "set width 0" ""
-
-if [set_lang_java] then {
-    test_comparisons
-} else {
-    warning "Java expression tests suppressed"
-}