Refactor repeated friends index access in remote provider tests

Agent-Logs-Url: https://github.com/fsprojects/FSharp.Data.GraphQL/sessions/79103f2d-049f-4772-91c8-b1fc8f9d2000

Co-authored-by: xperiandri <2365592+xperiandri@users.noreply.github.com>

Author: Copilot

tests/FSharp.Data.GraphQL.IntegrationTests/SwapiRemoteProviderTests.fs

@@ -52,17 +52,21 @@ hero (id: "1000") {
         result.Data.Value.Hero.Value.AppearsIn |> equals [| Episode.NewHope; Episode.Empire; Episode.Jedi |]
         let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map (fun e -> e.Node)
         friends.Length |> equals 4
-        friends[0].IsHuman() |> equals true
-        friends[0].AsHuman().Name |> equals (Some "Han Solo")
-        friends[1].IsHuman() |> equals true
-        friends[1].AsHuman().Name |> equals (Some "Leia Organa")
-        friends[1].AsHuman().HomePlanet |> equals (Some "Alderaan")
-        friends[2].IsDroid() |> equals true
-        friends[2].AsDroid().Name |> equals (Some "C-3PO")
-        friends[2].AsDroid().PrimaryFunction |> equals (Some "Protocol")
-        friends[3].IsDroid() |> equals true
-        friends[3].AsDroid().Name |> equals (Some "R2-D2")
-        friends[3].AsDroid().PrimaryFunction |> equals (Some "Astromech")
+        let friend0 = friends[0]
+        friend0.IsHuman() |> equals true
+        friend0.AsHuman().Name |> equals (Some "Han Solo")
+        let friend1 = friends[1]
+        friend1.IsHuman() |> equals true
+        friend1.AsHuman().Name |> equals (Some "Leia Organa")
+        friend1.AsHuman().HomePlanet |> equals (Some "Alderaan")
+        let friend2 = friends[2]
+        friend2.IsDroid() |> equals true
+        friend2.AsDroid().Name |> equals (Some "C-3PO")
+        friend2.AsDroid().PrimaryFunction |> equals (Some "Protocol")
+        let friend3 = friends[3]
+        friend3.IsDroid() |> equals true
+        friend3.AsDroid().Name |> equals (Some "R2-D2")
+        friend3.AsDroid().PrimaryFunction |> equals (Some "Astromech")
         result.Data.Value.Hero.Value.HomePlanet |> equals (Some "Tatooine")
         let actual = normalize <| sprintf "%A" result.Data
         let expected = normalize <| """Some
@@ -180,17 +184,21 @@ module FileOperation =
         result.Data.Value.Hero.Value.AppearsIn |> equals [| Episode.NewHope; Episode.Empire; Episode.Jedi |]
         let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map _.Node
         friends.Length |> equals 4
-        friends[0].IsHuman() |> equals true
-        friends[0].AsHuman().Name |> equals (Some "Han Solo")
-        friends[1].IsHuman() |> equals true
-        friends[1].AsHuman().Name |> equals (Some "Leia Organa")
-        friends[1].AsHuman().HomePlanet |> equals (Some "Alderaan")
-        friends[2].IsDroid() |> equals true
-        friends[2].AsDroid().Name |> equals (Some "C-3PO")
-        friends[2].AsDroid().PrimaryFunction |> equals (Some "Protocol")
-        friends[3].IsDroid() |> equals true
-        friends[3].AsDroid().Name |> equals (Some "R2-D2")
-        friends[3].AsDroid().PrimaryFunction |> equals (Some "Astromech")
+        let friend0 = friends[0]
+        friend0.IsHuman() |> equals true
+        friend0.AsHuman().Name |> equals (Some "Han Solo")
+        let friend1 = friends[1]
+        friend1.IsHuman() |> equals true
+        friend1.AsHuman().Name |> equals (Some "Leia Organa")
+        friend1.AsHuman().HomePlanet |> equals (Some "Alderaan")
+        let friend2 = friends[2]
+        friend2.IsDroid() |> equals true
+        friend2.AsDroid().Name |> equals (Some "C-3PO")
+        friend2.AsDroid().PrimaryFunction |> equals (Some "Protocol")
+        let friend3 = friends[3]
+        friend3.IsDroid() |> equals true
+        friend3.AsDroid().Name |> equals (Some "R2-D2")
+        friend3.AsDroid().PrimaryFunction |> equals (Some "Astromech")
         result.Data.Value.Hero.Value.HomePlanet |> equals (Some "Tatooine")
         let actual = normalize <| sprintf "%A" result.Data
         let expected = normalize <| """Some