svoid test_EnglishDateParser() {
  new EnglishDateParser parser;
  parser.assumeFuture = true; // maybe not needed
  testFunctionValues(s -> parser.parse((S) s), mapToParams(test_EnglishDateParser_examples()));
}

static Map<S, SomeDate> test_EnglishDateParser_examples() {
  delegate Day to DateStructures.
  delegate Month to DateStructures.
  delegate Year to DateStructures.
  delegate CurrentWeekPlus to DateStructures.
  delegate Weekday to DateStructures.
  delegate TodayPlus to DateStructures.

  ret litorderedmap(
    "2020/5/13" := new Day(13, new Month(5, new Year(2020))),
    "tuesday" := new Weekday(3, null),
    "next tuesday" := new Weekday(3, new CurrentWeekPlus(1)),
    "in 5 days" := new TodayPlus(5),
    "10 days from now" := new TodayPlus(10),
    "February" := new Month(2),
    "February 2020" := new Month(2, new Year(2020)),
    "March 4th" := new Day(4, new Month(3)),
  );
}