diff options
| author | Arun Isaac | 2022-01-16 01:21:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-16 12:24:44 +0530 |
| commit | 72343067effad906a01f43798d01ed974cd005f8 (patch) | |
| tree | b217b16508cbbf2c3568f7d7aa8dffcda2885733 /tests/utils.scm | |
| parent | 6013af487f10e6fcde6ffbe0a1790afb32f20c5d (diff) | |
| download | ccwl-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/utils.scm')
| -rw-r--r-- | tests/utils.scm | 6 |
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) |