diff options
| -rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/Makefile.in | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-5984.ch | 8 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-5984.exp | 58 |
4 files changed, 71 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index 27d09d9..d40ec31 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -1,3 +1,7 @@ +Mon Nov 28 18:39:08 1994 Per Bothner <bothner@kalessin.cygnus.com> + + * pr-5984.ch, pr-5984.exp, Makefile.in: New test case. + Fri Sep 16 16:55:03 1994 Per Bothner (bothner@kalessin.cygnus.com) * pr-5646.ch, pr-5646-grt.ch, pr-5646.exp, Makefile.in: New testcase. diff --git a/gdb/testsuite/gdb.chill/Makefile.in b/gdb/testsuite/gdb.chill/Makefile.in index 5308e31..74eab01 100644 --- a/gdb/testsuite/gdb.chill/Makefile.in +++ b/gdb/testsuite/gdb.chill/Makefile.in @@ -103,7 +103,7 @@ GDBFLAGS = -nx #### host, target, and site specific Makefile frags come in here. EXECUTABLES = chillvars.exe result.exe \ - pr-4975.exe pr-5016.exe pr-5020.exe pr-5022.exe pr-5646.exe + pr-4975.exe pr-5016.exe pr-5020.exe pr-5022.exe pr-5646.exe pr-5984.exe # To force pr-4975-grt to be compiled before pr-4975, so the # latter can use the former's grant file. diff --git a/gdb/testsuite/gdb.chill/pr-5984.ch b/gdb/testsuite/gdb.chill/pr-5984.ch new file mode 100644 index 0000000..3e74a56 --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-5984.ch @@ -0,0 +1,8 @@ +x: module -- line 1 + p:proc (t char (20) varying); -- 2 + writetext(stdout, t); -- 3 + end p; -- 4 + -- 5 + p("Jason Dark.%/"); -- 6 + p("Hello World.%/"); -- 7 +end x; diff --git a/gdb/testsuite/gdb.chill/pr-5984.exp b/gdb/testsuite/gdb.chill/pr-5984.exp new file mode 100644 index 0000000..9ba7c57 --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-5984.exp @@ -0,0 +1,58 @@ +# Copyright (C) 1992 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 2 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, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +# This file was written by Per Bothner. (bothner@cygnus.com) + +if $tracelevel then { + strace $tracelevel +} + +proc do_tests {} { + global prms_id bug_id subdir objdir srcdir binfile prompt + + set prms_id 0 + set bug_id 0 + + # Start with a fresh gdb. + + gdb_exit + gdb_start + gdb_reinitialize_dir $srcdir/$subdir + gdb_load $objdir/$subdir/$binfile + + send "set language chill\n" ; + + send "break pr-5984.ch:6\n"; expect -re "$prompt $" + send "run\n"; expect -re "Breakpoint .*pr-5984.ch:6" + expect -re "$prompt $" + gdb_test "next" "Jason Dark" +} + +# 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. +# In either case, just notify the user and skip the tests in this file. + +set binfile "pr-5984.exe" +set srcfile $binfile.ch + +if ![file exists $objdir/$subdir/$binfile] then { + warning "$binfile does not exist; tests suppressed." +} else { + do_tests +} |