* Makefile.in: Add .exp.check rule.

	* callch.ch:  Add missing "%." to format strings.
	* callch.exp:  Fix argument to gdb_load.
	* chexp.exp:  Add specific error messages to test_print_reject calls.
	* misc.exp:  Add a test for PR 8496.
	* pr-6632.exp, pr-8136.exp:  Link executables from two .o files.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index f9aff3805156de739a36ee013126af22fd7e751a..7c009b34fc0d89e3924053ac916998134d7a4b82 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,12 @@
+Wed Nov 29 19:28:13 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * Makefile.in:  Add .exp.check rule.
+       * callch.ch:  Add missing "%." to format strings.
+       * callch.exp:  Fix argument to gdb_load.
+       * chexp.exp:  Add specific error messages to test_print_reject calls.
+       * misc.exp:  Add a test for PR 8496.
+       * pr-6632.exp, pr-8136.exp:  Link executables from two .o files.
+
 Sat Nov 25 20:49:27 1995  Fred Fish  <fnf@phydeaux.cygnus.com>
 
        * pr-5016.exp: xfail "whatis i" for alpha-osf-dec-osf2*, same as linux.

diff --git a/gdb/testsuite/gdb.chill/Makefile.in b/gdb/testsuite/gdb.chill/Makefile.in
index 8270d0fd13b3492c0d23447c4b8df3ce0e5aa334..f8c0dc6792a820f02d0464e8febc73ab1e26bb38 100644 (file)
--- a/gdb/testsuite/gdb.chill/Makefile.in
+++ b/gdb/testsuite/gdb.chill/Makefile.in
@@ -1,4 +1,5 @@
 srcdir = @srcdir@
+VPATH = @srcdir@
 
 PROGS = 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 \
@@ -9,6 +10,16 @@ all:
 
 #### host, target, and site specific Makefile frags come in here.
 
+.SUFFIXES: .ch .o .exe .exp .check
+
+# Do 'make chillvars.check' to run just the chillvars.{ch,exp} test.
+
+.exp.check:
+       rootme=`pwd`/; export rootme; \
+       cd .. ; \
+       $(MAKE) just-check RUNTESTFLAGS="${RUNTESTFLAGS} $*.exp" \
+         EXPECT=${EXPECT}
+
 clean mostlyclean:
        -rm -f *.o $OBJS} ${PROGS} *~ core 
 

diff --git a/gdb/testsuite/gdb.chill/callch.ch b/gdb/testsuite/gdb.chill/callch.ch
index 3c48bb29e8bf3f20c9c9413c306de652e683a420..6001d92443b67bf0d3dae152c60e0f9b17758b95 100644 (file)
--- a/gdb/testsuite/gdb.chill/callch.ch
+++ b/gdb/testsuite/gdb.chill/callch.ch
@@ -22,14 +22,14 @@ king : proc (p otto loc, x otto in);
   p := [[h'ff,h'ff],[h'ff,h'ff]];
   do for i:= lower(bool) to upper(bool);
     do for j:= lower(bool) to upper(bool);
-      writetext(stdout, "x(%C, %C) = %C.%/", i, j, x(i, j));
-      writetext(stdout, "p(%C, %C) = %C.%/", i, j, p(i, j));
+      writetext(stdout, "x(%C, %C) = %C%..%/", i, j, x(i, j));
+      writetext(stdout, "p(%C, %C) = %C%..%/", i, j, p(i, j));
     od;
   od;
 end king;
 
 ralph : proc (x str1 in);
-  writetext(stdout, "x.f1 = %C, x.f2 = %C.%/", x.f1, x.f2);
+  writetext(stdout, "x.f1 = %C, x.f2 = %C%..%/", x.f1, x.f2);
 end ralph;
 
 whitney : proc (x str2 in);
@@ -37,7 +37,7 @@ whitney : proc (x str2 in);
 
   do for i:= lower(bool) to upper(bool);
     do for j:= lower(bool) to upper(bool);
-      writetext(stdout, "x.f1(%C, %C) = %C.%/", i, j, x.f1(i, j));
+      writetext(stdout, "x.f1(%C, %C) = %C%..%/", i, j, x.f1(i, j));
      od;
   od;
 

