テスト実行後にプロファイラの結果を表示するように修正

moratori · Dec 27, 2021 · 5a30145 · 5a30145
1 parent 58214bb
commit 5a30145
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/run-all-tests.sh b/run-all-tests.sh
@@ -49,9 +49,13 @@ test_result=0
 case "${lisp_implementation}" in 
         "sbcl" ) $timeout -k 3 $test_duration_time \
                    $roswell -s sb-cover \
-                            -s clover-test  \
+                            -s clover-test \
+                            -e '(sb-sprof:start-profiling :mode :cpu)' \
                             -e '(1am:run)' \
-                            -e '(sb-cover:report (merge-pathnames #P"coverage/" (asdf:system-source-directory :clover)) :if-matches (lambda (f) (search "clover/src/" f)))'
+                            -e '(sb-sprof:stop-profiling) ' \
+                            -e '(sleep 2)' \
+                            -e '(sb-cover:report (merge-pathnames #P"coverage/" (asdf:system-source-directory :clover)) :if-matches (lambda (f) (search "clover/src/" f)))' \
+                            -e '(sb-sprof:report :type :flat :min-percent 3 :sort-order :descending)'
                  test_result=$?;;
         *      ) $timeout -k 3 $test_duration_time \
                    $roswell -s clover-test \