Testing functions support query strings

Closes #35

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## v0.4.0 - Unreleased
+
+- The request construction functions in the `wisp/testing` module now support
+  query strings. e.g. `get("/users?limit=10", [])`.
+
 ## v0.3.0 - 2023-08-21
 
 - The `mist_service` function has been renamed to `mist_handler`.

src/wisp/testing.gleam

@@ -1,10 +1,11 @@
 import wisp.{Empty, File, Request, Response, Text}
 import gleam/string_builder
+import gleam/string
 import gleam/bit_builder
 import gleam/uri
 import gleam/http/request
 import gleam/http
-import gleam/option.{None}
+import gleam/option.{None, Some}
 import simplifile
 
 /// The default secret key base used for test requests.
@@ -28,6 +29,10 @@ pub fn request(
   headers: List(http.Header),
   body: BitString,
 ) -> Request {
+  let #(path, query) = case string.split(path, "?") {
+    [path, query] -> #(path, Some(query))
+    _ -> #(path, None)
+  }
   request.Request(
     method: method,
     headers: headers,
@@ -36,7 +41,7 @@ pub fn request(
     host: "localhost",
     port: None,
     path: path,
-    query: None,
+    query: query,
   )
   |> request.set_body(wisp.create_canned_connection(
     body,

test/wisp/testing_test.gleam

@@ -1,6 +1,6 @@
 import gleam/http
 import gleam/http/response
-import gleam/option.{None}
+import gleam/option.{None, Some}
 import gleam/string_builder
 import gleeunit/should
 import wisp
@@ -418,3 +418,31 @@ pub fn bit_string_body_text_test() {
   |> testing.bit_string_body
   |> should.equal(<<"Hello, Joe!":utf8>>)
 }
+
+pub fn request_query_string_test() {
+  let request =
+    testing.request(
+      http.Patch,
+      "/wibble/woo?one=two&three=four",
+      [#("content-type", "application/json")],
+      <<"wubwub":utf8>>,
+    )
+
+  request.method
+  |> should.equal(http.Patch)
+  request.headers
+  |> should.equal([#("content-type", "application/json")])
+  request.scheme
+  |> should.equal(http.Https)
+  request.host
+  |> should.equal("localhost")
+  request.port
+  |> should.equal(None)
+  request.path
+  |> should.equal("/wibble/woo")
+  request.query
+  |> should.equal(Some("one=two&three=four"))
+  request
+  |> wisp.read_body_to_bitstring
+  |> should.equal(Ok(<<"wubwub":utf8>>))
+}