From 1f4b6c26fbca8c1f69ab0b28f84b8cfae12b329e Mon Sep 17 00:00:00 2001
From: Dan Kortschak <dan.kortschak@elastic.co>
Date: Tue, 15 Oct 2024 15:07:00 +1030
Subject: [PATCH] do POST tests locally

example.com is rejecting POST requests.
---
 testdata/post.txt       | 24 +++++++++++++++---------
 testdata/request_do.txt | 27 +++++++++++++++------------
 2 files changed, 30 insertions(+), 21 deletions(-)

diff --git a/testdata/post.txt b/testdata/post.txt
index 5612223..e98e9bc 100644
--- a/testdata/post.txt
+++ b/testdata/post.txt
@@ -1,9 +1,13 @@
+serve hello.text
+expand src_var.cel src.cel
+cmpenv src.cel src_var.cel 
+
 mito -use http,collections src.cel
 ! stderr .
 cmp stdout want.txt
 
--- src.cel --
-post("http://www.example.com/", "text/plain", "test").drop([
+-- src_var.cel --
+post("${URL}", "text/plain", "test").drop([
 	"Header.Accept-Ranges",
 	"Header.Age",
 	"Header.Date",
@@ -15,18 +19,22 @@ post("http://www.example.com/", "text/plain", "test").drop([
 	"Header.Expires",
 	"Header.Server",
 	"TransferEncoding",
+	"Request.Host",
+	"Request.URL",
 ])
+-- hello.text --
+hello
 -- want.txt --
 {
-	"Body": "PCFkb2N0eXBlIGh0bWw+CjxodG1sPgo8aGVhZD4KICAgIDx0aXRsZT5FeGFtcGxlIERvbWFpbjwvdGl0bGU+CgogICAgPG1ldGEgY2hhcnNldD0idXRmLTgiIC8+CiAgICA8bWV0YSBodHRwLWVxdWl2PSJDb250ZW50LXR5cGUiIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD11dGYtOCIgLz4KICAgIDxtZXRhIG5hbWU9InZpZXdwb3J0IiBjb250ZW50PSJ3aWR0aD1kZXZpY2Utd2lkdGgsIGluaXRpYWwtc2NhbGU9MSIgLz4KICAgIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CiAgICBib2R5IHsKICAgICAgICBiYWNrZ3JvdW5kLWNvbG9yOiAjZjBmMGYyOwogICAgICAgIG1hcmdpbjogMDsKICAgICAgICBwYWRkaW5nOiAwOwogICAgICAgIGZvbnQtZmFtaWx5OiAtYXBwbGUtc3lzdGVtLCBzeXN0ZW0tdWksIEJsaW5rTWFjU3lzdGVtRm9udCwgIlNlZ29lIFVJIiwgIk9wZW4gU2FucyIsICJIZWx2ZXRpY2EgTmV1ZSIsIEhlbHZldGljYSwgQXJpYWwsIHNhbnMtc2VyaWY7CiAgICAgICAgCiAgICB9CiAgICBkaXYgewogICAgICAgIHdpZHRoOiA2MDBweDsKICAgICAgICBtYXJnaW46IDVlbSBhdXRvOwogICAgICAgIHBhZGRpbmc6IDJlbTsKICAgICAgICBiYWNrZ3JvdW5kLWNvbG9yOiAjZmRmZGZmOwogICAgICAgIGJvcmRlci1yYWRpdXM6IDAuNWVtOwogICAgICAgIGJveC1zaGFkb3c6IDJweCAzcHggN3B4IDJweCByZ2JhKDAsMCwwLDAuMDIpOwogICAgfQogICAgYTpsaW5rLCBhOnZpc2l0ZWQgewogICAgICAgIGNvbG9yOiAjMzg0ODhmOwogICAgICAgIHRleHQtZGVjb3JhdGlvbjogbm9uZTsKICAgIH0KICAgIEBtZWRpYSAobWF4LXdpZHRoOiA3MDBweCkgewogICAgICAgIGRpdiB7CiAgICAgICAgICAgIG1hcmdpbjogMCBhdXRvOwogICAgICAgICAgICB3aWR0aDogYXV0bzsKICAgICAgICB9CiAgICB9CiAgICA8L3N0eWxlPiAgICAKPC9oZWFkPgoKPGJvZHk+CjxkaXY+CiAgICA8aDE+RXhhbXBsZSBEb21haW48L2gxPgogICAgPHA+VGhpcyBkb21haW4gaXMgZm9yIHVzZSBpbiBpbGx1c3RyYXRpdmUgZXhhbXBsZXMgaW4gZG9jdW1lbnRzLiBZb3UgbWF5IHVzZSB0aGlzCiAgICBkb21haW4gaW4gbGl0ZXJhdHVyZSB3aXRob3V0IHByaW9yIGNvb3JkaW5hdGlvbiBvciBhc2tpbmcgZm9yIHBlcm1pc3Npb24uPC9wPgogICAgPHA+PGEgaHJlZj0iaHR0cHM6Ly93d3cuaWFuYS5vcmcvZG9tYWlucy9leGFtcGxlIj5Nb3JlIGluZm9ybWF0aW9uLi4uPC9hPjwvcD4KPC9kaXY+CjwvYm9keT4KPC9odG1sPgo=",
+	"Body": "aGVsbG8K",
 	"Close": false,
-	"ContentLength": 1256,
+	"ContentLength": 6,
 	"Header": {
 		"Content-Length": [
-			"1256"
+			"6"
 		],
 		"Content-Type": [
-			"text/html; charset=UTF-8"
+			"text/plain; charset=utf-8"
 		]
 	},
 	"Proto": "HTTP/1.1",
@@ -40,12 +48,10 @@ post("http://www.example.com/", "text/plain", "test").drop([
 				"text/plain"
 			]
 		},
-		"Host": "www.example.com",
 		"Method": "POST",
 		"Proto": "HTTP/1.1",
 		"ProtoMajor": 1,
-		"ProtoMinor": 1,
-		"URL": "http://www.example.com/"
+		"ProtoMinor": 1
 	},
 	"Status": "200 OK",
 	"StatusCode": 200,
diff --git a/testdata/request_do.txt b/testdata/request_do.txt
index 38da383..f7a1e6a 100644
--- a/testdata/request_do.txt
+++ b/testdata/request_do.txt
@@ -1,30 +1,35 @@
+serve hello.text
+expand src_var.cel src.cel
+cmpenv src.cel src_var.cel 
+
 mito -use http,collections src.cel
 ! stderr .
 cmp stdout want.txt
 
--- src.cel --
-post_request("http://www.example.com/", "text/plain", "request data").do_request().drop([
+-- src_var.cel --
+post_request("${URL}", "text/plain", "request data").do_request().drop([
 	"Header.Cache-Control",
 	"Header.Date",
 	"Header.Etag",
 	"Header.Expires",
 	"Header.Last-Modified",
 	"Header.Server",
+	"Request.Host",
+	"Request.URL",
 ])
+-- hello.text --
+hello
 -- want.txt --
 {
-	"Body": "PCFkb2N0eXBlIGh0bWw+CjxodG1sPgo8aGVhZD4KICAgIDx0aXRsZT5FeGFtcGxlIERvbWFpbjwvdGl0bGU+CgogICAgPG1ldGEgY2hhcnNldD0idXRmLTgiIC8+CiAgICA8bWV0YSBodHRwLWVxdWl2PSJDb250ZW50LXR5cGUiIGNvbnRlbnQ9InRleHQvaHRtbDsgY2hhcnNldD11dGYtOCIgLz4KICAgIDxtZXRhIG5hbWU9InZpZXdwb3J0IiBjb250ZW50PSJ3aWR0aD1kZXZpY2Utd2lkdGgsIGluaXRpYWwtc2NhbGU9MSIgLz4KICAgIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CiAgICBib2R5IHsKICAgICAgICBiYWNrZ3JvdW5kLWNvbG9yOiAjZjBmMGYyOwogICAgICAgIG1hcmdpbjogMDsKICAgICAgICBwYWRkaW5nOiAwOwogICAgICAgIGZvbnQtZmFtaWx5OiAtYXBwbGUtc3lzdGVtLCBzeXN0ZW0tdWksIEJsaW5rTWFjU3lzdGVtRm9udCwgIlNlZ29lIFVJIiwgIk9wZW4gU2FucyIsICJIZWx2ZXRpY2EgTmV1ZSIsIEhlbHZldGljYSwgQXJpYWwsIHNhbnMtc2VyaWY7CiAgICAgICAgCiAgICB9CiAgICBkaXYgewogICAgICAgIHdpZHRoOiA2MDBweDsKICAgICAgICBtYXJnaW46IDVlbSBhdXRvOwogICAgICAgIHBhZGRpbmc6IDJlbTsKICAgICAgICBiYWNrZ3JvdW5kLWNvbG9yOiAjZmRmZGZmOwogICAgICAgIGJvcmRlci1yYWRpdXM6IDAuNWVtOwogICAgICAgIGJveC1zaGFkb3c6IDJweCAzcHggN3B4IDJweCByZ2JhKDAsMCwwLDAuMDIpOwogICAgfQogICAgYTpsaW5rLCBhOnZpc2l0ZWQgewogICAgICAgIGNvbG9yOiAjMzg0ODhmOwogICAgICAgIHRleHQtZGVjb3JhdGlvbjogbm9uZTsKICAgIH0KICAgIEBtZWRpYSAobWF4LXdpZHRoOiA3MDBweCkgewogICAgICAgIGRpdiB7CiAgICAgICAgICAgIG1hcmdpbjogMCBhdXRvOwogICAgICAgICAgICB3aWR0aDogYXV0bzsKICAgICAgICB9CiAgICB9CiAgICA8L3N0eWxlPiAgICAKPC9oZWFkPgoKPGJvZHk+CjxkaXY+CiAgICA8aDE+RXhhbXBsZSBEb21haW48L2gxPgogICAgPHA+VGhpcyBkb21haW4gaXMgZm9yIHVzZSBpbiBpbGx1c3RyYXRpdmUgZXhhbXBsZXMgaW4gZG9jdW1lbnRzLiBZb3UgbWF5IHVzZSB0aGlzCiAgICBkb21haW4gaW4gbGl0ZXJhdHVyZSB3aXRob3V0IHByaW9yIGNvb3JkaW5hdGlvbiBvciBhc2tpbmcgZm9yIHBlcm1pc3Npb24uPC9wPgogICAgPHA+PGEgaHJlZj0iaHR0cHM6Ly93d3cuaWFuYS5vcmcvZG9tYWlucy9leGFtcGxlIj5Nb3JlIGluZm9ybWF0aW9uLi4uPC9hPjwvcD4KPC9kaXY+CjwvYm9keT4KPC9odG1sPgo=",
+	"Body": "aGVsbG8K",
 	"Close": false,
-	"ContentLength": 1256,
+	"ContentLength": 6,
 	"Header": {
-		"Accept-Ranges": [
-			"bytes"
-		],
 		"Content-Length": [
-			"1256"
+			"6"
 		],
 		"Content-Type": [
-			"text/html; charset=UTF-8"
+			"text/plain; charset=utf-8"
 		]
 	},
 	"Proto": "HTTP/1.1",
@@ -38,12 +43,10 @@ post_request("http://www.example.com/", "text/plain", "request data").do_request
 				"text/plain"
 			]
 		},
-		"Host": "www.example.com",
 		"Method": "POST",
 		"Proto": "HTTP/1.1",
 		"ProtoMajor": 1,
-		"ProtoMinor": 1,
-		"URL": "http://www.example.com/"
+		"ProtoMinor": 1
 	},
 	"Status": "200 OK",
 	"StatusCode": 200,