Changeset 39774 in project


Ignore:
Timestamp:
04/02/21 13:17:11 (4 months ago)
Author:
juergen
Message:

simple-cells 1.2.2 with test bug fixed

Location:
release/5/simple-cells
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/simple-cells/tags/1.2.2/simple-cells.egg

    r38316 r39774  
    66 (dependencies checks)
    77 (author "Juergen Lorenz")
    8  (version "1.2.1")
     8 (version "1.2.2")
    99 (components (extension simple-cells
    1010                        (csc-options "-O3" "-d0"))))
  • release/5/simple-cells/tags/1.2.2/tests/run.scm

    r37194 r39774  
    11(import simple-cells simple-tests)
    22
    3   (define o% (cell 5 integer? odd?))
    4   (define n% (cell 4 (lambda (x) (<= 3 x))))
    5   (define lst (map cell '(0 1 2 3 4)))
    6 
    73(define-test (Cells?)
     4  (set! o% (cell 5 integer? odd?))
     5  (set! n% (cell 4 (lambda (x) (<= 3 x))))
     6  (set! lst (map cell '(0 1 2 3 4)))
    87  (cell? o%)
    98  ((cell-of? number?) o%)
     
    2120  )
    2221
    23 
    2422(compound-test (SIMPLE-CELLS)
    2523  (Cells?)
  • release/5/simple-cells/trunk/simple-cells.egg

    r38316 r39774  
    66 (dependencies checks)
    77 (author "Juergen Lorenz")
    8  (version "1.2.1")
     8 (version "1.2.2")
    99 (components (extension simple-cells
    1010                        (csc-options "-O3" "-d0"))))
  • release/5/simple-cells/trunk/tests/run.scm

    r37194 r39774  
    11(import simple-cells simple-tests)
    22
    3   (define o% (cell 5 integer? odd?))
    4   (define n% (cell 4 (lambda (x) (<= 3 x))))
    5   (define lst (map cell '(0 1 2 3 4)))
    6 
    73(define-test (Cells?)
     4  (set! o% (cell 5 integer? odd?))
     5  (set! n% (cell 4 (lambda (x) (<= 3 x))))
     6  (set! lst (map cell '(0 1 2 3 4)))
    87  (cell? o%)
    98  ((cell-of? number?) o%)
     
    2120  )
    2221
    23 
    2422(compound-test (SIMPLE-CELLS)
    2523  (Cells?)
Note: See TracChangeset for help on using the changeset viewer.