Add a rooted test case

SteveGilham · Jan 12, 2021 · d6750aa · d6750aa
1 parent efc12ad
commit d6750aa
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Tests/Tests3.fs b/Tests/Tests3.fs
@@ -2952,6 +2952,10 @@ module AltCoverTests3 =
       test <@ subject.Execute() @>
       test <@ subject.InstrumentDirectory |> Directory.Exists |> not @>
 
+      subject.RelativeDir <- where
+      test <@ subject.Execute() @>
+      test <@ subject.InstrumentDirectory |> Directory.Exists |> not @>
+
       subject.RelativeDir <- relative
       test <@ subject.Execute() @>
       let target = Path.Combine(subject.InstrumentDirectory, relative, subject.FileName)