Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:24
erlang
6391-gh-Purge-all-common_test-test-logs-and-add...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 6391-gh-Purge-all-common_test-test-logs-and-add-some-debu.patch of Package erlang
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor