aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2022-01-16 01:21:28 +0530
committerArun Isaac2022-01-16 12:24:44 +0530
commit72343067effad906a01f43798d01ed974cd005f8 (patch)
treeb217b16508cbbf2c3568f7d7aa8dffcda2885733 /tests
parent6013af487f10e6fcde6ffbe0a1790afb32f20c5d (diff)
downloadccwl-72343067effad906a01f43798d01ed974cd005f8.tar.gz
ccwl-72343067effad906a01f43798d01ed974cd005f8.tar.lz
ccwl-72343067effad906a01f43798d01ed974cd005f8.zip
tests: Move plist-ref ahead of test-begin.
This is a purely cosmetic change just to keep definitions outside the test cases. * tests/utils.scm (plist-ref): Move ahead of test-begin.
Diffstat (limited to 'tests')
-rw-r--r--tests/utils.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/utils.scm b/tests/utils.scm
index 8a1e6a1..6db9fe2 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -24,6 +24,9 @@
(ccwl conditions)
(ccwl utils))
+(define plist-ref
+ (@@ (ccwl utils) plist-ref))
+
(test-begin "utils")
(test-equal "pairify"
@@ -34,9 +37,6 @@
'((spam . 1) (ham . 2) (eggs . 3))
(plist->alist (list #:spam 1 #:ham 2 #:eggs 3)))
-(define plist-ref
- (@@ (ccwl utils) plist-ref))
-
(test-equal "plist-ref"
2
(plist-ref (list #:spam 1 #:ham 2 #:eggs 3)