patrick/WoofWare.NUnitTestRunner
1
0
Fork 0
mirror of https://github.com/Smaug123/unofficial-nunit-runner synced 2025-10-10 19:38:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Allow escaping in the filter language (#39)

Browse Source
This commit is contained in:
Patrick Stevens
2024-06-08 10:17:00 +01:00
committed by GitHub
parent 4c2045c3ec
commit d3343dd7df
3 changed files with 95 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
TestRunner/TestRunner.Test/TestFilter.fs
View File

@@ -52,6 +52,9 @@ module TestFilter =
),
ParsedFilter.Equal (ParsedFilter.TestCategory, ParsedFilter.String "1")
)
"Name ~\"'hello" world^&foo|bar!><\"",
ParsedFilter.Contains (ParsedFilter.Name, ParsedFilter.String """'hello" world^&foo|bar!><""")
]
|> List.map TestCaseData
@@ -69,10 +72,18 @@ module TestFilter =
"FullyQualifiedName~xyz", Filter.FullyQualifiedName (Match.Contains "xyz")
"FullyQualifiedName!~IntegrationTests",
Filter.Not (Filter.FullyQualifiedName (Match.Contains "IntegrationTests"))
"FullyQualifiedName=MyNamespace.MyTestsClass<ParameterType1%2CParameterType2>.MyTestMethod",
Filter.FullyQualifiedName (
Match.Exact "MyNamespace.MyTestsClass<ParameterType1%2CParameterType2>.MyTestMethod"
)
// This example has been modified: it's in quotes and XML-escaped.
"FullyQualifiedName=\"MyNamespace.MyTestsClass&lt;ParameterType1&#37;2CParameterType2&gt;.MyTestMethod\"",
Filter.FullyQualifiedName (
Match.Exact "MyNamespace.MyTestsClass<ParameterType1%2CParameterType2>.MyTestMethod"
)
"Name~Method", Filter.Name (Match.Contains "Method")
"FullyQualifiedName!=MSTestNamespace.UnitTest1.TestMethod1",
Filter.Not (Filter.FullyQualifiedName (Match.Exact "MSTestNamespace.UnitTest1.TestMethod1"))
@@ -101,3 +112,14 @@ module TestFilter =
[<TestCaseSource(nameof docExamplesRefined)>]
let ``Doc examples, refined`` (example : string, expected : Filter) =
Filter.parse example |> shouldEqual expected
let xmlExamples =
[
"Name ~\"&apos;hello&quot; world^&amp;foo|bar!&gt;&lt;\"",
Filter.Name (Match.Contains """'hello" world^&foo|bar!><""")
]
|> List.map TestCaseData
[<TestCaseSource(nameof xmlExamples)>]
let ``XML examples`` (example : string, expected : Filter) =
Filter.parse example |> shouldEqual expected