@@ -52,21 +52,25 @@ hero (id: "1000") {
5252 result.Data.Value.Hero.Value.AppearsIn |> equals [| Episode.NewHope; Episode.Empire; Episode.Jedi |]
5353 let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map ( fun e -> e.Node)
5454 friends.Length |> equals 4
55- let friend0 = friends[ 0 ]
56- friend0.IsHuman() |> equals true
57- friend0.AsHuman() .Name |> equals ( Some " Han Solo" )
58- let friend1 = friends[ 1 ]
59- friend1.IsHuman() |> equals true
60- friend1.AsHuman() .Name |> equals ( Some " Leia Organa" )
61- friend1.AsHuman() .HomePlanet |> equals ( Some " Alderaan" )
62- let friend2 = friends[ 2 ]
63- friend2.IsDroid() |> equals true
64- friend2.AsDroid() .Name |> equals ( Some " C-3PO" )
65- friend2.AsDroid() .PrimaryFunction |> equals ( Some " Protocol" )
66- let friend3 = friends[ 3 ]
67- friend3.IsDroid() |> equals true
68- friend3.AsDroid() .Name |> equals ( Some " R2-D2" )
69- friend3.AsDroid() .PrimaryFunction |> equals ( Some " Astromech" )
55+ do
56+ let friend0 = friends[ 0 ]
57+ friend0.IsHuman() |> equals true
58+ friend0.AsHuman() .Name |> equals ( Some " Han Solo" )
59+ do
60+ let friend1 = friends[ 1 ]
61+ friend1.IsHuman() |> equals true
62+ friend1.AsHuman() .Name |> equals ( Some " Leia Organa" )
63+ friend1.AsHuman() .HomePlanet |> equals ( Some " Alderaan" )
64+ do
65+ let friend2 = friends[ 2 ]
66+ friend2.IsDroid() |> equals true
67+ friend2.AsDroid() .Name |> equals ( Some " C-3PO" )
68+ friend2.AsDroid() .PrimaryFunction |> equals ( Some " Protocol" )
69+ do
70+ let friend3 = friends[ 3 ]
71+ friend3.IsDroid() |> equals true
72+ friend3.AsDroid() .Name |> equals ( Some " R2-D2" )
73+ friend3.AsDroid() .PrimaryFunction |> equals ( Some " Astromech" )
7074 result.Data.Value.Hero.Value.HomePlanet |> equals ( Some " Tatooine" )
7175 let actual = normalize <| sprintf " %A " result.Data
7276 let expected = normalize <| """ Some
@@ -184,21 +188,25 @@ module FileOperation =
184188 result.Data.Value.Hero.Value.AppearsIn |> equals [| Episode.NewHope; Episode.Empire; Episode.Jedi |]
185189 let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map _. Node
186190 friends.Length |> equals 4
187- let friend0 = friends[ 0 ]
188- friend0.IsHuman() |> equals true
189- friend0.AsHuman() .Name |> equals ( Some " Han Solo" )
190- let friend1 = friends[ 1 ]
191- friend1.IsHuman() |> equals true
192- friend1.AsHuman() .Name |> equals ( Some " Leia Organa" )
193- friend1.AsHuman() .HomePlanet |> equals ( Some " Alderaan" )
194- let friend2 = friends[ 2 ]
195- friend2.IsDroid() |> equals true
196- friend2.AsDroid() .Name |> equals ( Some " C-3PO" )
197- friend2.AsDroid() .PrimaryFunction |> equals ( Some " Protocol" )
198- let friend3 = friends[ 3 ]
199- friend3.IsDroid() |> equals true
200- friend3.AsDroid() .Name |> equals ( Some " R2-D2" )
201- friend3.AsDroid() .PrimaryFunction |> equals ( Some " Astromech" )
191+ do
192+ let friend0 = friends[ 0 ]
193+ friend0.IsHuman() |> equals true
194+ friend0.AsHuman() .Name |> equals ( Some " Han Solo" )
195+ do
196+ let friend1 = friends[ 1 ]
197+ friend1.IsHuman() |> equals true
198+ friend1.AsHuman() .Name |> equals ( Some " Leia Organa" )
199+ friend1.AsHuman() .HomePlanet |> equals ( Some " Alderaan" )
200+ do
201+ let friend2 = friends[ 2 ]
202+ friend2.IsDroid() |> equals true
203+ friend2.AsDroid() .Name |> equals ( Some " C-3PO" )
204+ friend2.AsDroid() .PrimaryFunction |> equals ( Some " Protocol" )
205+ do
206+ let friend3 = friends[ 3 ]
207+ friend3.IsDroid() |> equals true
208+ friend3.AsDroid() .Name |> equals ( Some " R2-D2" )
209+ friend3.AsDroid() .PrimaryFunction |> equals ( Some " Astromech" )
202210 result.Data.Value.Hero.Value.HomePlanet |> equals ( Some " Tatooine" )
203211 let actual = normalize <| sprintf " %A " result.Data
204212 let expected = normalize <| """ Some
0 commit comments