[gdb/testsuite] Run read1 timeout tests with with_read1_timeout_factor

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.cp / nested-types.exp

diff --git a/gdb/testsuite/gdb.cp/nested-types.exp b/gdb/testsuite/gdb.cp/nested-types.exp
index 9b2f569631cafd4b5b82638f2e3eb87702e223b5..f0c9922d0e8535a235d3621ca4f05695bfdd73c4 100644 (file)
--- a/gdb/testsuite/gdb.cp/nested-types.exp
+++ b/gdb/testsuite/gdb.cp/nested-types.exp
@@ -278,13 +278,20 @@ proc test_nested_limit {limit log} {
     node_result result 10 $limit {} 0 $log
 
     if {!$log} {
+       if {$limit < 0 || $limit >= 8 } {
+           set read1_timeout_factor 10
+       } else {
+           set read1_timeout_factor 1
+       }
        # The only output we check for is the contents of the struct,
        # ignoring the leading "type = struct S10 {" and trailing "}" of
        # the outermost node.
        set result [lindex $result 0]
        lassign $result type access key name children
-       cp_test_ptype_class $name "ptype $name (limit = $limit)" $key \
-           $name $children
+       with_read1_timeout_factor $read1_timeout_factor {
+           cp_test_ptype_class $name "ptype $name (limit = $limit)" $key \
+               $name $children
+       }
     }
 }