mirror of
http://git.haproxy.org/git/haproxy.git/
synced 2024-12-26 22:52:13 +00:00
f673923629
With the CI occasionally slowing down, we're starting to see again some spurious failures despite the long 1-second timeouts. This reports false positives that are disturbing and doesn't provide as much value as this could. However at this delay it already becomes a pain for developers to wait for the tests to complete. This commit adds support for the new environment variable HAPROXY_TEST_TIMEOUT that will allow anyone to modify the connect, client and server timeouts. It was set to 5 seconds by default, which should be plenty for quite some time in the CI. All relevant values that were 200ms or above were replaced by this one. A few larger values were left as they are special. One test for the set-timeout action that used to rely on a fixed 1-sec value was extended to a fixed 5-sec, as the timeout is normally not reached, but it needs to be known to compare the old and new values.
85 lines
3.2 KiB
Plaintext
85 lines
3.2 KiB
Plaintext
varnishtest "Test a few set-var() in global, tcp and http rule sets, at different scopes"
|
|
feature cmd "$HAPROXY_PROGRAM -cc 'version_atleast(2.5-dev5)'"
|
|
|
|
feature ignore_unknown_macro
|
|
|
|
haproxy h1 -conf {
|
|
global
|
|
# note below, str60 is purposely not defined so that the default is used
|
|
set-var proc.int12 int(12)
|
|
set-var proc.int5 var(proc.str60,60),div(proc.int12)
|
|
set-var proc.str1 str("this is")
|
|
set-var proc.str2 str("a string")
|
|
set-var proc.str var(proc.str1)
|
|
set-var-fmt proc.str "%[var(proc.str)] a string"
|
|
set-var proc.uuid uuid()
|
|
|
|
defaults
|
|
mode http
|
|
timeout connect "${HAPROXY_TEST_TIMEOUT-5s}"
|
|
timeout client "${HAPROXY_TEST_TIMEOUT-5s}"
|
|
timeout server "${HAPROXY_TEST_TIMEOUT-5s}"
|
|
|
|
frontend fe1
|
|
bind "fd@${fe1}"
|
|
tcp-request session set-var-fmt(sess.str3) "%[var(proc.str1)] %[var(proc.str2)]"
|
|
tcp-request session set-var(sess.int5) var(proc.int5)
|
|
tcp-request session set-var(proc.int5) var(proc.int5),add(sess.int5) ## proc. becomes 10
|
|
tcp-request content set-var-fmt(req.str4) "%[var(sess.str3),regsub(is a,is also a)]"
|
|
http-request set-var-fmt(txn.str5) "%[var(req.str4)]"
|
|
http-request set-var(req.int5) var(sess.int5)
|
|
http-request set-var(sess.int5) var(sess.int5),add(req.int5) ## sess. becomes 10 first time, then 15...
|
|
http-request return status 200 hdr x-var "proc=%[var(proc.int5)] sess=%[var(sess.int5)] req=%[var(req.int5)] str=%[var(proc.str)] str5=%[var(txn.str5)] uuid=%[var(proc.uuid)]"
|
|
} -start
|
|
|
|
haproxy h1 -cli {
|
|
send "get var proc.int5"
|
|
expect ~ "^proc.int5: type=sint value=<5>$"
|
|
}
|
|
|
|
client c1 -connect ${h1_fe1_sock} {
|
|
txreq -req GET -url /req1_1
|
|
rxresp
|
|
expect resp.status == 200
|
|
expect resp.http.x-var ~ "proc=10 sess=10 req=5 str=this is a string str5=this is also a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*"
|
|
|
|
txreq -req GET -url /req1_2
|
|
rxresp
|
|
expect resp.status == 200
|
|
expect resp.http.x-var ~ "proc=10 sess=20 req=10 str=this is a string str5=this is also a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*"
|
|
} -run
|
|
|
|
haproxy h1 -cli {
|
|
send "get var proc.int5"
|
|
expect ~ "^proc.int5: type=sint value=<10>$"
|
|
}
|
|
|
|
client c2 -connect ${h1_fe1_sock} {
|
|
txreq -req GET -url /req2_1
|
|
rxresp
|
|
expect resp.status == 200
|
|
expect resp.http.x-var ~ "proc=20 sess=20 req=10 str=this is a string str5=this is also a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*"
|
|
|
|
txreq -req GET -url /req2_2
|
|
rxresp
|
|
expect resp.status == 200
|
|
expect resp.http.x-var ~ "proc=20 sess=40 req=20 str=this is a string str5=this is also a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*"
|
|
} -run
|
|
|
|
haproxy h1 -cli {
|
|
send "get var proc.int5"
|
|
expect ~ "^proc.int5: type=sint value=<20>$"
|
|
}
|
|
|
|
haproxy h1 -cli {
|
|
send "experimental-mode on; set var proc.str str(updating); set var proc.str fmt %[var(proc.str),regsub(ing,ed)]"
|
|
expect ~ .*
|
|
}
|
|
|
|
client c3 -connect ${h1_fe1_sock} {
|
|
txreq -req GET -url /req3_1
|
|
rxresp
|
|
expect resp.status == 200
|
|
expect resp.http.x-var ~ "proc=40 sess=40 req=20 str=updated str5=this is also a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*"
|
|
} -run
|