Posted to tcl by hypnotoad at Fri Oct 27 00:14:11 GMT 2017view raw

  1. basra:dns seandeelywoods$ tclsh dns.test
  2. - tcllib::testutils 1.2
  3. * dns 1.4.0
  4.  
  5.  
  6. ==== dns-1.2 uri::split dns://nameserver/www.example.org FAILED
  7. ==== Contents of test case:
  8.  
  9. if {![catch {uri::split $url} result]} {
  10. if {![catch {array set URL $result} result]} {
  11. set result [dictsort [array get URL]]
  12. }
  13. }
  14. set result
  15.  
  16. ---- Result was:
  17. invalid command name "GetHostPort"
  18. ---- Result should have been (exact matching):
  19. class {} nameserver nameserver port {} query www.example.org scheme dns type {}
  20. ==== dns-1.2 FAILED
  21.  
  22.  
  23.  
  24. ==== dns-1.3 uri::split dns://nameserver:53/www.example.org FAILED
  25. ==== Contents of test case:
  26.  
  27. if {![catch {uri::split $url} result]} {
  28. if {![catch {array set URL $result} result]} {
  29. set result [dictsort [array get URL]]
  30. }
  31. }
  32. set result
  33.  
  34. ---- Result was:
  35. invalid command name "GetHostPort"
  36. ---- Result should have been (exact matching):
  37. class {} nameserver nameserver port 53 query www.example.org scheme dns type {}
  38. ==== dns-1.3 FAILED
  39.  
  40. dns.test: Total 13 Passed 11 Skipped 0 Failed 2