gprofng: 30700 tmpdir/gp-collect-app_F test fails

Vladimir Mezentsev · Vladimir Mezentsev · commit e0282cf1284b · 2023-08-07T14:32:36.000-07:00
gprofng/ChangeLog
2023-08-03  Vladimir Mezentsev  &lt;vladimir.mezentsev@oracle.com&gt;

	PR gprofng/30700
	* testsuite/gprofng.display/gp-collect-app_F.exp: Fix -name argument
	for sub-experiment filtering.
diff --git a/gprofng/testsuite/gprofng.display/gp-collect-app_F.exp b/gprofng/testsuite/gprofng.display/gp-collect-app_F.exp
@@ -46,11 +46,11 @@ proc run_gp_collect_app { subExpCnt F_opt } {
     return -code break
   }
 
-  set output [run_native_host_cmd "find $tdir -name '*x1.er' | wc -l"]
+  set output [run_native_host_cmd "find $tdir -name '*_x?.er' | wc -l"]
   set subExp [lindex $output 1]
   if { $subExp != $subExpCnt } then {
     set out [lindex $output 1]
-    send_log "Test failed for -F $F_opt. subExp=$subExp. Shold be $subExpCnt\n"
+    send_log "Test failed for -F $F_opt. subExp=$subExp. Should be $subExpCnt\n"
     fail $tdir
     return -code break
   }

Original file line number	Diff line number	Diff line change
`@@ -46,11 +46,11 @@ proc run_gp_collect_app { subExpCnt F_opt } {`
`46`	`46`	`return -code break`
`47`	`47`	`}`
`48`	`48`
`49`		`- set output [run_native_host_cmd "find $tdir -name '*x1.er' \| wc -l"]`
	`49`	`+ set output [run_native_host_cmd "find $tdir -name '*_x?.er' \| wc -l"]`
`50`	`50`	`set subExp [lindex $output 1]`
`51`	`51`	`if { $subExp != $subExpCnt } then {`
`52`	`52`	`set out [lindex $output 1]`
`53`		`- send_log "Test failed for -F $F_opt. subExp=$subExp. Shold be $subExpCnt\n"`
	`53`	`+ send_log "Test failed for -F $F_opt. subExp=$subExp. Should be $subExpCnt\n"`
`54`	`54`	`fail $tdir`
`55`	`55`	`return -code break`
`56`	`56`	`}`