Make http test for different method more robust

Author: aisk

vm/http_test.go

@@ -36,20 +36,20 @@ func TestHTTPRequest(t *testing.T) {
 		require "net/http"
 
 		res = Net::HTTP.head("http://127.0.0.1:3000/index")
-		res["Content-Length"]
-		`, "16"},
+		res["X-Request-Method"]
+		`, "HEAD"},
 		{`
 		require "net/http"
 
 		res = Net::HTTP.delete("http://127.0.0.1:3000/index")
-		res["Content-Length"]
-		`, "18"},
+		res["X-Request-Method"]
+		`, "DELETE"},
 		{`
 		require "net/http"
 
 		res = Net::HTTP.options("http://127.0.0.1:3000/index")
-		res["Content-Length"]
-		`, "19"},
+		res["X-Request-Method"]
+		`, "OPTIONS"},
 	}
 
 	//block until server is ready
@@ -171,6 +171,7 @@ func startTestServer(c chan bool) {
 	m := http.NewServeMux()
 
 	m.HandleFunc("/index", func(w http.ResponseWriter, r *http.Request) {
+		w.Header().Set("X-Request-Method", r.Method)
 		w.WriteHeader(http.StatusOK)
 
 		if r.Method == http.MethodPost {