* Makefile.in: Bunch of fixes so it actually works in this

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / pr-5020.exp

diff --git a/gdb/testsuite/gdb.chill/pr-5020.exp b/gdb/testsuite/gdb.chill/pr-5020.exp
index df72aea7b73d2e43fde2d0f76243358f7c130338..902bb059e8608c5980cad73ae5682e37d262f599 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5020.exp
+++ b/gdb/testsuite/gdb.chill/pr-5020.exp
@@ -54,17 +54,21 @@ proc test_pr_5020 {} {
     global prompt
     runto dummy_pr_5020
     gdb_test_exact "print y" \
-       {= [ ('a') [.l: 10, .b: TRUE], ('b') [.l: 111, .b: FALSE]]}
+       {= [('a'): [.l: 10, .b: TRUE], ('b'): [.l: 111, .b: FALSE]]}
+    gdb_test_exact "print boolarr" \
+       {= [(FALSE): [.l: 10, .b: TRUE], (TRUE): [.l: 111, .b: FALSE]]}
+    gdb_test_exact "print intarr" \
+       {= [(10): [.l: 10, .b: TRUE], (11): [.l: 111, .b: FALSE]]}
+    gdb_test_exact "print setarr" \
+       {= [(aa): [.l: 10, .b: TRUE], (bb): [.l: 111, .b: FALSE]]}
     send "set print pretty\n" ; expect -re "$prompt $"
     gdb_test_exact "print y" \
-{= [
-  (`a`) [
-    .l: 10, 
-    .b: TRUE
-  ], 
-  ('b') [
-    .l: 111, 
-    .b: FALSE
+{= [('a'): [\r
+    .l: 10, \r
+    .b: TRUE\r
+  ], ('b'): [\r
+    .l: 111, \r
+    .b: FALSE\r
   ]]} "print y pretty"
 }
 
@@ -72,13 +76,11 @@ proc test_pr_5020 {} {
 # 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 "chillvars"
+set binfile "pr-5020.exe"
 set srcfile $binfile.ch
 
 if ![file exists $objdir/$subdir/$binfile] then {
-    if $all_flag then {
-       warning "$binfile does not exist; tests suppressed."
-    }
+       warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {
     do_tests
 }