Add framework for SQLite data tests

src/MyWebLog/Maintenance.fs

@@ -395,7 +395,7 @@ module Backup =
     }
     
     /// Decide whether to restore a backup
-    let private restoreBackup fileName newUrlBase promptForOverwrite data = task {
+    let internal restoreBackup fileName newUrlBase promptForOverwrite data = task {
         
         let serializer = getSerializer false
         use stream     = new FileStream(fileName, FileMode.Open)

src/MyWebLog/MyWebLog.fsproj

@@ -42,4 +42,10 @@
     <None Include=".\wwwroot\upload\*" CopyToOutputDirectory="Always" />
   </ItemGroup>
 
+  <ItemGroup>
+    <AssemblyAttribute Include="System.Runtime.CompilerServices.InternalsVisibleToAttribute">
+      <_Parameter1>MyWebLog.Tests</_Parameter1>
+    </AssemblyAttribute>
+  </ItemGroup>
+
 </Project>