mirror of
https://github.com/Smaug123/unofficial-nunit-runner
synced 2025-10-06 17:58:40 +00:00
52 lines
1.4 KiB
Forth
52 lines
1.4 KiB
Forth
namespace WoofWare.NUnitTestRunner
|
|
|
|
open System
|
|
open WoofWare.Myriad.Plugins
|
|
|
|
[<JsonParse>]
|
|
type internal FrameworkDescription =
|
|
{
|
|
Name : string
|
|
Version : string
|
|
}
|
|
|
|
[<JsonParse>]
|
|
type internal RuntimeOptions =
|
|
{
|
|
Tfm : string
|
|
Framework : FrameworkDescription option
|
|
Frameworks : FrameworkDescription list option
|
|
RollForward : string option
|
|
}
|
|
|
|
[<JsonParse>]
|
|
type internal RuntimeConfig =
|
|
{
|
|
RuntimeOptions : RuntimeOptions
|
|
}
|
|
|
|
[<RequireQualifiedAccess>]
|
|
type internal RollForward =
|
|
| Minor
|
|
| Major
|
|
| LatestPatch
|
|
| LatestMinor
|
|
| LatestMajor
|
|
| Disable
|
|
|
|
static member Parse (s : string) : RollForward =
|
|
if s.Equals ("minor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Minor
|
|
elif s.Equals ("major", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Major
|
|
elif s.Equals ("latestpatch", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestPatch
|
|
elif s.Equals ("latestminor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestMinor
|
|
elif s.Equals ("latestmajor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestMajor
|
|
elif s.Equals ("disable", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Disable
|
|
else
|
|
failwith $"Could not interpret '%s{s}' as a RollForward"
|