Small tests refactoring.

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)))

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!)
+   (string-tests!))
-   (bdict-tests!))
 
  )

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))