Switch to namespace from module for Sqlite

- Complete C# test migration
This commit is contained in:
Daniel J. Summers 2023-12-25 22:32:55 -05:00
parent 6ce619ac60
commit a6d179d401
4 changed files with 658 additions and 571 deletions

View File

@ -1,5 +1,4 @@
/// Document store implementation for SQLite namespace BitBadger.Documents.Sqlite
module BitBadger.Documents.Sqlite
open BitBadger.Documents open BitBadger.Documents
open Microsoft.Data.Sqlite open Microsoft.Data.Sqlite
@ -106,6 +105,9 @@ module Results =
ToCustomList<'TDoc>(cmd, fromData<'TDoc>) ToCustomList<'TDoc>(cmd, fromData<'TDoc>)
[<AutoOpen>]
module internal Helpers =
/// Execute a non-query command /// Execute a non-query command
let internal write (cmd: SqliteCommand) = backgroundTask { let internal write (cmd: SqliteCommand) = backgroundTask {
let! _ = cmd.ExecuteNonQueryAsync() let! _ = cmd.ExecuteNonQueryAsync()
@ -373,6 +375,10 @@ module Definition =
use conn = Configuration.dbConn () use conn = Configuration.dbConn ()
WithConn.Definition.ensureTable name conn WithConn.Definition.ensureTable name conn
/// Document insert/save functions
[<AutoOpen>]
module Document =
/// Insert a new document /// Insert a new document
[<CompiledName "Insert">] [<CompiledName "Insert">]
let insert<'TDoc> tableName (document: 'TDoc) = let insert<'TDoc> tableName (document: 'TDoc) =
@ -613,6 +619,7 @@ module Extensions =
open System.Runtime.CompilerServices open System.Runtime.CompilerServices
/// C# extensions on the SqliteConnection type /// C# extensions on the SqliteConnection type
[<Extension>]
type SqliteConnectionCSharpExtensions = type SqliteConnectionCSharpExtensions =
/// Execute a query that returns a list of results /// Execute a query that returns a list of results

File diff suppressed because it is too large Load Diff

View File

@ -3,7 +3,7 @@ namespace BitBadger.Documents.Tests;
using System; using System;
using System.IO; using System.IO;
using System.Threading.Tasks; using System.Threading.Tasks;
using static Sqlite; using Sqlite;
/// <summary> /// <summary>
/// A throwaway SQLite database file, which will be deleted when it goes out of scope /// A throwaway SQLite database file, which will be deleted when it goes out of scope

View File

@ -7,7 +7,7 @@ let allTests =
[ CommonTests.all [ CommonTests.all
CommonCSharpTests.Unit CommonCSharpTests.Unit
SqliteTests.all SqliteTests.all
testSequenced SqliteCSharpTests.Integration ] SqliteCSharpTests.All ]
[<EntryPoint>] [<EntryPoint>]
let main args = runTestsWithCLIArgs [] args allTests let main args = runTestsWithCLIArgs [] args allTests