Kiln » babybearparser
Clone URL:  
Pushed to one repository · View In Graph Contained in tip

Testing dates!

Changeset 3fa00e44c464…

Parent 2d328d5a9b48…

by Profile picture of User 138Hao Lian <hao@fogcreek.com>

Changes to one file · Browse files at 3fa00e44c464 Showing diff from parent 2d328d5a9b48 Diff from another changeset...

Change 1 of 1 Show Entire File babybearparser/​Testing.fs Stacked
 
64
65
66
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
@@ -64,3 +64,28 @@
  [<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"