16 lines
869 B
Forth
16 lines
869 B
Forth
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
|