From: Per Bothner <per@bothner.com>
Date: Mon, 6 Mar 1995 22:11:17 +0000 (+0000)
Subject:         * tuples.ch (setnmode);  New module.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3654c0672f3181c64f67a5b1b59dc9e6f048675f;p=binutils-gdb.git

    * tuples.ch (setnmode);  New module.
        * tuples.exp:  Add some extra tests.
These are from PR 5024.
---

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 548e4a84ea6..9c725b01755 100644
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,8 @@
+Mon Mar  6 14:11:01 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+	* tuples.ch (setnmode);  New module.
+	* tuples.exp:  Add some extra tests.
+
 Sat Mar  4 15:16:17 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
 	* callch.ch, callch.exp, Makefile.in:  New test case.
diff --git a/gdb/testsuite/gdb.chill/tuples.ch b/gdb/testsuite/gdb.chill/tuples.ch
index e1063f5cd1d..399773ae8b0 100644
--- a/gdb/testsuite/gdb.chill/tuples.ch
+++ b/gdb/testsuite/gdb.chill/tuples.ch
@@ -31,3 +31,26 @@ DCL i INT;
 i := 0;
 
 END x;
+
+setmode: MODULE /* This is from Cygnus PR chill/5024. */
+
+NEWMODE day = SET( monday, tuesday, wednesday, thursday, friday, saturday, sunday );
+NEWMODE dow = POWERSET day;
+
+DCL d day;
+DCL w dow;
+
+printdow: PROC( w dow );
+  DCL d day;
+  DO FOR d in w;
+    WRITETEXT( stdout, "%C ", d );
+  OD;
+END;
+
+d := monday;
+w := dow[monday : friday];
+printdow( w );
+
+printdow( dow[LOWER(dow) : UPPER(dow)] );
+
+END setmode;
diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 8d5bc2ab4b6..4f7803a8a90 100644
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -97,6 +97,17 @@ proc do_tests {} {
    send "set v_arrbool(3 : 5) := \[ true, true, false \]\n"
    expect -re "$prompt $"
    gdb_test_exact "print v_arrbool" {= [(1): FALSE, (2:4): TRUE, (5): FALSE]} "v_arrbool after slice assignment 2"
+
+
+#   These tests are from Cygnus PR chill/5024:
+    send "break printdow\n" ; expect -re "$prompt $"
+    send "continue\n" ; expect -re "$prompt $"
+    send "set var w:= dow\[monday\]\n" ; expect -re "$prompt $"
+    test_print_accept "print w" "\\\[monday\\\]" \
+	"print bitstring after assignment"
+    send "set var w:=\[\]\n" ; expect -re "$prompt $"
+    test_print_accept "print w" "\\\[\\\]" \
+	"print bitstring after assignment of \[\]"
 }
 
 # Check to see if we have an executable to test.  If not, then either we