aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-01-31 20:24:18 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2022-01-31 20:24:18 +0100
commit807409d41f8b1a4435ee1cf7ddc3d1a1b9116799 (patch)
tree41ce7d861f9048863f930b8a9227ca580da17911 /tests
parentMove use2dot into scripts subdir. (diff)
downloadcalp-807409d41f8b1a4435ee1cf7ddc3d1a1b9116799.tar.gz
calp-807409d41f8b1a4435ee1cf7ddc3d1a1b9116799.tar.xz
Move stuff from calp/util to hnh/util.
This is the first (major) step in splitting the generally useful items into its own library.
Diffstat (limited to 'tests')
-rw-r--r--tests/annoying-events.scm2
-rw-r--r--tests/datetime.scm2
-rw-r--r--tests/let-env.scm2
-rw-r--r--tests/let.scm2
-rw-r--r--tests/param.scm2
-rw-r--r--tests/recurrence-advanced.scm2
-rw-r--r--tests/recurrence-simple.scm2
-rwxr-xr-xtests/run-tests.scm4
-rw-r--r--tests/server.scm2
-rw-r--r--tests/termios.scm2
-rw-r--r--tests/tz.scm2
-rw-r--r--tests/util.scm4
-rw-r--r--tests/web-server.scm2
-rw-r--r--tests/xcal.scm2
14 files changed, 16 insertions, 16 deletions
diff --git a/tests/annoying-events.scm b/tests/annoying-events.scm
index ba93b9c9..90e6a184 100644
--- a/tests/annoying-events.scm
+++ b/tests/annoying-events.scm
@@ -3,7 +3,7 @@
((vcomponent base) extract prop make-vcomponent)
((vcomponent datetime) event-overlaps?)
((datetime) date date+ date<)
- ((calp util) set!))
+ ((hnh util) set!))
(define* (event key: summary dtstart dtend)
(define ev (make-vcomponent 'VEVENT))
diff --git a/tests/datetime.scm b/tests/datetime.scm
index f9cf94e1..d1ebd238 100644
--- a/tests/datetime.scm
+++ b/tests/datetime.scm
@@ -16,7 +16,7 @@
string->date string->time string->datetime
)
((ice-9 format) format)
- ((calp util) let*)
+ ((hnh util) let*)
((ice-9 i18n) make-locale)
((guile) LC_TIME)
)
diff --git a/tests/let-env.scm b/tests/let-env.scm
index 0fe77539..17cfb817 100644
--- a/tests/let-env.scm
+++ b/tests/let-env.scm
@@ -1,5 +1,5 @@
(((guile) setenv getenv)
- ((calp util) let-env))
+ ((hnh util) let-env))
(setenv "CALP_TEST_ENV" "1")
(test-equal "Ensure we have set value beforehand"
diff --git a/tests/let.scm b/tests/let.scm
index 81a34131..3f1b52a7 100644
--- a/tests/let.scm
+++ b/tests/let.scm
@@ -2,7 +2,7 @@
;; Tests my custom let*.
;;; Code:
-(((calp util) let*)
+(((hnh util) let*)
((guile) set!))
(test-assert (let* ((a #t)) a))
diff --git a/tests/param.scm b/tests/param.scm
index c5a23cbe..cf8c9458 100644
--- a/tests/param.scm
+++ b/tests/param.scm
@@ -6,7 +6,7 @@
(((vcomponent base) param prop* parameters prop)
((vcomponent formats ical parse) parse-calendar)
((vcomponent) make-vcomponent)
- ((calp util) sort* set!))
+ ((hnh util) sort* set!))
(define v (call-with-input-string
"BEGIN:DUMMY
diff --git a/tests/recurrence-advanced.scm b/tests/recurrence-advanced.scm
index c2242c19..4f26f2c7 100644
--- a/tests/recurrence-advanced.scm
+++ b/tests/recurrence-advanced.scm
@@ -23,7 +23,7 @@
((vcomponent base) make-vcomponent prop prop* extract)
((datetime) parse-ics-datetime datetime time date
datetime->string)
- ((calp util) -> set!)
+ ((hnh util) -> set!)
((srfi srfi-41) stream->list)
((srfi srfi-88) keyword->string))
diff --git a/tests/recurrence-simple.scm b/tests/recurrence-simple.scm
index cd170976..d5a35802 100644
--- a/tests/recurrence-simple.scm
+++ b/tests/recurrence-simple.scm
@@ -8,7 +8,7 @@
((datetime) day-stream mon)
((vcomponent base) extract prop)
- ((calp util exceptions) warnings-are-errors warning-handler)
+ ((hnh util exceptions) warnings-are-errors warning-handler)
((guile) format @@)
((vcomponent formats ical parse) parse-calendar)
diff --git a/tests/run-tests.scm b/tests/run-tests.scm
index 6ec8dea7..9271fc55 100755
--- a/tests/run-tests.scm
+++ b/tests/run-tests.scm
@@ -47,7 +47,7 @@
(srfi srfi-64) ; test suite
(srfi srfi-88) ; suffix keywords
(system vm coverage)
- ((calp util) :select (for awhen))
+ ((hnh util) :select (for awhen))
;; datetime introduces the reader extensions for datetimes,
;; which leaks into the sandboxes below.
(datetime))
@@ -92,7 +92,7 @@
(test-begin "tests")
;; Forces all warnings to be explicitly handled by tests
-((@ (calp util exceptions) warnings-are-errors) #t)
+((@ (hnh util exceptions) warnings-are-errors) #t)
(define (run-with-coverage)
(with-code-coverage
diff --git a/tests/server.scm b/tests/server.scm
index d21c11da..a2b3ea9d 100644
--- a/tests/server.scm
+++ b/tests/server.scm
@@ -3,7 +3,7 @@
;;; Code:
(((web http make-routes) parse-endpoint-string)
- ((calp util) let*))
+ ((hnh util) let*))
(test-assert "Check that parsing doesn't crash"
(parse-endpoint-string "/static/:dir/:file"))
diff --git a/tests/termios.scm b/tests/termios.scm
index c0cb4323..e54ddc9c 100644
--- a/tests/termios.scm
+++ b/tests/termios.scm
@@ -5,7 +5,7 @@
;; It might also leave the terminal in a broken state if exited prematurely.
;;; Code:
-(((calp util) set!)
+(((hnh util) set!)
((vulgar termios)
make-termios copy-termios
lflag
diff --git a/tests/tz.scm b/tests/tz.scm
index 147f0807..1cbb1842 100644
--- a/tests/tz.scm
+++ b/tests/tz.scm
@@ -12,7 +12,7 @@
datetime->unix-time
unix-time->datetime
get-datetime)
- ((calp util) let-env))
+ ((hnh util) let-env))
;; London alternates between +0000 and +0100
(let-env ((TZ "Europe/London"))
diff --git a/tests/util.scm b/tests/util.scm
index aa47a44f..45e69dd6 100644
--- a/tests/util.scm
+++ b/tests/util.scm
@@ -1,8 +1,8 @@
;;; Commentary:
-;; Checks some prodecuders from (calp util)
+;; Checks some prodecuders from (hnh util)
;;; Code:
-(((calp util) filter-sorted set/r!
+(((hnh util) filter-sorted set/r!
find-min find-max span-upto
iterate ->string ->quoted-string path-append
begin1)
diff --git a/tests/web-server.scm b/tests/web-server.scm
index bce05d0e..73d34317 100644
--- a/tests/web-server.scm
+++ b/tests/web-server.scm
@@ -7,7 +7,7 @@
((web server) run-server)
((ice-9 threads) call-with-new-thread cancel-thread)
((web client) http-get)
- ((calp util) let*)
+ ((hnh util) let*)
((web response) response-code response-location)
((web uri) build-uri uri-path)
((guile) AF_INET))
diff --git a/tests/xcal.scm b/tests/xcal.scm
index df8a5135..6e80405b 100644
--- a/tests/xcal.scm
+++ b/tests/xcal.scm
@@ -6,7 +6,7 @@
(((vcomponent formats xcal parse) sxcal->vcomponent)
((vcomponent formats xcal output) vcomponent->sxcal)
((vcomponent formats ical parse) parse-calendar)
- ((calp util) ->)
+ ((hnh util) ->)
((vcomponent base)
parameters prop* children)
)