Mercurial and Git clients can push and pull from this alias URL to interact with this repository. You can change to which repository an alias points by going to the Aliases link on the project page.
modulebabybearparser.TestingopenFParsecopenMicrosoft.VisualStudio.TestTools.UnitTestingopenSystemopenbabybearparser.Parserletequalsactualexpected=Assert.IsTrue((actual=expected),String.Format("{0} <> {1}",actual,expected))letthrowsParseError(f:unit->unit)contains=tryf();Assert.Fail("throws: no exception thrown of type ParseError")with|ParseError(x)->Assert.IsTrue(x.Contains(contains),String.Format("{0} does not contain {1}",x,contains))[<TestClass>]typepublicTests()=(* Tests that testing works *)[<TestMethod>]memberthis.TestsWorking()=equals11[<TestMethod>]memberthis.TestsKeywords()=equals(parse"foo bar")[KeywordAtom<|Word"foo";KeywordAtom<|Word"bar"][<TestMethod>]memberthis.TestsEmpty()=equals(List.length<|parse"")0[<TestMethod>]memberthis.TestsPhrase()=equals(parse"\"foo \\\" bar\"")[KeywordAtom<|Phrase"foo \" bar"][<TestMethod>]memberthis.TestsPhraseAndKeyword()=equals(parse"\"foo bar\" boo")[KeywordAtom<|Phrase"foo bar";KeywordAtom<|Word"boo"][<TestMethod>]memberthis.TestsFilter()=equals(parse"\"foo bar\" project:boo")[KeywordAtom<|Phrase"foo bar";FilterAtom<|Project"boo"][<TestMethod>]memberthis.TestsFilters()=equals(parse"\"foo bar\" project:boo repo:radley")[KeywordAtom<|Phrase"foo bar";FilterAtom<|Project"boo";FilterAtom<|Repo"radley"][<TestMethod>]memberthis.TestsFilterPhrase()=equals(parse"\"foo bar\" project:\"boo radley\"")[KeywordAtom<|Phrase"foo bar";FilterAtom<|Project"boo radley"][<TestMethod>]memberthis.TestsEmptyFilter()=equals(parse"\"foo bar\" project:\"\"")[KeywordAtom<|Phrase"foo bar";FilterAtom<|Project""][<TestMethod>]memberthis.TestsConfusingFilter()=equals(parse":taft:")[KeywordAtom<|Word":taft:"][<TestMethod>]memberthis.TestsMissingFilter()=letf()=parse"\"foo bar\" project:"|>ignorethrowsParseErrorf"filter argument" [<TestMethod>]
member this.TestsUnknownFilter() =
equals (parse "unknown:careless") [KeywordAtom <| Word "unknown:careless"]
++ [<TestMethod>]+ member this.TestsDateRange() =+ equals (parse "date:yesterday..today") [(DateTime.UtcNow.Date.AddDays(-1.), DateTime.UtcNow.Date) |> Date |> FilterAtom]++ [<TestMethod>]+ member this.TestsDateRange2() =+ equals (parse "date:yesterday..2008-05-01") [(DateTime.UtcNow.Date.AddDays(-1.), DateTime.Parse("2008-05-01")) |> Date |> FilterAtom]++ [<TestMethod>]+ member this.TestsDateRangeMissingEnd() =+ equals (parse "date:yesterday.. eggs") [(DateTime.UtcNow.Date.AddDays(-1.), DateTime.UtcNow.Date) |> Date |> FilterAtom; KeywordAtom <| Word "eggs"]++ [<TestMethod>]+ member this.TestsDateRangeMissingStart() =+ equals (parse "date:..today eggs") [(DateTime.MinValue, DateTime.UtcNow.Date) |> Date |> FilterAtom; KeywordAtom <| Word "eggs"]++ [<TestMethod>]+ member this.TestsDateRangeMissingEverything() =+ equals (parse "date:.. eggs") [(DateTime.MinValue, DateTime.UtcNow.Date) |> Date |> FilterAtom; KeywordAtom <| Word "eggs"]++ [<TestMethod>]+ member this.TestsInvalidDate() =+ let f () = parse "date:\"many moons ago\"..today eggs" |> ignore+ throwsParseError f "Unrecognized date"
Attach a Trello Card
Add a tag
Your session has expired
You are no longer logged in. Please log in and try your request again.
Filter RSS Feed
This RSS feed URL allows you to see the contents of your current filter using any feed reader.
This link includes a special authentication token. If you share the URL with anyone else, they can see this RSS feed's activity. You can disable these tokens when needed.
Your current filter is unsaved; changing it won't affect this RSS feed.