* *.exp: Skip all tests silently if skip_chill_tests returns true.

	* misc.exp: Remove reference to non-existent variable passcount.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 32cbaa37b2d6f0d2076ba1278b1483c1dd16f7ca..def9ee49bea966596135ba3ac3530cd865acb9b6 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,9 @@
+Wed Mar  8 13:26:36 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+       * *.exp: Skip all tests silently if skip_chill_tests returns true.
+
+       * misc.exp: Remove reference to non-existent variable passcount.
+
 Tue Mar  7 19:30:05 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        * string.ch, string.exp, Makefile.in:  New test case.

diff --git a/gdb/testsuite/gdb.chill/callch.exp b/gdb/testsuite/gdb.chill/callch.exp
index 610af194313b067240934108161fad56a6319948..3f4541b5d7b07019c12881a659835120c02f5e01 100644 (file)
--- a/gdb/testsuite/gdb.chill/callch.exp
+++ b/gdb/testsuite/gdb.chill/callch.exp
@@ -61,6 +61,8 @@ proc do_tests {} {
 set binfile "callch.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/chexp.exp b/gdb/testsuite/gdb.chill/chexp.exp
index 6da127cd5d94b54862a683a85f461b16ededce45..0b4a77d731523ea7f2476d5b69067e8f0ae24279 100644 (file)
--- a/gdb/testsuite/gdb.chill/chexp.exp
+++ b/gdb/testsuite/gdb.chill/chexp.exp
@@ -428,6 +428,8 @@ proc test_arithmetic_expressions {} {
 
 # Start with a fresh gdb.
 
+if [skip_chill_tests] then { continue }
+
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir

diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp
index 05a9810506ed59eea30d238a86d96937ea72799a..78d9f01d6716dbd207b4b42e135e1320a453cf39 100644 (file)
--- a/gdb/testsuite/gdb.chill/chillvars.exp
+++ b/gdb/testsuite/gdb.chill/chillvars.exp
@@ -291,6 +291,8 @@ proc test_structs {} {
 set binfile "chillvars.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index a12bdb88e846bb8a98a4a6b616df495381d7e767..3a1386881d4b72cbdbd7389b2399835d870a752e 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -55,7 +55,8 @@ proc set_lang_chill {} {
 # Start with a fresh gdb.
 
 set binfile "misc.exe"
-global passcount
+
+if [skip_chill_tests] then { continue }
 
 gdb_exit
 gdb_start

diff --git a/gdb/testsuite/gdb.chill/pr-4975.exp b/gdb/testsuite/gdb.chill/pr-4975.exp
index cd11f34c153ee94e8f153a6d139cdef6d0faa781..00756eaeb4747d968ed52d54062b989870e1182d 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-4975.exp
+++ b/gdb/testsuite/gdb.chill/pr-4975.exp
@@ -51,6 +51,8 @@ proc do_tests {} {
 set binfile "pr-4975.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
        warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-5016.exp b/gdb/testsuite/gdb.chill/pr-5016.exp
index 0e4f83d28294f23009a8a346e3e9b037cd749d3c..612a16f6bda51b79c8b10ca9fbfc54cbe3a4e45f 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5016.exp
+++ b/gdb/testsuite/gdb.chill/pr-5016.exp
@@ -52,6 +52,8 @@ proc do_tests {} {
 set binfile "pr-5016.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-5020.exp b/gdb/testsuite/gdb.chill/pr-5020.exp
index 902bb059e8608c5980cad73ae5682e37d262f599..79a00fb738e51285d6769c6cdc60e466ab70f2b1 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5020.exp
+++ b/gdb/testsuite/gdb.chill/pr-5020.exp
@@ -79,6 +79,8 @@ proc test_pr_5020 {} {
 set binfile "pr-5020.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
        warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-5022.exp b/gdb/testsuite/gdb.chill/pr-5022.exp
index 9b777135402a2709486a68b05c26111b5d7d25cc..ce518c4415b9dea722d59907361f3e801b594083 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5022.exp
+++ b/gdb/testsuite/gdb.chill/pr-5022.exp
@@ -64,6 +64,8 @@ proc test_pr_5022 {} {
 set binfile "pr-5022.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-5646.exp b/gdb/testsuite/gdb.chill/pr-5646.exp
index e819110d719067e66028980b68e093c2d3b2d7ae..f4ee9ccb937bd0e2780ed0d14f08d5fd8fe87419 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5646.exp
+++ b/gdb/testsuite/gdb.chill/pr-5646.exp
@@ -50,6 +50,8 @@ proc do_tests {} {
 set binfile "pr-5646.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-5984.exp b/gdb/testsuite/gdb.chill/pr-5984.exp
index 9ba7c578e18a942ae7ee90dd87df20efcd46e8cc..e4aba5a73a57b30b8b33120d9defe5e3dc8ff216 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5984.exp
+++ b/gdb/testsuite/gdb.chill/pr-5984.exp
@@ -51,6 +51,8 @@ proc do_tests {} {
 set binfile "pr-5984.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/pr-6292.exp b/gdb/testsuite/gdb.chill/pr-6292.exp
index a01e08b23db52eb15481ab6a0c47e1f13d5cf0b6..2af77cee587fa53aba6c84ff4487de481d330b05 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-6292.exp
+++ b/gdb/testsuite/gdb.chill/pr-6292.exp
@@ -52,6 +52,8 @@ proc do_tests {} {
 set binfile "pr-6292.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/result.exp b/gdb/testsuite/gdb.chill/result.exp
index ba3f02461cbff657fa96891fb5d9efcfc1545510..c84e062e5b8c1af2e3d2246719942c7127090378 100644 (file)
--- a/gdb/testsuite/gdb.chill/result.exp
+++ b/gdb/testsuite/gdb.chill/result.exp
@@ -62,6 +62,8 @@ proc do_tests {} {
 set binfile "result.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
        warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp
index daf6ff9a2f0d3bf4c7058bb5497ad6508d860ad4..2c5ed5a05d4fa657f080cafc3c24f0b15ffac3b9 100644 (file)
--- a/gdb/testsuite/gdb.chill/string.exp
+++ b/gdb/testsuite/gdb.chill/string.exp
@@ -55,6 +55,8 @@ proc do_tests {} {
 set binfile "string.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {

diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 4f7803a8a90991477b8429434a521404328b562e..2251a049fbe4813951a34fc4eeff266c6e58b1ae 100644 (file)
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -117,6 +117,8 @@ proc do_tests {} {
 set binfile "tuples.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {