From 996f2362a251c9ae0c52746104525720f2d4483b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 3 Oct 2023 22:31:58 +0200
Subject: Remove unused helper files in tests

---
 tests/convert.scm | 69 -------------------------------------------------------
 tests/display     |  2 --
 2 files changed, 71 deletions(-)
 delete mode 100644 tests/convert.scm
 delete mode 100755 tests/display

(limited to 'tests')

diff --git a/tests/convert.scm b/tests/convert.scm
deleted file mode 100644
index 534c5b70..00000000
--- a/tests/convert.scm
+++ /dev/null
@@ -1,69 +0,0 @@
-(add-to-load-path "../module")
-
-(use-modules (ice-9 documentation)
-             (ice-9 format)
-             (srfi srfi-1)
-             (hnh util path)
-             (datetime)
-             )
-
-(print-set! quote-keywordish-symbols #f)
-
-(define (module-definition name old-sandbox-definition)
- `(define-module (test ,name)
-    :use-module (srfi srfi-64)
-    :use-module (srfi srfi-88)
-    ,@(concatenate
-       (map (lambda (def) `(:use-module (,(car def) :select ,(cdr def))))
-            old-sandbox-definition))))
-
-(define (read-multiple port)
-  (let loop ((done '()))
-    (let ((sexp (read port)))
-      (if (eof-object? sexp)
-          (reverse done)
-          (loop (cons sexp done))))))
-
-(define files
- '("annoying-events.scm"
-   "base64.scm"
-   "cpp.scm"
-   "datetime-compare.scm"
-   "datetime.scm"
-   "datetime-util.scm"
-   "let-env.scm"
-   "let.scm"
-   "param.scm"
-   "recurrence-advanced.scm"
-   "recurrence-simple.scm"
-   "rrule-serialization.scm"
-   "server.scm"
-   "srfi-41-util.scm"
-   "termios.scm"
-   "tz.scm"
-   "util.scm"
-   "vcomponent-control.scm"
-   "vcomponent-datetime.scm"
-   "vcomponent-formats-common-types.scm"
-   "vcomponent.scm"
-   "web-server.scm"
-   "xcal.scm"
-   "xml-namespace.scm"
-   ))
-
-(for-each (lambda (file)
-            (format #t "~a~%" file)
-            (call-with-output-file (path-append "test" (basename file))
-              (lambda (p)
-                (define commentary (file-commentary file))
-                (unless (string-null? commentary)
-                  (format p ";;; Commentary:~%")
-                  (for-each (lambda (line) (format p ";; ~a~%" line))
-                            (string-split commentary #\newline))
-                  (format p ";;; Code:~%~%"))
-                (let ((forms (call-with-input-file file read-multiple)))
-                  (format p "~y~%" (module-definition (string->symbol (string-drop-right file 4))
-                                                      (car forms)))
-                  (format p "~{~y~%~}~%" (cdr forms))))))
-          files)
-
diff --git a/tests/display b/tests/display
deleted file mode 100755
index e58288a2..00000000
--- a/tests/display
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/bash
-guild display-commentary *.scm | sed -e 's/^ /    /' -e 's/^\S/\n&/g'
-- 
cgit v1.2.3