Do not fail the build if the WorldBank api is offline

fsprojects · Mar 5, 2023 · f1115e3 · f1115e3
1 parent 8e98436
commit f1115e3
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/tests/FSharp.Data.Tests/WorldBankProvider.fs b/tests/FSharp.Data.Tests/WorldBankProvider.fs
@@ -1,4 +1,4 @@
-module FSharp.Data.Tests.WorldBankProvider
+module FSharp.Data.Tests.WorldBankProvider
 
 open System
 open System.Net
@@ -13,7 +13,14 @@ let data = WorldBankData.GetDataContext()
 
 [<Test>]
 let ``Should not throw exception for missing year in indicator``() =
-    data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.[1900] |> should equal Double.NaN
-    data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.[2012] |> should not' (equal Double.NaN)
-    data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.TryGetValueAt 1900 |> should equal None
-    data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.TryGetValueAt 2012 |> should not' (equal None)
+    try
+        data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.[1900] |> should equal Double.NaN
+        data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.[2012] |> should not' (equal Double.NaN)
+        data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.TryGetValueAt 1900 |> should equal None
+        data.Countries.``United Kingdom``.Indicators.``GNI growth (annual %)``.TryGetValueAt 2012 |> should not' (equal None)
+    with ex
+        when ex.ToString().Contains("The server has encountered an error which prevents it from fulfilling your request. Please contact the system administrator")
+        || ex.ToString().Contains("Timeout exceeded while getting response")
+        || ex.ToString().Contains("504 Gateway Time-out") ->
+            Assert.Inconclusive($"Worldbank api is having issues: {ex}")
+