Renamed ExtensionCore to ExtensionQueries (a module that should only contain queries related to extensions).
This commit is contained in:
parent
5e35f07568
commit
f0b2b92c43
|
@ -19,7 +19,7 @@
|
||||||
|
|
||||||
namespace LogicalHacking.ExtensionDsLab.Archive
|
namespace LogicalHacking.ExtensionDsLab.Archive
|
||||||
|
|
||||||
module ExtensionCore =
|
module ExtensionQueries =
|
||||||
open DbConnector
|
open DbConnector
|
||||||
|
|
||||||
let getDownloads (ctx:ExtensionDbType) extid =
|
let getDownloads (ctx:ExtensionDbType) extid =
|
|
@ -17,7 +17,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<Compile Include="DbConnector.fs" />
|
<Compile Include="DbConnector.fs" />
|
||||||
<Compile Include="ExtensionCore.fs" />
|
<Compile Include="ExtensionQueries.fs" />
|
||||||
<None Include="Script.fsx" />
|
<None Include="Script.fsx" />
|
||||||
<None Include="ExtensionsDsLab.fsx" />
|
<None Include="ExtensionsDsLab.fsx" />
|
||||||
<None Include="paket.references" />
|
<None Include="paket.references" />
|
||||||
|
|
|
@ -22,7 +22,7 @@
|
||||||
|
|
||||||
open LogicalHacking.ExtensionDsLab
|
open LogicalHacking.ExtensionDsLab
|
||||||
open LogicalHacking.ExtensionDsLab.Archive.DbConnector
|
open LogicalHacking.ExtensionDsLab.Archive.DbConnector
|
||||||
open LogicalHacking.ExtensionDsLab.Archive.ExtensionCore
|
open LogicalHacking.ExtensionDsLab.Archive.ExtensionQueries
|
||||||
|
|
||||||
open Deedle
|
open Deedle
|
||||||
open FSharp.Data
|
open FSharp.Data
|
||||||
|
|
|
@ -9,7 +9,7 @@ open System.Configuration
|
||||||
|
|
||||||
open LogicalHacking.ExtensionDsLab
|
open LogicalHacking.ExtensionDsLab
|
||||||
open LogicalHacking.ExtensionDsLab.Archive.DbConnector
|
open LogicalHacking.ExtensionDsLab.Archive.DbConnector
|
||||||
open LogicalHacking.ExtensionDsLab.Archive.ExtensionCore
|
open LogicalHacking.ExtensionDsLab.Archive.ExtensionQueries
|
||||||
|
|
||||||
|
|
||||||
module Tests =
|
module Tests =
|
||||||
|
@ -51,4 +51,4 @@ module Tests =
|
||||||
let (time, result) = measureExecutionTime (fun () -> (getDownloads ctx "lkllajgbhondgjjnhmmgbjndmogapinp"))
|
let (time, result) = measureExecutionTime (fun () -> (getDownloads ctx "lkllajgbhondgjjnhmmgbjndmogapinp"))
|
||||||
Expect.isLessThan time 1500 "Query should take less than 1500ms"
|
Expect.isLessThan time 1500 "Query should take less than 1500ms"
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue