From 1e59177e15f48c2c819af4f33ba1be23333f2cf7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 22 May 2023 20:28:13 +0200
Subject: [PATCH] Small tests refactoring.

---
 src/mbase-dir.scm      |  2 +-
 src/tests.scm          | 12 ++++++------
 src/util-dict-list.scm |  2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/mbase-dir.scm b/src/mbase-dir.scm
index 0bdb460..aace968 100644
--- a/src/mbase-dir.scm
+++ b/src/mbase-dir.scm
@@ -157,7 +157,7 @@
  ;; Performs self-tests of this module.
  (define (mbase-dir-tests!)
    (run-tests
-    members-base
+    mbase-dir
     (test-equal? files+symlinks->files-dictionary
 		 (files+symlinks->files-dictionary
 		  '(joe (2803 . joe)))
diff --git a/src/tests.scm b/src/tests.scm
index 335d79d..9f7a8d9 100644
--- a/src/tests.scm
+++ b/src/tests.scm
@@ -52,21 +52,21 @@
 
  (define (run-all-tests!)
    (listing-tests!)
+   (lset-tests!)
    (ldict-tests!)
+   (bdict-tests!)
    (cal-month-tests!)
    (cal-period-tests!)
    (cal-day-tests!)
+   (primes-tests!)
+   (brmember-tests!)
+   (mbase-dir-tests!)
    (util-list-tests!)
    (ansi-tests!)
    (command-line-tests!)
-   (mbase-dir-tests!)
-   (primes-tests!)
-   (brmember-tests!)
    (table-tests!)
    (csv-simple-tests!)
-   (lset-tests!)
    (parser-tests!)
-   (string-tests!)
-   (bdict-tests!))
+   (string-tests!))
 
  )
diff --git a/src/util-dict-list.scm b/src/util-dict-list.scm
index dbcf7df..55a848d 100644
--- a/src/util-dict-list.scm
+++ b/src/util-dict-list.scm
@@ -236,7 +236,7 @@
  ;; Performs self-tests of the dictionary module.
  (define (ldict-tests!)
    (run-tests
-    dict
+    ldict
    (test-equal? make-ldict (make-ldict) `(,TAG-LDICT (,eq?)))
    (test-exn ldict-ref (ldict-ref (make-ldict) 'nonexistent))
    (test-true ldict-ref (ldict-ref (make-ldict) 'nonexistent #t))