Tests for add above and add below (#97)

ionide · Oct 25, 2017 · 8f16859 · 8f16859
1 parent a2280dc
commit 8f16859
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/tests/Forge.Tests/Tests.fs b/tests/Forge.Tests/Tests.fs
@@ -157,6 +157,22 @@ let tests =
         let files = pf'.SourceFiles.AllFiles()
         Expect.equal (files |> Seq.head) "App.config" "should be same"
         files |> Expect.hasLength 3
+
+      testCase "parse - add above" <| fun _ ->
+        let pf = FsProject.parse astInput
+        let f = {SourceFile.Include = "above.fs"; Condition = None; OnBuild = BuildAction.Compile; Link = None; Copy = None; Paket = None}
+        let pf' = FsProject.addAbove "FixProject.fs" f pf
+        let files = pf'.SourceFiles.AllFiles()
+        Expect.equal (files |> Seq.head) "above.fs" "should be same"
+        pf'.SourceFiles.AllFiles() |> Expect.hasLength 4
+
+      testCase "parse - add below" <| fun _ ->
+        let pf = FsProject.parse astInput
+        let f = {SourceFile.Include = "below.fs"; Condition = None; OnBuild = BuildAction.Compile; Link = None; Copy = None; Paket = None}
+        let pf' = FsProject.addBelow "FixProject.fs" f pf
+        let files = pf'.SourceFiles.AllFiles()
+        Expect.equal (files |> Seq.item 1) "below.fs" "should be same"
+        pf'.SourceFiles.AllFiles() |> Expect.hasLength 4
     ]
 
     testList "SolutionSystem" [

diff --git a/tests/TestCoverage.md b/tests/TestCoverage.md
@@ -16,8 +16,8 @@
 * [x] Parse - remove non-existing reference
 * [x] Parse - move up
 * [x] Parse - move down
-* [ ] Parse - add above (?)
-* [ ] Parse - add below (?)
+* [x] Parse - add above (?)
+* [x] Parse - add below (?)
 * [ ] Parse - add dir
 * [ ] Parse - remove dir
 * [x] Parse - rename file