summaryrefslogtreecommitdiffstats
path: root/test/fillval.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>1999-08-27 22:07:00 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>1999-08-27 22:07:00 (GMT)
commit399bab4bf920492b47ca24e6a732cb92956e3106 (patch)
tree1be0c07ad2c28973bf1c8dcecb159efea457cf4d /test/fillval.c
parentee1e2b85226bf4431177d304d9421c243f99e451 (diff)
downloadhdf5-399bab4bf920492b47ca24e6a732cb92956e3106.zip
hdf5-399bab4bf920492b47ca24e6a732cb92956e3106.tar.gz
hdf5-399bab4bf920492b47ca24e6a732cb92956e3106.tar.bz2
[svn-r1613] Added check for reading an attribute immediately after writing it.
Diffstat (limited to 'test/fillval.c')
0 files changed, 0 insertions, 0 deletions
generated by cgit v0.12 at 2024-11-07 21:35:41 (GMT)
_db0a5f6417 Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwelch <welch>2000-03-17 02:15:18 (GMT)
committerwelch <welch>2000-03-17 02:15:18 (GMT)
commite793b4a0eb33a970919689caba4daebebcc6e065 (patch)
tree1b9c7cc20554fead270cd6b9021bd617a467d8d5
parentf257591d5397a0616c8aed901998abd5275a0c0b (diff)
downloadtcl-e793b4a0eb33a970919689caba4daebebcc6e065.zip
tcl-e793b4a0eb33a970919689caba4daebebcc6e065.tar.gz
tcl-e793b4a0eb33a970919689caba4daebebcc6e065.tar.bz2
Added tests for -queryprogress
Diffstat
-rw-r--r--tests/http.test25
-rw-r--r--tests/httpd64
2 files changed, 63 insertions, 26 deletions
diff --git a/tests/http.test b/tests/http.test
index 62749be..af231d7 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#
-# RCS: @(#) $Id: http.test,v 1.14 1999/11/22 20:15:04 welch Exp $
+# RCS: @(#) $Id: http.test,v 1.15 2000/03/17 02:15:18 welch Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -121,6 +121,7 @@ test http-3.3 {http::geturl} {
set tail /a/b/c
set url [info hostname]:$port/a/b/c
set binurl [info hostname]:$port/binary
+set posturl [info hostname]:$port/post
test http-3.4 {http::geturl} {
set token [http::geturl $url]
@@ -180,6 +181,28 @@ test http-3.9 {http::geturl} {
http::code $token
} "HTTP/1.0 200 OK"
+test http-3.10 {http::geturl queryprogress} {
+ set query foo=bar
+ set sep ""
+ set i 0
+ # Create about 120K of query data
+ while {$i < 14} {
+ incr i
+ append query $sep$query
+ set sep &
+ }
+
+ proc postProgress {token x y} {
+ global postProgress
+ lappend postProgress $x
+ }
+ set postProgress {}
+ set t [http::geturl $posturl -query $query \
+ -queryprogress postProgress]
+ http::wait $t
+ list [http::status $t] [string length $query] $postProgress [http::data $t]
+} {ok 122879 {16384 32768 49152 65536 81920 98304 114688 131072} {Got 122879 bytes}}
+
test http-4.1 {http::Event} {
set token [http::geturl $url]
diff --git a/tests/httpd b/tests/httpd