Initial commit
This commit is contained in:
Smaug123
28
AnkiStatic.Test/AnkiStatic.Test.fsproj
Normal file
28
AnkiStatic.Test/AnkiStatic.Test.fsproj
Normal file
@@ -0,0 +1,28 @@
|
||||
<Project Sdk="Microsoft.NET.Sdk">
|
||||
|
||||
<PropertyGroup>
|
||||
<TargetFramework>net7.0</TargetFramework>
|
||||
|
||||
<IsPackable>false</IsPackable>
|
||||
<IsTestProject>true</IsTestProject>
|
||||
</PropertyGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<Compile Include="LonghandExample.fs"/>
|
||||
<Compile Include="Tests.fs" />
|
||||
</ItemGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<PackageReference Include="FsUnit" Version="5.4.0"/>
|
||||
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.5.0"/>
|
||||
<PackageReference Include="NUnit" Version="3.13.3"/>
|
||||
<PackageReference Include="NUnit3TestAdapter" Version="4.4.2"/>
|
||||
<PackageReference Include="NUnit.Analyzers" Version="3.6.1"/>
|
||||
<PackageReference Include="coverlet.collector" Version="3.2.0"/>
|
||||
</ItemGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\AnkiStatic\AnkiStatic.fsproj"/>
|
||||
</ItemGroup>
|
||||
|
||||
</Project>
|
||||
274
AnkiStatic.Test/LonghandExample.fs
Normal file
274
AnkiStatic.Test/LonghandExample.fs
Normal file
@@ -0,0 +1,274 @@
|
||||
namespace AnkiStatic.Test
|
||||
|
||||
open System
|
||||
open System.Collections.Generic
|
||||
open System.IO
|
||||
open System.IO.Compression
|
||||
open AnkiStatic
|
||||
open NUnit.Framework
|
||||
|
||||
[<TestFixture>]
|
||||
module Example =
|
||||
|
||||
let incrementArr (arr : byte[]) =
|
||||
let rec go (pos : int) =
|
||||
let v = arr.[pos]
|
||||
|
||||
if v < 255uy then
|
||||
arr.[pos] <- v + 1uy
|
||||
else
|
||||
arr.[pos] <- 0uy
|
||||
|
||||
if pos = 0 then
|
||||
failwith "could not increment max guid"
|
||||
|
||||
go (pos - 1)
|
||||
|
||||
go (arr.Length - 1)
|
||||
|
||||
[<Test>]
|
||||
let example () =
|
||||
let frontField : SerialisedModelField =
|
||||
{
|
||||
Font = "Arial"
|
||||
Name = "Front"
|
||||
RightToLeft = false
|
||||
FontSize = 20
|
||||
Sticky = false
|
||||
}
|
||||
|
||||
let backField : SerialisedModelField =
|
||||
{
|
||||
Font = "Arial"
|
||||
Name = "Back"
|
||||
RightToLeft = false
|
||||
FontSize = 20
|
||||
Sticky = false
|
||||
}
|
||||
|
||||
let frontTemplate : SerialisedCardTemplate =
|
||||
{
|
||||
AnswerFormat = "{{FrontSide}}\n\n<hr id=answer>\n\n{{Back}}"
|
||||
BrowserAnswerFormat = ""
|
||||
BrowserQuestionFormat = ""
|
||||
Name = "Card 1"
|
||||
QuestionFormat = "{{Front}}"
|
||||
}
|
||||
|
||||
let backTemplate : SerialisedCardTemplate =
|
||||
{
|
||||
AnswerFormat = "{{FrontSide}}\n\n<hr id=answer>\n\n{{Front}}"
|
||||
BrowserAnswerFormat = ""
|
||||
BrowserQuestionFormat = ""
|
||||
Name = "Card 2"
|
||||
QuestionFormat = "{{Back}}"
|
||||
}
|
||||
|
||||
let deck =
|
||||
{
|
||||
Name = "Analysis"
|
||||
ExtendedReviewLimit = Some 50
|
||||
ExtendedNewCardLimit = Some 10
|
||||
Collapsed = false
|
||||
BrowserCollapsed = false
|
||||
Description = ""
|
||||
}
|
||||
|
||||
let basicAndReverseModel : SerialisedModel =
|
||||
{
|
||||
Css =
|
||||
".card {\n font-family: arial;\n font-size: 20px;\n text-align: center;\n color: black;\n background-color: white;\n}\n"
|
||||
AdditionalFields = [ backField ]
|
||||
LatexPost = "\end{document}"
|
||||
LatexPre =
|
||||
"\\documentclass[12pt]{article}\n\\special{papersize=3in,5in}\n\\usepackage[utf8]{inputenc}\n\\usepackage{amssymb,amsmath}\n\\pagestyle{empty}\n\\setlength{\\parindent}{0in}\n\\begin{document}\n"
|
||||
Name = "Basic (and reversed card)"
|
||||
SortField = frontField
|
||||
Templates = [ frontTemplate ; backTemplate ]
|
||||
Type = ModelType.Standard
|
||||
Deck = deck
|
||||
}
|
||||
|
||||
let textField : SerialisedModelField =
|
||||
{
|
||||
Font = "Arial"
|
||||
Name = "Text"
|
||||
RightToLeft = false
|
||||
FontSize = 20
|
||||
Sticky = false
|
||||
}
|
||||
|
||||
let extraField : SerialisedModelField =
|
||||
{
|
||||
Font = "Arial"
|
||||
Name = "Extra"
|
||||
RightToLeft = false
|
||||
FontSize = 20
|
||||
Sticky = false
|
||||
}
|
||||
|
||||
let clozeTemplate : SerialisedCardTemplate =
|
||||
{
|
||||
AnswerFormat = "{{cloze:Text}}<br>\n{{Extra}}"
|
||||
BrowserAnswerFormat = ""
|
||||
BrowserQuestionFormat = ""
|
||||
Name = "Cloze"
|
||||
QuestionFormat = "{{cloze:Text}}"
|
||||
}
|
||||
|
||||
let clozeModel : SerialisedModel =
|
||||
{
|
||||
Css =
|
||||
".card {\n font-family: arial;\n font-size: 20px;\n text-align: center;\n color: black;\n background-color: white;\n}\n\n.cloze {\n font-weight: bold;\n color: blue;\n}"
|
||||
AdditionalFields = [ extraField ]
|
||||
LatexPost = "\end{document}"
|
||||
LatexPre =
|
||||
"\\documentclass[12pt]{article}\n\\special{papersize=3in,5in}\n\\usepackage[utf8]{inputenc}\n\\usepackage{amssymb,amsmath}\n\\pagestyle{empty}\n\\setlength{\\parindent}{0in}\n\\begin{document}\n"
|
||||
Name = "Cloze"
|
||||
SortField = textField
|
||||
Templates = [ clozeTemplate ]
|
||||
Type = ModelType.Cloze
|
||||
Deck = deck
|
||||
}
|
||||
|
||||
let example : SerialisedCollection =
|
||||
{
|
||||
CreationDate = DateTimeOffset (2023, 09, 06, 17, 03, 00, TimeSpan.FromHours 1.0)
|
||||
Configuration =
|
||||
{
|
||||
NewSpread = NewCardDistribution.Distribute
|
||||
CollapseTime = 1200
|
||||
TimeLimit = TimeSpan.Zero
|
||||
EstimateTimes = true
|
||||
ShowDueCounts = true
|
||||
SortBackwards = false
|
||||
}
|
||||
DefaultDeck = deck
|
||||
NonDefaultDecks = Map.empty
|
||||
DefaultDeckConfiguration =
|
||||
{
|
||||
AutoPlay = true
|
||||
Lapse =
|
||||
{
|
||||
Delays = [ 10 ]
|
||||
LeechAction = LeechAction.Suspend
|
||||
LeechFails = 8
|
||||
MinInterval = 1
|
||||
Multiplier = 0
|
||||
}
|
||||
Name = "Default"
|
||||
New =
|
||||
{
|
||||
Delays = [ 1 ; 10 ]
|
||||
InitialEase = 2500<ease>
|
||||
Intervals =
|
||||
{
|
||||
Good = 1
|
||||
Easy = 4
|
||||
Unused = 7
|
||||
}
|
||||
Order = NewCardOrder.Random
|
||||
MaxNewPerDay = 20
|
||||
}
|
||||
ReplayQuestionAudioWithAnswer = true
|
||||
Review =
|
||||
{
|
||||
EasinessPerEasyReview = 1.3
|
||||
Fuzz = 0.05
|
||||
IntervalFactor = 1
|
||||
MaxInterval = TimeSpan.FromDays 365.0
|
||||
PerDay = 100
|
||||
}
|
||||
ShowTimer = false
|
||||
MaxTimerTimeout = TimeSpan.FromSeconds 60.0
|
||||
}
|
||||
NonDefaultDeckConfiguration = Map.empty
|
||||
Tags = "{}"
|
||||
DefaultModel = DateTimeOffset.FromUnixTimeMilliseconds 1373473028445L, basicAndReverseModel
|
||||
NonDefaultModels =
|
||||
[ DateTimeOffset.FromUnixTimeMilliseconds 1373473028440L, clozeModel ]
|
||||
|> Map.ofList
|
||||
}
|
||||
|
||||
let collection = SerialisedCollection.toSqlite example
|
||||
|
||||
let notes : SerialisedNote list =
|
||||
[
|
||||
{
|
||||
Model = basicAndReverseModel
|
||||
Tags = []
|
||||
ValueOfSortField = "Definition of the logistic function"
|
||||
ValuesOfAdditionalFields = [ @"\(g(z) = \frac{1}{1+e^{-z}}\)" ]
|
||||
CreationDate = DateTimeOffset (2023, 09, 06, 19, 30, 00, TimeSpan.FromHours 1.0)
|
||||
}
|
||||
{
|
||||
Model = clozeModel
|
||||
Tags = []
|
||||
ValueOfSortField =
|
||||
"The four perspectives of Ithkuil are {{c1::monadic}}, {{c2::unbounded}}, {{c3::nomic}}, {{c4::abstract}}."
|
||||
ValuesOfAdditionalFields = [ "" ]
|
||||
CreationDate = DateTimeOffset (2023, 09, 06, 19, 30, 00, TimeSpan.FromHours 1.0)
|
||||
}
|
||||
]
|
||||
|
||||
let renderedNotes, lookupNote =
|
||||
let dict = Dictionary ()
|
||||
|
||||
let rng = Random 1
|
||||
let buffer = BitConverter.GetBytes (uint64 0)
|
||||
|
||||
let result =
|
||||
notes
|
||||
|> List.mapi (fun i note ->
|
||||
rng.NextBytes buffer
|
||||
let guid = BitConverter.ToUInt64 (buffer, 0)
|
||||
dict.Add (note, i)
|
||||
SerialisedNote.ToNote guid collection.ModelsInverse note
|
||||
)
|
||||
|
||||
let lookupNote (note : SerialisedNote) : int =
|
||||
match dict.TryGetValue note with
|
||||
| true, v -> v
|
||||
| false, _ ->
|
||||
failwith
|
||||
$"A card declared that it was associated with a note, but that note was not inserted.\nDesired: %+A{note}\nAvailable:\n%+A{dict}"
|
||||
|
||||
result, lookupNote
|
||||
|
||||
let file = Path.GetTempFileName () |> FileInfo
|
||||
|
||||
task {
|
||||
let! package = Sqlite.createEmptyPackage file
|
||||
|
||||
let! written = collection.Collection |> Sqlite.createDecks package
|
||||
|
||||
let! noteIds = Sqlite.createNotes written renderedNotes
|
||||
|
||||
let _, _, cards =
|
||||
((0, 0, []), notes)
|
||||
||> List.fold (fun (count, iter, cards) note ->
|
||||
let built =
|
||||
SerialisedNote.buildCards count deck 1000<ease> Interval.Unset note
|
||||
|> List.map (Card.translate (fun note -> noteIds.[lookupNote note]) collection.DecksInverse)
|
||||
|
||||
built.Length + count, iter + 1, built @ cards
|
||||
)
|
||||
|
||||
do! Sqlite.createCards written cards
|
||||
|
||||
let outputFile =
|
||||
Path.GetTempFileName ()
|
||||
|> fun f -> Path.ChangeExtension (f, ".apkg")
|
||||
|> FileInfo
|
||||
|
||||
use outputStream = outputFile.OpenWrite ()
|
||||
use archive = new ZipArchive (outputStream, ZipArchiveMode.Create, true)
|
||||
|
||||
let entry = archive.CreateEntry "collection.anki2"
|
||||
use entryStream = entry.Open ()
|
||||
use contents = file.OpenRead ()
|
||||
do! contents.CopyToAsync entryStream
|
||||
|
||||
Console.WriteLine $"Written: %s{outputFile.FullName}"
|
||||
return ()
|
||||
}
|
||||
29
AnkiStatic.Test/Tests.fs
Normal file
29
AnkiStatic.Test/Tests.fs
Normal file
@@ -0,0 +1,29 @@
|
||||
namespace AnkiStatic.Test
|
||||
|
||||
open System
|
||||
open AnkiStatic
|
||||
open FsUnitTyped
|
||||
open NUnit.Framework
|
||||
open System.Text
|
||||
open System.Security.Cryptography
|
||||
|
||||
[<TestFixture>]
|
||||
module Tests =
|
||||
|
||||
[<TestCase("A continuous function on a closed bounded interval is bounded and attains its bounds.", 375454972u)>]
|
||||
let ``Checksum matches`` (str : string, expected : uint32) =
|
||||
let data : Note<unit> =
|
||||
{
|
||||
Guid = 0uL
|
||||
ModelId = ()
|
||||
LastModified = DateTimeOffset.UnixEpoch
|
||||
UpdateSequenceNumber = 0
|
||||
Tags = []
|
||||
Fields = [ str ]
|
||||
SortField = Choice2Of2 0
|
||||
Flags = 0
|
||||
Data = ""
|
||||
}
|
||||
|
||||
// Obtained from reading an example in the wild
|
||||
data.Checksum |> shouldEqual expected
|
||||
Reference in New Issue
Block a user