diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-generics.exp | 42 |
2 files changed, 4 insertions, 42 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 98b5e4588a9..45f3512f9b1 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2014-06-04 Doug Evans <xdje42@gmail.com> + * gdb.guile/scm-generics.exp: Delete. + +2014-06-04 Doug Evans <xdje42@gmail.com> + * gdb.guile/scm-breakpoint.exp: Update. Add tests for breakpoint registration. 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 <http://www.gnu.org/licenses/>. - -# 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 <gdb:value>) (y <gdb:value>)) (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" "#<gdb:value 84>" |