File 6391-gh-Purge-all-common_test-test-logs-and-add... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 6391-gh-Purge-all-common_test-test-logs-and-add-some-debu.patch of Package erlang (Revision f663696ed814cd9e073edce69f588c34)

Currently displaying revision f663696ed814cd9e073edce69f588c34 , Show latest

From ebf3b3bcf1473b89d52fab91754ef488fac969ee Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Thu, 6 Jul 2023 10:13:04 +0200
Subject: [PATCH] gh: Purge all common_test test logs and add some debug info

---
 .github/scripts/sync-github-prs.es | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/.github/scripts/sync-github-prs.es b/.github/scripts/sync-github-prs.es
index 70cacd7ca9..b501376d8a 100755
--- a/.github/scripts/sync-github-prs.es
+++ b/.github/scripts/sync-github-prs.es
@@ -9,6 +9,10 @@
 -mode(compile).
 
 main([Repo, Target]) ->
+
+    io:format("Updating PRs in ~ts, current PRs are: ~p~n",
+              [Target, filelib:wildcard(filename:join(Target,"*"))]),
+
     AllOpenPrs = ghapi("gh api --paginate -X GET /repos/"++Repo++"/pulls -f state=open"),
     %% Download all updates, there really should not be any to download as they
     %% are updated when a PR is updated, but we do it anyways just to be safe.
@@ -165,7 +169,9 @@ purge_suite(SuiteFilePath) ->
 %% github actions will not work them. So we purge the largest files until we
 %% reach the 10 GB limit.
 purge_prs(Target) ->
-    Files = string:split(cmd("find " ++ Target ++ " -type f -exec du -a {} \+"),"\n",all),
+    %% Start by deleting all data from common_test test runs as they are huge.
+    os:cmd("rm -rf "++Target++"*/ct_logs/ct_run*/*common_test_test*/run*/log_private/ct_run*"),
+    Files = string:split(cmd("find " ++ Target ++ " -type f -a -name \! suite.log.html -exec du -a {} \+"),"\n",all),
     SortedFiles =
         lists:sort(fun([A|_]=As,[B|_]=Bs) ->
                                binary_to_integer(A) >= binary_to_integer(B)
@@ -173,7 +179,8 @@ purge_prs(Target) ->
     purge_prs(SortedFiles, Target, get_directory_size(Target)).
 purge_prs(Files, Target, Size) when Size > 10_000_000_000 ->
     {H,T} = lists:split(10, Files),
-    [file:write_file(File, "Large file truncated by github") || [_Sz, File] <- H],
+    [file:write_file(File, io_lib:format("Large file (~p bytes) truncated", [Sz]))
+     || [Sz, File] <- H],
     purge_prs(T, Target, get_directory_size(Target));
 purge_prs(_, _, _) ->
     ok.
-- 
2.35.3

Places

File 6391-gh-Purge-all-common_test-test-logs-and-add-some-debu.patch of Package erlang (Revision f663696ed814cd9e073edce69f588c34)

Places