Я пытаюсь сделать тест для этой функции let extract_one_rule (rule:Rule.t<'a,'b>) =
let rec expand = function
|PAlt (a,b) -> expand a @ expand b
|PSeq (a,b) -> let wrap = List.map (fu
Мой код автоматически проверяет значения от -99 до 99 при использовании FsCheck. Check.Quick test
где моя тестовая функция принимает целые значения. Я хотел бы проверить, используя значения от 1 до
Я пытаюсь работать с примером FsCheck прямо сейчас для типа с дискриминационными объединениями, чтобы установить лучшие практики для нашего более крупного проекта. Прямо сейчас я получаю null от своег
module BirthdayLibrary =
type Birthday =
{ day :int
month :int }
module DataGen =
let birthdayGenerator (months:option<list<int>>) =
let monthGen = match months with