darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-26 13:30:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* pr-8742.ch, pr-8742.exp: New test case.

Browse Source
This commit is contained in:
Per Bothner 1996-01-12 01:35:30 +00:00
parent 1c486a2ba5
commit 3c69d5fe52
4 changed files with 97 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gdb/testsuite/gdb.chill/.Sanitize
View File

@ -61,6 +61,8 @@ pr-8136.ch
pr-8136.exp pr-8136.exp
pr-8405.ch pr-8405.ch
pr-8405.exp pr-8405.exp
pr-8742.ch
pr-8742.exp
result.ch result.ch
result.exp result.exp
string.ch string.ch

4
gdb/testsuite/gdb.chill/ChangeLog
View File

@ -1,3 +1,7 @@
Thu Jan 11 17:34:01 1996 Per Bothner <bothner@kalessin.cygnus.com>
* pr-8742.ch, pr-8742.exp: New test case.
Tue Jan 9 04:47:27 1996 Wilfried Moser (Alcatel) <moser@rtl.cygnus.com> Tue Jan 9 04:47:27 1996 Wilfried Moser (Alcatel) <moser@rtl.cygnus.com>
* misc.ch, misc.exp: Enhance test case. * misc.ch, misc.exp: Enhance test case.

32
gdb/testsuite/gdb.chill/pr-8742.ch Normal file
View File

@ -0,0 +1,32 @@
hugo : module
synmode a = range(1:10);
synmode p = powerset a;
synmode s = set (sa, sb, sc);
synmode s_ps = powerset s;
x: proc (ps p);
dcl i a;
do for i in ps;
writetext (stdout, "%C ", i);
od;
writetext(stdout, "%/");
end x;
y : proc (ps s_ps);
dcl i s;
do for i in ps;
writetext (stdout, "%C ", i);
od;
writetext(stdout, "%/");
end y;
dummy: proc ();
end dummy;
x([1,2,3]);
y([sa, sc]);
dummy ();
end hugo;

59
gdb/testsuite/gdb.chill/pr-8742.exp Normal file
View File

@ -0,0 +1,59 @@
# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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
}
if [skip_chill_tests] then { continue }
set testfile "pr-8742"
set srcfile ${srcdir}/$subdir/${testfile}.ch
set binfile ${objdir}/${subdir}/${testfile}.exe
if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
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 $binfile
send "set language chill\n" ; expect -re "$prompt $"
runto dummy
gdb_test {call x(p [1, 3, 5])} "1 3 5 " "pass int powerset tuple"
gdb_test {call y(s_ps [sc])} "sc " "pass set powerset tuple"
gdb_test {call x([1, 3, 5])} "1 3 5 " "pass modeless int powerset tuple"
gdb_test {call y([sc])} "sc " "pass modeless set powerset tuple"
}
do_tests