Add profiling result

lefessan · Jan 23, 2025 · f988e82 · f988e82
1 parent f3fe0da
commit f988e82
Showing 1 changed file with 38 additions and 0 deletions.
diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at
@@ -15411,6 +15411,44 @@ LK-OFFSET: 0000000020
 LK-OFFSET: 0000000021
 ])
 
+AT_CHECK([COB_PROF_ENABLE=1 COB_PROF_FORMAT="%m,%s,%p,%e,%w,%k,%n" COB_PROF_FILE="prof.csv" $COBCRUN_DIRECT ./prog],
+[0],[LK-OFFSET: 0000000001
+LK-OFFSET: 0000000002
+LK-OFFSET: 0000000003
+LK-OFFSET: 0000000004
+LK-OFFSET: 0000000005
+LK-OFFSET: 0000000006
+LK-OFFSET: 0000000007
+LK-OFFSET: 0000000008
+LK-OFFSET: 0000000009
+LK-OFFSET: 0000000010
+LK-OFFSET: 0000000011
+LK-OFFSET: 0000000012
+LK-OFFSET: 0000000013
+LK-OFFSET: 0000000014
+LK-OFFSET: 0000000015
+LK-OFFSET: 0000000016
+LK-OFFSET: 0000000017
+LK-OFFSET: 0000000018
+LK-OFFSET: 0000000019
+LK-OFFSET: 0000000020
+LK-OFFSET: 0000000021
+],
+[File prof.csv generated
+])
+
+AT_CHECK([cat prof.csv], [0], [program-id,section,paragraph,entry,location,kind,ncalls
+TestRecurse,,,,prog.cob:28,PROGRAM,21
+TestRecurse,MAIN SECTION,,,prog.cob:29,SECTION,21
+TestRecurse,MAIN SECTION,MAIN PARAGRAPH,,prog.cob:29,PARAGRAPH,21
+TestRecurse,MAIN SECTION,MAIN PARAGRAPH,TestRecurse,prog.cob:37,CALL,15
+PROG,,,,prog.cob:10,PROGRAM,1
+PROG,MAIN SECTION,,,prog.cob:11,SECTION,1
+PROG,MAIN SECTION,MAIN PARAGRAPH,,prog.cob:11,PARAGRAPH,1
+PROG,MAIN SECTION,MAIN PARAGRAPH,TestRecurse,prog.cob:13,CALL,6
+], [])
+
+
 AT_CLEANUP