Changeset 34134 in project


Ignore:
Timestamp:
05/30/17 19:20:11 (7 months ago)
Author:
kon
Message:

fix test

Location:
release/4/directory-utils
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/directory-utils/tags/1.0.5/trunk/directory-utils.setup

    r34127 r34134  
    55(verify-extension-name "directory-utils")
    66
    7 (setup-shared-extension-module 'directory-utils (extension-version "1.0.4")
     7(setup-shared-extension-module 'directory-utils (extension-version "1.0.5")
    88  #:compile-options '(
    99    -scrutinize
  • release/4/directory-utils/tags/1.0.5/trunk/tests/run.scm

    r34127 r34134  
    3131
    3232(test-assert (push-directory ".."))
    33 (test "directory-fold" 4 (directory-fold (lambda (fn ct) (fx+ ct 1) ) 0 "." #:dotfiles? #f))
     33
     34(test-assert "directory-fold"
     35  (< 1 (directory-fold (lambda (fn ct) (fx+ ct 1) ) 0 "." #:dotfiles? #f)))
    3436
    3537(test-assert (pop-toplevel-directory)) ;(pop-directory)
  • release/4/directory-utils/trunk/directory-utils.setup

    r34127 r34134  
    55(verify-extension-name "directory-utils")
    66
    7 (setup-shared-extension-module 'directory-utils (extension-version "1.0.4")
     7(setup-shared-extension-module 'directory-utils (extension-version "1.0.5")
    88  #:compile-options '(
    99    -scrutinize
  • release/4/directory-utils/trunk/tests/run.scm

    r34127 r34134  
    3131
    3232(test-assert (push-directory ".."))
    33 (test "directory-fold" 4 (directory-fold (lambda (fn ct) (fx+ ct 1) ) 0 "." #:dotfiles? #f))
     33
     34(test-assert "directory-fold"
     35  (< 1 (directory-fold (lambda (fn ct) (fx+ ct 1) ) 0 "." #:dotfiles? #f)))
    3436
    3537(test-assert (pop-toplevel-directory)) ;(pop-directory)
Note: See TracChangeset for help on using the changeset viewer.