From: Doug Evans Date: Thu, 5 Jun 2014 03:01:40 +0000 (-0700) Subject: Delete scm-generics.exp. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a872e241e2c2d23f3b14bc122cea6adc05a40d25;p=binutils-gdb.git Delete scm-generics.exp. Support for smobs as goops classes is changing in guile 2.2. We may eventually switch to using structs instead of smobs, so remove any claim we support goops or generics for now. * gdb.guile/scm-generics.exp: Delete. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 98b5e4588a9..45f3512f9b1 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2014-06-04 Doug Evans + + * gdb.guile/scm-generics.exp: Delete. + 2014-06-04 Doug Evans * gdb.guile/scm-breakpoint.exp: Update. diff --git a/gdb/testsuite/gdb.guile/scm-generics.exp b/gdb/testsuite/gdb.guile/scm-generics.exp deleted file mode 100644 index 664affc5867..00000000000 --- a/gdb/testsuite/gdb.guile/scm-generics.exp +++ /dev/null @@ -1,42 +0,0 @@ -# Copyright (C) 2010-2014 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 . - -# This file is part of the GDB testsuite. -# It tests using GDB smobs with generics. - -load_lib gdb-guile.exp - -# Start with a fresh gdb. -gdb_exit -gdb_start - -# Skip all tests if Guile scripting is not enabled. -if { [skip_guile_tests] } { continue } - -gdb_reinitialize_dir $srcdir/$subdir - -gdb_install_guile_utils -gdb_install_guile_module - -gdb_test_no_output "guile (use-modules ((oop goops)))" - -gdb_test_no_output "guile (define-generic +)" -gdb_test_no_output "guile (define-method (+ (x ) (y )) (value-add x y))" - -gdb_test_no_output "guile (define x (make-value 42))" - -gdb_test_no_output "guile (define y (+ x x))" - -gdb_test "guile y" "#"