Changeset 30595 in project


Ignore:
Timestamp:
03/24/14 12:40:20 (7 years ago)
Author:
Alex Shinn
Message:

Patch from David Krentzlin - fixing indentation of values and source
info. Exporting current-test-group and other procedures.

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

Legend:

Unmodified
Added
Removed
  • release/4/test/tags/0.9.9.6/test-support.scm

    r29348 r30595  
    11;;;; test-support.scm -- runtime for test extension
    22;;
    3 ;; Copyright (c) 2007-2008 Alex Shinn. All rights reserved.
     3;; Copyright (c) 2007-2014 Alex Shinn. All rights reserved.
    44;; BSD-style license: http://synthcode.com/license.txt
    55
     
    273273            ((assq-ref info 'line-number)
    274274             => (lambda (line)
    275                   (display "    in line ")
     275                  (display indent)
     276                  (display "in line ")
    276277                  (write line)
    277278                  (cond ((assq-ref info 'file-name)
     
    285286                             (current-column-width)))
    286287                      (for-each
    287                        (lambda (line) (display "    ") (display line) (newline))
     288                       (lambda (line) (display indent) (display line) (newline))
    288289                       (string-split
    289290                        (with-output-to-string (lambda () (pp s)))
     
    294295                  (for-each
    295296                   (lambda (v)
    296                      (display "    ") (display (car v))
     297                     (display indent) (display (car v))
    297298                     (display ": ") (write (cdr v)) (newline))
    298299                   v)))))
  • release/4/test/tags/0.9.9.6/test.scm

    r20011 r30595  
    66(module test
    77  (test test-error test-assert
    8    (test-group test-group-inc! current-test-group)
     8   test-group test-group-inc! current-test-group
    99   test-begin test-end test-syntax-error test-info
    10    (test-vars test-run) test-exit
     10   test-vars test-run test-exit
    1111   current-test-verbosity current-test-epsilon current-test-comparator
    1212   current-test-applier current-test-handler current-test-skipper
  • release/4/test/tags/0.9.9.6/test.setup

    r29348 r30595  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.5)))
     7 '((version 0.9.9.6)))
  • release/4/test/trunk/test-support.scm

    r29348 r30595  
    11;;;; test-support.scm -- runtime for test extension
    22;;
    3 ;; Copyright (c) 2007-2008 Alex Shinn. All rights reserved.
     3;; Copyright (c) 2007-2014 Alex Shinn. All rights reserved.
    44;; BSD-style license: http://synthcode.com/license.txt
    55
     
    273273            ((assq-ref info 'line-number)
    274274             => (lambda (line)
    275                   (display "    in line ")
     275                  (display indent)
     276                  (display "in line ")
    276277                  (write line)
    277278                  (cond ((assq-ref info 'file-name)
     
    285286                             (current-column-width)))
    286287                      (for-each
    287                        (lambda (line) (display "    ") (display line) (newline))
     288                       (lambda (line) (display indent) (display line) (newline))
    288289                       (string-split
    289290                        (with-output-to-string (lambda () (pp s)))
     
    294295                  (for-each
    295296                   (lambda (v)
    296                      (display "    ") (display (car v))
     297                     (display indent) (display (car v))
    297298                     (display ": ") (write (cdr v)) (newline))
    298299                   v)))))
  • release/4/test/trunk/test.scm

    r20011 r30595  
    66(module test
    77  (test test-error test-assert
    8    (test-group test-group-inc! current-test-group)
     8   test-group test-group-inc! current-test-group
    99   test-begin test-end test-syntax-error test-info
    10    (test-vars test-run) test-exit
     10   test-vars test-run test-exit
    1111   current-test-verbosity current-test-epsilon current-test-comparator
    1212   current-test-applier current-test-handler current-test-skipper
  • release/4/test/trunk/test.setup

    r29348 r30595  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.5)))
     7 '((version 0.9.9.6)))
Note: See TracChangeset for help on using the changeset viewer.