1 # $Id: tests.tcl,v 1.1 2001/11/08 14:22:21 adam Exp $
13 {/./../.././k.htm /k.htm}
14 {../../peter/k.htm /peter/k.htm}
18 set URL(t,hostport) http://bilbasen.tv2.dk
20 set href [lindex $testref 0]
21 puts -nonewline "testing href=$href "
22 RobotHref t href host path
23 if {[string compare $path [lindex $testref 1]]} {
40 {/./../.././k.htm /k.htm}
41 {../../peter/k.htm /peter/k.htm}
44 set URL(t,hostport) http://bilbasen.tv2.dk
45 set URL(t,path) /not_good.asp
46 set href [lindex $testref 0]
47 puts -nonewline "testing href=$href "
48 RobotHref t href host path
49 if {[string compare $path [lindex $testref 1]]} {
62 {../../peter/k.htm /peter/k.htm}
65 {/./../.././k.htm /k.htm}
67 set URL(t,hostport) http://bilbasen.tv2.dk
68 set URL(t,path) /pages/not_good.asp
69 set href [lindex $testref 0]
70 puts -nonewline "testing href=$href "
71 RobotHref t href host path
72 if {[string compare $path [lindex $testref 1]]} {
85 {../../peter/k.htm /peter/k.htm}
88 set URL(t,hostport) http://bilbasen.tv2.dk
89 set URL(t,path) /pages/
90 set href [lindex $testref 0]
91 puts -nonewline "testing href=$href "
92 RobotHref t href host path
93 if {[string compare $path [lindex $testref 1]]} {