#!/usr/bin/env sh
exec guile -s "$0" "$@"
!#

;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
;;;
;;; SPDX-License-Identifier: GPL-3.0-only

(use-modules (rnrs bytevectors)
             (srfi srfi-64)
             (web uri)
             (web request)
             (web response)
             (pastebin httpserver))

(test-begin "pastebin-http")

(let* ((dir (tmpnam))
       (handler (make-pastebin-handler dir)))
  (mkdir dir)

  (let ((request (build-request
                  (string->uri "http://localhost:8080/post")
                  #:method 'POST
                  #:headers '((content-type . (multipart/form-data (boundary . "------------------------s1eMqEtEr3zEuOSkwyAiLi"))))
                  #:port (%make-void-port "w+"))))
    (define-values (resp body)
      (handler request (string->utf8 "--------------------------s1eMqEtEr3zEuOSkwyAiLi\r\nContent-Disposition: form-data; name=\"text\"\r\n\r\nPaste 0\r\n--------------------------s1eMqEtEr3zEuOSkwyAiLi\r\nContent-Disposition: form-data; name=\"showUrl\"\r\n\r\n1\r\n--------------------------s1eMqEtEr3zEuOSkwyAiLi--")))
    (test-equal 200 (response-code resp))
    (test-equal "http://localhost:8080/raw/00000\r\n" (call-with-output-string body)))

  (let ((request (build-request (string->uri "http://localhost:8080/raw/00000"))))
    (define-values (resp body)
      (handler request ""))
    (test-equal 200 (response-code resp))
    (test-equal "Paste 0" (call-with-output-string body)))

  (let ((request (build-request
                  (string->uri "http://localhost:8080/post")
                  #:method 'POST
                  #:headers '((content-type . (multipart/form-data (boundary . "------------------------WemU5jJZTowf8qPbKbZ6qE"))))
                  #:port (%make-void-port "w+"))))
    (define-values (resp body)
      (handler request (string->utf8 "--------------------------WemU5jJZTowf8qPbKbZ6qE\r\nContent-Disposition: form-data; name=\"text\"\r\n\r\nPaste 1\r\n--------------------------WemU5jJZTowf8qPbKbZ6qE--")))
    (test-equal 303 (response-code resp))
    (test-equal "/" (uri-path (assq-ref (response-headers resp) 'location))))

  (let ((request (build-request (string->uri "http://localhost:8080/raw/00001"))))
    (define-values (resp body)
      (handler request ""))
    (test-equal 200 (response-code resp))
    (test-equal "Paste 1" (call-with-output-string body)))

  (let* ((uri (string->uri "http://localhost:8080/"))
         (request (build-request uri)))
    (define-values (resp body)
      (handler request ""))
    (test-equal 200 (response-code resp))))

(test-end "pastebin-http")

;; Local Variables:
;; mode: scheme
;; End: