diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-09-28 20:23:41 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-09-28 22:00:19 +0200 |
| commit | 99368091dfa733e0e7823072e79c7d4f03c2b700 (patch) | |
| tree | 4c3928320fa5d5d6e9919c512fd2b4f82d13b6b0 /tests | |
| parent | 0edd01b5538c10703f4b32751b5189bc8ac504d3 (diff) | |
Use hall for project management
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/requests.scm | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/tests/requests.scm b/tests/requests.scm new file mode 100644 index 0000000..96edaeb --- /dev/null +++ b/tests/requests.scm @@ -0,0 +1,34 @@ +;; tests/requests --- neocities requests tester -*- coding: utf-8 -*- +;; +;; Copyright (C) 2023 Ekaitz Zarraga <ekaitz@elenq.tech> +;; +;; Author: Ekaitz Zarraga <ekaitz@elenq.tech> +;; +;; This file is part of guile-neocities. +;; +;; guile-neocities is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by the Free +;; Software Foundation; either version 3 of the License, or (at your option) +;; any later version. +;; +;; guile-neocities is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for +;; more details. +;; +;; You should have received a copy of the GNU General Public License along +;; with guile-neocities; if not, contact: +;; +;; Free Software Foundation Voice: +1-617-542-5942 +;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 +;; Boston, MA 02111-1307, USA gnu@gnu.org + +(define-module (tests requests) + #:use-module (neocities requests) + #:use-module (web uri) + #:use-module (srfi srfi-64)) + +(test-begin "request-url") +(define url (neocities-url "neocities.org")) +(test-assert (uri? url)) +(test-end "request-url") |