Changeset 39776 in project


Ignore:
Timestamp:
04/02/21 13:43:09 (3 weeks ago)
Author:
juergen
Message:

skiplists 1.0.2 with bugfix in tests

Location:
release/5/skiplists
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/skiplists/tags/1.0.2/skiplists.egg

    r38303 r39776  
    33 (license "BSD")
    44 (test-dependencies simple-tests)
    5  (author "Juergen Lorenz")
    6  (version "1.0.1")
    7  (components (extension skiplists
    8                         (csc-options "-d0" "-O3")
    9                         (modules %skiplists skiplists))))
     5 (author "[[Juergen Lorenz]]")
     6 (version "1.0.2")
     7 (components (extension skiplists (modules %skiplists skiplists))))
  • release/5/skiplists/tags/1.0.2/tests/run.scm

    r37472 r39776  
    99        simple-tests)
    1010
    11 (define sls2 (skiplist 4 20 fixnum? - dups))
    12 (define sls1 (skiplist 15 fixnum? -))
    13 (define sls (skiplist integer? -))
    14 (define lst
    15   (let loop ((k 0) (lst '()))
    16     (if (= k 100)
    17       lst
    18       (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
    19 (define item-type (lambda (x)
    20                    (and ((list-of? integer?) x) (> (length x) 2))))
    21 (define primary-order (lambda (x y) (- (car x) (car y))))
    22 (define secondary-order (lambda (x y) (- (cadr x) (cadr y))))
    23 (define sls3 (skiplist 3
    24                        10
    25                        item-type
    26                        primary-order
    27                        secondary-order
    28                        dups))
    29 (define lst1
    30   (let loop ((k 0) (lst '()))
    31     (if (= k 100)
    32       lst
    33       (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
    34 (define lst2
    35   (let loop ((k 0) (lst '()))
    36     (if (= k 100)
    37       lst
    38       (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
    39 (define lst3
    40   (let loop ((k 0) (lst '()))
    41     (if (= k 100)
    42       lst
    43       (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
    44 
    4511(define-test (skiplist-test)
     12  "SOME DEFINITIONS"
     13  (set! sls2 (skiplist 4 20 fixnum? - dups))
     14  (set! sls1 (skiplist 15 fixnum? -))
     15  (set! sls (skiplist integer? -))
     16  (set! lst
     17    (let loop ((k 0) (lst '()))
     18      (if (= k 100)
     19        lst
     20        (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
     21  (set! item-type (lambda (x)
     22                     (and ((list-of? integer?) x) (> (length x) 2))))
     23  (set! primary-order (lambda (x y) (- (car x) (car y))))
     24  (set! secondary-order (lambda (x y) (- (cadr x) (cadr y))))
     25  (set! sls3 (skiplist 3
     26                         10
     27                         item-type
     28                         primary-order
     29                         secondary-order
     30                         dups))
     31  (set! lst1
     32    (let loop ((k 0) (lst '()))
     33      (if (= k 100)
     34        lst
     35        (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
     36  (set! lst2
     37    (let loop ((k 0) (lst '()))
     38      (if (= k 100)
     39        lst
     40        (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
     41  (set! lst3
     42    (let loop ((k 0) (lst '()))
     43      (if (= k 100)
     44        lst
     45        (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
     46
    4647  "SOME CONSTRUCTORS"
    4748  '(define sls2 (skiplist 4 20 fixnum? - dups))
  • release/5/skiplists/trunk/skiplists.egg

    r38303 r39776  
    33 (license "BSD")
    44 (test-dependencies simple-tests)
    5  (author "Juergen Lorenz")
    6  (version "1.0.1")
    7  (components (extension skiplists
    8                         (csc-options "-d0" "-O3")
    9                         (modules %skiplists skiplists))))
     5 (author "[[Juergen Lorenz]]")
     6 (version "1.0.2")
     7 (components (extension skiplists (modules %skiplists skiplists))))
  • release/5/skiplists/trunk/tests/run.scm

    r37472 r39776  
    99        simple-tests)
    1010
    11 (define sls2 (skiplist 4 20 fixnum? - dups))
    12 (define sls1 (skiplist 15 fixnum? -))
    13 (define sls (skiplist integer? -))
    14 (define lst
    15   (let loop ((k 0) (lst '()))
    16     (if (= k 100)
    17       lst
    18       (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
    19 (define item-type (lambda (x)
    20                    (and ((list-of? integer?) x) (> (length x) 2))))
    21 (define primary-order (lambda (x y) (- (car x) (car y))))
    22 (define secondary-order (lambda (x y) (- (cadr x) (cadr y))))
    23 (define sls3 (skiplist 3
    24                        10
    25                        item-type
    26                        primary-order
    27                        secondary-order
    28                        dups))
    29 (define lst1
    30   (let loop ((k 0) (lst '()))
    31     (if (= k 100)
    32       lst
    33       (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
    34 (define lst2
    35   (let loop ((k 0) (lst '()))
    36     (if (= k 100)
    37       lst
    38       (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
    39 (define lst3
    40   (let loop ((k 0) (lst '()))
    41     (if (= k 100)
    42       lst
    43       (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
    44 
    4511(define-test (skiplist-test)
     12  "SOME DEFINITIONS"
     13  (set! sls2 (skiplist 4 20 fixnum? - dups))
     14  (set! sls1 (skiplist 15 fixnum? -))
     15  (set! sls (skiplist integer? -))
     16  (set! lst
     17    (let loop ((k 0) (lst '()))
     18      (if (= k 100)
     19        lst
     20        (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
     21  (set! item-type (lambda (x)
     22                     (and ((list-of? integer?) x) (> (length x) 2))))
     23  (set! primary-order (lambda (x y) (- (car x) (car y))))
     24  (set! secondary-order (lambda (x y) (- (cadr x) (cadr y))))
     25  (set! sls3 (skiplist 3
     26                         10
     27                         item-type
     28                         primary-order
     29                         secondary-order
     30                         dups))
     31  (set! lst1
     32    (let loop ((k 0) (lst '()))
     33      (if (= k 100)
     34        lst
     35        (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
     36  (set! lst2
     37    (let loop ((k 0) (lst '()))
     38      (if (= k 100)
     39        lst
     40        (loop (+ k 1) (cons (pseudo-random-integer 10) lst)))))
     41  (set! lst3
     42    (let loop ((k 0) (lst '()))
     43      (if (= k 100)
     44        lst
     45        (loop (+ k 1) (cons (pseudo-random-integer 100) lst)))))
     46
    4647  "SOME CONSTRUCTORS"
    4748  '(define sls2 (skiplist 4 20 fixnum? - dups))
Note: See TracChangeset for help on using the changeset viewer.