bparodi/Pentole
1
Fork 0
Code Issues 2 Pull requests Packages Projects Releases Wiki Activity

burroarachidi

Browse source
This commit is contained in:
Francesco Mecca 2024-09-05 15:02:32 +02:00
parent f3754356a1
commit bb63df8a2d
3 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -1,6 +1,7 @@
test:
dotnet test
test_reports:
dotnet test --collect "XPlat Code Coverage" --results-directory /tmp/pentole_reports/
mv /tmp/pentole_reports/*/coverage.cobertura.xml coverage.cobertura.xml
reportgenerator -targetdir:coverlet/reports -reporttypes:HtmlInline_AzurePipelines -repots:coverage.cobertura.xml
mv /tmp/pentole_reports/*/coverage.cobertura.xml .
reportgenerator -targetdir:coverlet/reports -reporttypes:HtmlInline_AzurePipelines -reports:coverage.cobertura.xml

6
src/test_extensions.fs
View file

@ -9,6 +9,12 @@ type NUnit.Framework.Assert with
| Ok got -> Assert.That (got, Is.EqualTo(expected))
| Error e -> Assert.Fail $"Expected 'ok, got: {e}"
static member is_true (got: bool) =
Assert.That (got, Is.True)
static member is_false (got: bool) =
Assert.That (got, Is.False)
static member ok_is_true (r: Result<bool, 'a>) =
match r with
| Ok got -> Assert.That (got, Is.True)

4
tests/path_tests.fs
View file

@ -6,6 +6,10 @@ open Pentole.TestsExtensions
open Pentole.Path
open Pentole.Result
[<Test>]
let constructor_test () =
"/" |> Path.of_string |> Result.isOk |> Assert.is_true
'\000' |> string |> Path.of_string |> Result.isOk |> Assert.is_false
[<Test>]
let absolute_test () =
let is_absolute = function