From 34410e95418fbd77a6632276893177b8632e9a03 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Wed, 8 Mar 1995 03:29:55 +0000 Subject: [PATCH] * string.ch, string.exp, Makefile.in: New test case. This is PR 5696. --- gdb/testsuite/gdb.chill/.Sanitize | 2 + gdb/testsuite/gdb.chill/ChangeLog | 4 ++ gdb/testsuite/gdb.chill/Makefile.in | 3 +- gdb/testsuite/gdb.chill/string.ch | 13 ++++++ gdb/testsuite/gdb.chill/string.exp | 62 +++++++++++++++++++++++++++++ 5 files changed, 83 insertions(+), 1 deletion(-) create mode 100644 gdb/testsuite/gdb.chill/string.ch create mode 100644 gdb/testsuite/gdb.chill/string.exp diff --git a/gdb/testsuite/gdb.chill/.Sanitize b/gdb/testsuite/gdb.chill/.Sanitize index f0de8f6cc03..1ac0a9d2516 100644 --- a/gdb/testsuite/gdb.chill/.Sanitize +++ b/gdb/testsuite/gdb.chill/.Sanitize @@ -48,6 +48,8 @@ pr-6292.ch pr-6292.exp result.ch result.exp +string.ch +string.exp tuples.ch tuples.exp diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index 9c725b01755..32cbaa37b2d 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -1,3 +1,7 @@ +Tue Mar 7 19:30:05 1995 Per Bothner + + * string.ch, string.exp, Makefile.in: New test case. + Mon Mar 6 14:11:01 1995 Per Bothner * tuples.ch (setnmode); New module. diff --git a/gdb/testsuite/gdb.chill/Makefile.in b/gdb/testsuite/gdb.chill/Makefile.in index 4ed891ebfe1..d6b0310db99 100644 --- a/gdb/testsuite/gdb.chill/Makefile.in +++ b/gdb/testsuite/gdb.chill/Makefile.in @@ -94,7 +94,8 @@ CHILL_LIB = ` \ #### host, target, and site specific Makefile frags come in here. -EXECUTABLES = callch.exe chillvars.exe misc.exe result.exe tuples.exe \ +EXECUTABLES = callch.exe chillvars.exe misc.exe \ + result.exe string.exe tuples.exe \ pr-4975.exe pr-5016.exe pr-5020.exe pr-5022.exe pr-5646.exe pr-5984.exe \ pr-6292.exe diff --git a/gdb/testsuite/gdb.chill/string.ch b/gdb/testsuite/gdb.chill/string.ch new file mode 100644 index 00000000000..3739c28d5c3 --- /dev/null +++ b/gdb/testsuite/gdb.chill/string.ch @@ -0,0 +1,13 @@ +ss: MODULE /* This is Cynus PR chill/5696. */ + +DCL s20 CHARS(20) VARYING; + +DCL s10 CHARS(10); + + +s20 := "Moser Wilfried"; +S10 := "1234567890"; + +WRITETEXT (stdout, "s20 := ""%C"", s10 := ""%C""%/", s20, s10); + +END ss; diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp new file mode 100644 index 00000000000..daf6ff9a2f0 --- /dev/null +++ b/gdb/testsuite/gdb.chill/string.exp @@ -0,0 +1,62 @@ +# Copyright (C) 1995 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 + +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" ; expect -re "$prompt $" + + # These tests based on Cygnus PR chill/5696. + runto string.ch:11 + test_print_accept "p s20" {"Moser Wilfried"} "print simple vstring" + test_print_accept "p s20(1)" {'o'} "print vstring element" + test_print_accept "p s20(1:3)" {"ose"} "print vstring slice (:)" + test_print_accept "p s20(2 up 3)" {"ser"} "print vstring slice (up)" + test_print_accept "p s10" {"1234567890"} "print simple string" + test_print_accept "p s10(1)" {'2'} "print string element" + test_print_accept "p s10(1:3)" {"234"} "print string slice (:)" + test_print_accept "p s10(2 up 3)" {"345"} "print string slice (up)" +} + +# 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 "string.exe" +set srcfile $binfile.ch + +if ![file exists $objdir/$subdir/$binfile] then { + warning "$binfile does not exist; tests suppressed." +} else { + do_tests +} -- 2.30.2