Posted to tcl by hypnotoad at Fri Oct 27 00:14:11 GMT 2017view raw
- basra:dns seandeelywoods$ tclsh dns.test
- - tcllib::testutils 1.2
- * dns 1.4.0
- ==== dns-1.2 uri::split dns://nameserver/www.example.org FAILED
- ==== Contents of test case:
- if {![catch {uri::split $url} result]} {
- if {![catch {array set URL $result} result]} {
- set result [dictsort [array get URL]]
- }
- }
- set result
- ---- Result was:
- invalid command name "GetHostPort"
- ---- Result should have been (exact matching):
- class {} nameserver nameserver port {} query www.example.org scheme dns type {}
- ==== dns-1.2 FAILED
- ==== dns-1.3 uri::split dns://nameserver:53/www.example.org FAILED
- ==== Contents of test case:
- if {![catch {uri::split $url} result]} {
- if {![catch {array set URL $result} result]} {
- set result [dictsort [array get URL]]
- }
- }
- set result
- ---- Result was:
- invalid command name "GetHostPort"
- ---- Result should have been (exact matching):
- class {} nameserver nameserver port 53 query www.example.org scheme dns type {}
- ==== dns-1.3 FAILED
- dns.test: Total 13 Passed 11 Skipped 0 Failed 2