Changeset 35371 in project


Ignore:
Timestamp:
03/31/18 21:24:11 (9 months ago)
Author:
kon
Message:

directory is symbolic for test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/directory-utils/trunk/tests/directory-utils-test.scm

    r35368 r35371  
    3636  (else (define-constant TESTS-DIRECTORY-COUNT 2)) )
    3737
    38 (test "directory-fold"
     38(test "directory-fold tests"
    3939  TESTS-DIRECTORY-COUNT
    40   (directory-fold (lambda (fn ct) (fx+ ct 1) ) 0 "." #:dotfiles? #f))
     40  (directory-fold (lambda (fn ct) (fx+ ct 1)) 0 "." #:dotfiles? #f))
    4141
    4242(test-assert (push-directory ".."))
    4343
     44(define-constant EGG-DIRECTORY-COUNT 4)
     45
    4446(let ((dotno (directory-fold (lambda (fn ct) (fx+ ct 1)) 0 "." #:dotfiles? #f)))
    45   (test-assert "directory-fold" (< 1 dotno)) )
     47  (test-assert "directory-fold tests/.." (<= EGG-DIRECTORY-COUNT dotno)) )
    4648
    4749(test-assert (pop-toplevel-directory)) ;(pop-directory)
Note: See TracChangeset for help on using the changeset viewer.