Artifact
6e486ca1118e5f4678fcdb1072d9f3242dead48b:
Attachment "ntp.tclsh-834.log" to
ticket [723426ffff]
added by
andreas_kupries
2003-04-18 07:14:53.
tcllib tests
Tests running in working dir: /nfs/crimper/home/andreask/activetcl/dbn/wb/dt/tcllib.vfs
Only sourcing test files that match: *.test
Tests began at Thu Apr 17 17:12:06 PDT 2003
Module: ntp
modules/ntp/time.test
==== time-1.1 time::gettime FAILED
==== Contents of test case:
global token
list [catch {
set f [createServerProcess]
gets $f port
set token [::time::gettime -protocol tcp localhost $port]
set r {}
} msg] $msg
---- Result was:
1 {invalid command name "::tcltest::interpreter"}
---- Result should have been:
0 {}
==== time-1.1 FAILED
==== time-1.2 time::status FAILED
==== Contents of test case:
global token
list [catch {time::status $token} m] $m
---- Result was:
1 {can't read "State(status)": no such variable}
---- Result should have been:
0 ok
==== time-1.2 FAILED
==== time-1.2 time::unixtime FAILED
==== Contents of test case:
global token
list [catch {
set t [time::unixtime $token]
string is integer -strict $t
} m] $m
---- Result was:
1 {can't read "State(status)": no such variable}
---- Result should have been:
0 1
==== time-1.2 FAILED
Tests ended at Thu Apr 17 17:12:06 PDT 2003
all.tcl: Total 5 Passed 2 Skipped 0 Failed 3
Sourced 1 Test Files.
Files with failing tests: ntp/time.test
