Changeset 30470 in project


Ignore:
Timestamp:
02/15/14 13:30:03 (6 years ago)
Author:
juergen
Message:

tests in loops ported to simple-tests

Location:
release/4/loops
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/loops/tags/1.0.4/loops.meta

    r24950 r30470  
    44 (category lang-exts)
    55 (license "BSD")
    6  (doc-from-wiki #t)
     6 (test-depends simple-tests)
    77 (author "Juergen Lorenz")
    88 (files "loops.release-info" "loops.scm" "loops.setup"
  • release/4/loops/tags/1.0.4/loops.setup

    r25293 r30470  
    77 'loops
    88 '("loops.so" "loops.import.so")
    9  '((version "1.0.3")))
     9 '((version "1.0.4")))
  • release/4/loops/tags/1.0.4/tests/run.scm

    r24899 r30470  
    1 ;;;; File: loops-run.scm
    2 ;;;; Author: Juergen Lorenz
    3 ;;;; ju (at) jugilo (dot) de
    4 ;;;; Date: Jun 20, 2011
    5 ;;;;       Jul 13, 2011
    6 ;;;;       Sep 03, 2011
     1(require-library loops simple-tests)
     2(import loops simple-tests)
    73
     4(define-test (loops?)
     5  (check
     6    (equal?
     7      (let ((lst '()))
     8        (do-times i (+ 2 3)
     9          (set! lst (cons i lst)))
     10        lst)
     11      '(4 3 2 1 0))
     12    (equal?
     13      (let ((lst '()))
     14        (do-list i '(1 2 3)
     15                 (set! lst (cons i lst)))
     16        lst)
     17      '(3 2 1))
     18    (equal?
     19      (let ((lst '()))
     20        (do-for i (1 5) (set! lst (cons i lst)))
     21        (reverse lst))
     22      '(1 2 3 4))
     23    (equal?
     24      (let ((lst '()))
     25        (do-for i (1 65 i) (set! lst (cons i lst)))
     26        (reverse lst))
     27      '(1 2 4 8 16 32 64))
     28    (equal?
     29      (let ((n 4) (lst '()))
     30        (do-while (<= 0 n)
     31                  (set! lst (cons n lst))
     32                  (set! n (- n 1)))
     33        lst)
     34      '(0 1 2 3 4))
     35    (equal?
     36      (let ((n 4) (lst '()))
     37        (do-until (> 0 n)
     38                  (set! lst (cons n lst))
     39                  (set! n (- n 1)))
     40        lst)
     41      '(0 1 2 3 4))
     42    (equal?
     43      (let ((n 3) (lst '()))
     44        (do-forever
     45          (if (zero? n) (exit lst))
     46          (set! lst (cons 'a lst))
     47          (set! n (- n 1))))
     48      '(a a a))
     49    ))
    850
    9 (require 'loops)
    10 (import loops)
    11 
    12 ;;; (run xpr0 xpr1 ...)
    13 ;;; -------------------
    14 (define (run . xprs)
    15   (let loop ((xprs xprs))
    16     (if (null? xprs)
    17       (print "All tests passed!")
    18       (if (car xprs)
    19         (loop (cdr xprs))
    20         (error 'run "#### Some test failed! ####")))))
    21 
    22 (run
    23   (equal?
    24     (let ((lst '()))
    25       (do-times i (+ 2 3)
    26         (set! lst (cons i lst)))
    27       lst)
    28     '(4 3 2 1 0))
    29   (equal?
    30     (let ((lst '()))
    31       (do-list i '(1 2 3)
    32                (set! lst (cons i lst)))
    33       lst)
    34     '(3 2 1))
    35   (equal?
    36     (let ((lst '()))
    37       (do-for i (1 5) (set! lst (cons i lst)))
    38       (reverse lst))
    39     '(1 2 3 4))
    40   (equal?
    41     (let ((lst '()))
    42       (do-for i (1 65 i) (set! lst (cons i lst)))
    43       (reverse lst))
    44     '(1 2 4 8 16 32 64))
    45   (equal?
    46     (let ((n 4) (lst '()))
    47       (do-while (<= 0 n)
    48                 (set! lst (cons n lst))
    49                 (set! n (- n 1)))
    50       lst)
    51     '(0 1 2 3 4))
    52   (equal?
    53     (let ((n 4) (lst '()))
    54       (do-until (> 0 n)
    55                 (set! lst (cons n lst))
    56                 (set! n (- n 1)))
    57       lst)
    58     '(0 1 2 3 4))
    59   (equal?
    60     (let ((n 3) (lst '()))
    61       (do-forever
    62         (if (zero? n) (exit lst))
    63         (set! lst (cons 'a lst))
    64         (set! n (- n 1))))
    65     '(a a a))
    66   )
     51(compound-test (LOOPS)
     52  (loops?))
  • release/4/loops/trunk/loops.meta

    r24950 r30470  
    44 (category lang-exts)
    55 (license "BSD")
    6  (doc-from-wiki #t)
     6 (test-depends simple-tests)
    77 (author "Juergen Lorenz")
    88 (files "loops.release-info" "loops.scm" "loops.setup"
  • release/4/loops/trunk/loops.setup

    r25293 r30470  
    77 'loops
    88 '("loops.so" "loops.import.so")
    9  '((version "1.0.3")))
     9 '((version "1.0.4")))
  • release/4/loops/trunk/tests/run.scm

    r24899 r30470  
    1 ;;;; File: loops-run.scm
    2 ;;;; Author: Juergen Lorenz
    3 ;;;; ju (at) jugilo (dot) de
    4 ;;;; Date: Jun 20, 2011
    5 ;;;;       Jul 13, 2011
    6 ;;;;       Sep 03, 2011
     1(require-library loops simple-tests)
     2(import loops simple-tests)
    73
     4(define-test (loops?)
     5  (check
     6    (equal?
     7      (let ((lst '()))
     8        (do-times i (+ 2 3)
     9          (set! lst (cons i lst)))
     10        lst)
     11      '(4 3 2 1 0))
     12    (equal?
     13      (let ((lst '()))
     14        (do-list i '(1 2 3)
     15                 (set! lst (cons i lst)))
     16        lst)
     17      '(3 2 1))
     18    (equal?
     19      (let ((lst '()))
     20        (do-for i (1 5) (set! lst (cons i lst)))
     21        (reverse lst))
     22      '(1 2 3 4))
     23    (equal?
     24      (let ((lst '()))
     25        (do-for i (1 65 i) (set! lst (cons i lst)))
     26        (reverse lst))
     27      '(1 2 4 8 16 32 64))
     28    (equal?
     29      (let ((n 4) (lst '()))
     30        (do-while (<= 0 n)
     31                  (set! lst (cons n lst))
     32                  (set! n (- n 1)))
     33        lst)
     34      '(0 1 2 3 4))
     35    (equal?
     36      (let ((n 4) (lst '()))
     37        (do-until (> 0 n)
     38                  (set! lst (cons n lst))
     39                  (set! n (- n 1)))
     40        lst)
     41      '(0 1 2 3 4))
     42    (equal?
     43      (let ((n 3) (lst '()))
     44        (do-forever
     45          (if (zero? n) (exit lst))
     46          (set! lst (cons 'a lst))
     47          (set! n (- n 1))))
     48      '(a a a))
     49    ))
    850
    9 (require 'loops)
    10 (import loops)
    11 
    12 ;;; (run xpr0 xpr1 ...)
    13 ;;; -------------------
    14 (define (run . xprs)
    15   (let loop ((xprs xprs))
    16     (if (null? xprs)
    17       (print "All tests passed!")
    18       (if (car xprs)
    19         (loop (cdr xprs))
    20         (error 'run "#### Some test failed! ####")))))
    21 
    22 (run
    23   (equal?
    24     (let ((lst '()))
    25       (do-times i (+ 2 3)
    26         (set! lst (cons i lst)))
    27       lst)
    28     '(4 3 2 1 0))
    29   (equal?
    30     (let ((lst '()))
    31       (do-list i '(1 2 3)
    32                (set! lst (cons i lst)))
    33       lst)
    34     '(3 2 1))
    35   (equal?
    36     (let ((lst '()))
    37       (do-for i (1 5) (set! lst (cons i lst)))
    38       (reverse lst))
    39     '(1 2 3 4))
    40   (equal?
    41     (let ((lst '()))
    42       (do-for i (1 65 i) (set! lst (cons i lst)))
    43       (reverse lst))
    44     '(1 2 4 8 16 32 64))
    45   (equal?
    46     (let ((n 4) (lst '()))
    47       (do-while (<= 0 n)
    48                 (set! lst (cons n lst))
    49                 (set! n (- n 1)))
    50       lst)
    51     '(0 1 2 3 4))
    52   (equal?
    53     (let ((n 4) (lst '()))
    54       (do-until (> 0 n)
    55                 (set! lst (cons n lst))
    56                 (set! n (- n 1)))
    57       lst)
    58     '(0 1 2 3 4))
    59   (equal?
    60     (let ((n 3) (lst '()))
    61       (do-forever
    62         (if (zero? n) (exit lst))
    63         (set! lst (cons 'a lst))
    64         (set! n (- n 1))))
    65     '(a a a))
    66   )
     51(compound-test (LOOPS)
     52  (loops?))
Note: See TracChangeset for help on using the changeset viewer.