From 8cac35ff8916f5c5a83b9288a6604e72a29c297d Mon Sep 17 00:00:00 2001
From: realmarv <zahratehraninasab@gmail.com>
Date: Tue, 14 Mar 2023 12:46:08 +0330
Subject: [PATCH] scripts/detectNotUsingGitPush1by1: add

---
 scripts/detectNotUsingGitPush1by1.fsx | 73 +++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 scripts/detectNotUsingGitPush1by1.fsx

diff --git a/scripts/detectNotUsingGitPush1by1.fsx b/scripts/detectNotUsingGitPush1by1.fsx
new file mode 100644
index 00000000..4d0627c3
--- /dev/null
+++ b/scripts/detectNotUsingGitPush1by1.fsx
@@ -0,0 +1,73 @@
+#!/usr/bin/env -S dotnet fsi
+
+open System
+open System.Net.Http
+open System.Net.Http.Headers
+
+#r "nuget: Fsdk, Version=0.6.0--date20230214-0422.git-1ea6f62"
+
+let gitRepo = Environment.GetEnvironmentVariable "GITHUB_REPOSITORY"
+
+if gitRepo = null then
+    failwith "You shouldn't use this script outside CI."
+
+let currentBranch =
+    Fsdk
+        .Process
+        .Execute(
+            {
+                Command = "git"
+                Arguments = "rev-parse --abbrev-ref HEAD"
+            },
+            Fsdk.Process.Echo.Off
+        )
+        .UnwrapDefault()
+        .Trim()
+
+let prCommits =
+    Fsdk
+        .Process
+        .Execute(
+            {
+                Command = "git"
+                Arguments =
+                    sprintf "rev-list %s~..%s" currentBranch currentBranch
+            },
+            Fsdk.Process.Echo.Off
+        )
+        .UnwrapDefault()
+        .Trim()
+        .Split "\n"
+    |> Seq.tail
+
+let notUsingGitPush1by1 =
+    prCommits
+    |> Seq.map(fun commit ->
+        use client: HttpClient = new HttpClient()
+        client.DefaultRequestHeaders.Accept.Clear()
+
+        client.DefaultRequestHeaders.Accept.Add(
+            MediaTypeWithQualityHeaderValue "application/vnd.github+json"
+        )
+
+        client.DefaultRequestHeaders.Add("User-Agent", ".NET App")
+        client.DefaultRequestHeaders.Add("X-GitHub-Api-Version", "2022-11-28")
+
+        let url =
+            sprintf
+                "https://api.github.com/repos/%s/commits/%s/check-suites"
+                gitRepo
+                commit
+
+        let json = client.GetStringAsync(url).Result
+
+        json.Contains "\"check_suites\":[]"
+    )
+    |> Seq.contains true
+
+if notUsingGitPush1by1 then
+    failwith(
+        "Please push the commits one by one.\n"
+        + "You may use this script:\n"
+        + "https://github.com/nblockchain/fsx/blob/master/Tools/gitPush1by1.fsx"
+    )