diff --git a/gdb/testsuite/gdb.chill/callch.exp b/gdb/testsuite/gdb.chill/callch.exp
index 158fb91c98bff5d0b595103c89e4b607bfc9b201..36d4f1175faae3e7a5c862e972850fca4336de0b 100644 (file)
--- a/gdb/testsuite/gdb.chill/callch.exp
+++ b/gdb/testsuite/gdb.chill/callch.exp
@@ -44,7 +44,7 @@ proc do_tests {} {
     gdb_exit
     gdb_start
     gdb_reinitialize_dir $srcdir/$subdir
-    gdb_load $objdir/$subdir/$binfile
+    gdb_load $binfile
 
     send "set language chill\n" ; 
 

diff --git a/gdb/testsuite/gdb.chill/chexp.exp b/gdb/testsuite/gdb.chill/chexp.exp
index b3c00c5d213f0e9a7993b7f3a72ee2ef91a6b5d5..39a83fd3480fda524bb45e32b2bf9bea770e3ba8 100644 (file)
--- a/gdb/testsuite/gdb.chill/chexp.exp
+++ b/gdb/testsuite/gdb.chill/chexp.exp
@@ -162,18 +162,18 @@ proc test_integer_literals_rejected {} {
 
     # Test various binary values.
 
-    test_print_reject "p B'2" 
-    test_print_reject "p B'12" 
+    test_print_reject "p B'2" "Too-large digit in bitstring or integer."
+    test_print_reject "p B'12"  "Too-large digit in bitstring or integer."
 
     # Test various octal values.
 
-    test_print_reject "p O'9" 
-    test_print_reject "p O'79" 
+    test_print_reject "p O'9"  "Too-large digit in bitstring or integer."
+    test_print_reject "p O'79"  "Too-large digit in bitstring or integer."
 
     # Test various hexadecimal values.
 
-    test_print_reject "p H'G" 
-    test_print_reject "p H'AG" 
+    test_print_reject "p H'G" "Invalid character in bitstring or integer."
+    test_print_reject "p H'AG" "Invalid character in bitstring or integer."
 }
 
 proc test_boolean_literals_accepted {} {

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index 306b061089e62a5b2bb3d458157141aa04b83181..94be69c39a15b3323fd102a341a4833eec6a00cf 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -77,6 +77,9 @@ if ![set_lang_chill] then {
     gdb_test "print OTto" " = 42"
     gdb_test "print NULL" " = NULL" "print emptiness literal"
 
+    # This tests PR 8496.
+    gdb_test {printf "%d %d.\n",  3+4,2} "7 2." "printf with 2 arguments"
+
     # Linux thinks this is at line 6, but is otherwise ok.
     setup_xfail "i*86-*-linux*"
     gdb_test "info line" \

diff --git a/gdb/testsuite/gdb.chill/pr-6632.exp b/gdb/testsuite/gdb.chill/pr-6632.exp
index 5b2c7f6610471aaccdbeb425b286b174f9b050ac..51650f5efb0660282a3df7f8821ab4259a382499 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-6632.exp
+++ b/gdb/testsuite/gdb.chill/pr-6632.exp
@@ -28,7 +28,8 @@ if [skip_chill_tests] then { continue }
 
 set testfile2 "pr-6632-grt"
 set srcfile2 ${srcdir}/$subdir/${testfile2}.ch
-if  { [compile "${srcfile2} -g -c"] != "" } {
+set objfile2 ${objdir}/$subdir/${testfile2}.o
+if  { [compile "${srcfile2} -g -c -o ${objfile2}"] != "" } {
     perror "Couldn't compile ${srcfile2}"
     return -1
 }
@@ -36,7 +37,7 @@ if  { [compile "${srcfile2} -g -c"] != "" } {
 set testfile "pr-6632"
 set srcfile ${srcdir}/$subdir/${testfile}.ch
 set binfile ${objdir}/${subdir}/${testfile}.exe
-if  { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
+if  { [compile "${srcfile} ${objfile2} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
     perror "Couldn't compile ${srcfile}"
     return -1
 }

diff --git a/gdb/testsuite/gdb.chill/pr-8136.exp b/gdb/testsuite/gdb.chill/pr-8136.exp
index 29f99a98e5d9a05b62332cf6c3c746ddd5cb413f..133144fe89e89ef40ab6abe08489d993272bab7f 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-8136.exp
+++ b/gdb/testsuite/gdb.chill/pr-8136.exp
@@ -27,7 +27,8 @@ if [skip_chill_tests] then { continue }
 
 set testfile2 "func1"
 set srcfile2 ${srcdir}/$subdir/${testfile2}.ch
-if  { [compile "${srcfile2} -g -c"] != "" } {
+set objfile2 ${objdir}/$subdir/${testfile2}.o
+if  { [compile "${srcfile2} -g -c -o ${objfile2}"] != "" } {
     perror "Couldn't compile ${srcfile2}"
     return -1
 }
@@ -35,7 +36,7 @@ if  { [compile "${srcfile2} -g -c"] != "" } {
 set testfile "pr-8136"
 set srcfile ${srcdir}/$subdir/pr-8136.ch
 set binfile ${objdir}/${subdir}/${testfile}.exe
-if  { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
+if  { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
     perror "Couldn't compile ${srcfile}"
     return -1
 }