diff options
Diffstat (limited to 'gdb/testsuite/gdb.guile')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-generics.exp | 42 |
1 files changed, 0 insertions, 42 deletions
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>" |