Willy Tarreau | 9fdf342 | 2021-03-26 14:03:57 +0100 | [diff] [blame^] | 1 | varnishtest "Test a few set-var() in global, tcp and http rule sets, at different scopes" |
| 2 | #REQUIRE_VERSION=2.4 |
| 3 | |
| 4 | feature ignore_unknown_macro |
| 5 | |
| 6 | haproxy h1 -conf { |
| 7 | global |
| 8 | set-var proc.int12 int(12) |
| 9 | set-var proc.int5 str(60),div(proc.int12) |
| 10 | set-var proc.str str("this is") |
| 11 | set-var proc.str str(""),concat("",proc.str," a string") |
| 12 | set-var proc.uuid uuid() |
| 13 | |
| 14 | defaults |
| 15 | mode http |
| 16 | timeout connect 1s |
| 17 | timeout client 1s |
| 18 | timeout server 1s |
| 19 | |
| 20 | frontend fe1 |
| 21 | bind "fd@${fe1}" |
| 22 | tcp-request session set-var(sess.int5) var(proc.int5) |
| 23 | tcp-request session set-var(proc.int5) var(proc.int5),add(sess.int5) ## proc. becomes 10 |
| 24 | http-request set-var(req.int5) var(sess.int5) |
| 25 | http-request set-var(sess.int5) var(sess.int5),add(req.int5) ## sess. becomes 10 first time, then 15... |
| 26 | http-request return status 200 hdr x-var "proc=%[var(proc.int5)] sess=%[var(sess.int5)] req=%[var(req.int5)] str=%[var(proc.str)] uuid=%[var(proc.uuid)]" |
| 27 | } -start |
| 28 | |
| 29 | client c1 -connect ${h1_fe1_sock} { |
| 30 | txreq -req GET -url /req1_1 |
| 31 | rxresp |
| 32 | expect resp.status == 200 |
| 33 | expect resp.http.x-var ~ "proc=10 sess=10 req=5 str=this is a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*" |
| 34 | |
| 35 | txreq -req GET -url /req1_2 |
| 36 | rxresp |
| 37 | expect resp.status == 200 |
| 38 | expect resp.http.x-var ~ "proc=10 sess=20 req=10 str=this is a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*" |
| 39 | } -run |
| 40 | |
| 41 | client c2 -connect ${h1_fe1_sock} { |
| 42 | txreq -req GET -url /req2_1 |
| 43 | rxresp |
| 44 | expect resp.status == 200 |
| 45 | expect resp.http.x-var ~ "proc=20 sess=20 req=10 str=this is a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*" |
| 46 | |
| 47 | txreq -req GET -url /req2_2 |
| 48 | rxresp |
| 49 | expect resp.status == 200 |
| 50 | expect resp.http.x-var ~ "proc=20 sess=40 req=20 str=this is a string uuid=[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*-[0-9a-f]*" |
| 51 | } -run |