add test for fsprojects#82

mexx · Jan 1, 2016 · fd334fb · fd334fb
1 parent 2fceb86
commit fd334fb
Show file tree

Hide file tree

Showing 2 changed files with 37 additions and 1 deletion.
diff --git a/tests/FSharp.Configuration.Tests/Lists.yaml b/tests/FSharp.Configuration.Tests/Lists.yaml
@@ -39,4 +39,14 @@ Archive:
     ConnectionString: Server=localhost;Database=message_archive;Uid=xmpp;Pwd=password
   - Type: mssql
     Writeonly: false
-    ConnectionString: Data Source=server1;Initial Catalog=message_archive;Integrated Security=SSPI;
+    ConnectionString: Data Source=server1;Initial Catalog=message_archive;Integrated Security=SSPI;
+
+Fix82:
+  id: "myApp"
+  constraints:
+    -
+      - "attribute"
+      - "OPERATOR"
+      - "value"
+  labels:
+    environment: "staging"
diff --git a/tests/FSharp.Configuration.Tests/YamlProvider.Tests.fs b/tests/FSharp.Configuration.Tests/YamlProvider.Tests.fs
@@ -280,6 +280,32 @@ items:
     settings.items.[2].descrip |> should equal "High Heeled \"Ruby\" Slippers"
     settings.items.[2].quantity |> should equal 1
 
+[<Test>]
+let ``Can load nested lists``() =
+    let settings = Lists()
+    settings.LoadText """
+Fix82:
+  id: "myApp"
+  constraints:
+    -
+      - "attribute"
+      - "OPERATOR"
+      - "value"
+    -
+      - "field"
+      - "OP"
+  labels:
+    environment: "staging"
+"""
+    settings.Fix82.constraints.Count |> should equal 2
+    settings.Fix82.constraints.[0].Count |> should equal 3
+    settings.Fix82.constraints.[0].[0] |> should equal "attribute"
+    settings.Fix82.constraints.[0].[1] |> should equal "OPERATOR"
+    settings.Fix82.constraints.[0].[2] |> should equal "value"
+    settings.Fix82.constraints.[1].Count |> should equal 2
+    settings.Fix82.constraints.[1].[0] |> should equal "field"
+    settings.Fix82.constraints.[1].[1] |> should equal "OP"
+
 [<Ignore>]
 [<Test>]
 let ``Check that list defaults are OK``() =