12 lines
290 B
Plaintext
Executable File
12 lines
290 B
Plaintext
Executable File
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
|