12 lines
290 B
Plaintext
12 lines
290 B
Plaintext
|
package require TclCurl
|
||
|
|
package require tcltest
|
||
|
|
namespace import ::tcltest::*
|
||
|
|
|
||
|
|
test 1.01 {: Test that curl::version returns something} -body {
|
||
|
|
set result [curl::version]
|
||
|
|
|
||
|
|
return $result
|
||
|
|
} -match regexp -result {^TclCurl Version \d+\.\d+\.\d+ \(libcurl/\d+\.\d+\.\d+ .*?\)$}
|
||
|
|
|
||
|
|
cleanupTests
|