open System
open IpCheck.Domain

let assertTrue message condition = if not condition then failwith message

[<EntryPoint>]
let main _ =
    let valid = Target.create "192.168.1.10" None [ Ping; TcpPort("ssh", 22us) ] (TimeSpan.FromSeconds 60.0)
    let invalidAddress = Target.create "not-an-ip" None [ Ping ] (TimeSpan.FromSeconds 60.0)
    let invalidInterval = Target.create "127.0.0.1" None [ Ping ] (TimeSpan.FromSeconds 5.0)
    assertTrue "Корректный адрес должен создавать цель" (Result.isOk valid)
    assertTrue "Некорректный адрес должен отклоняться" (Result.isError invalidAddress)
    assertTrue "Слишком короткий интервал должен отклоняться" (Result.isError invalidInterval)
    printfn "Все доменные тесты пройдены"
    0