Changeset 2804

Show
Ignore:
Timestamp:
03/26/08 15:11:40 (10 months ago)
Author:
ksprotte
Message:

added (cl-ppcre-run-no-failures-p)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/build.lisp

    r2753 r2804  
    9494     (exit (if any-failed 1 0)))) 
    9595 
     96(defun cl-ppcre-run-no-failures-p () 
     97  (let ((expected ".......... 
     98.......... 
     99.......... 
     100.......... 
     101.......... 
     102.......... 
     103...... 
     104 662 (\"a\" =~ /((a)*)*/): 
     105   \\2: expected NIL but got \"a\" 
     106.... 
     107......... 
     108 790 (\"babc\" =~ /^(b*|ba){1,2}bc/): 
     109   \\1: expected \"\" but got \"ba\" 
     110. 
     111.......... 
     112.......... 
     113.......... 
     114.......... 
     115.......... 
     116.......... 
     117... 
     1181439 (\"dbaacb\" =~ /(?<!(c|d))[ab]/): 
     119   \\1: expected NIL but got \"d\" 
     120....... 
     121.......... 
     122..")) 
     123    (string= expected 
     124             (with-output-to-string (*standard-output*) 
     125               (cl-ppcre-test:test))))) 
     126 
    96127(defun fiveam-run-no-failures-p (test) 
    97128  (let ((results (5am::run test))) 
    …… 
    103134  (format t "~&;;; --- running tests~%") 
    104135  (run-tests 
    105     (progn (cl-ppcre-test:test) 
    106            (warn "skipping cl-ppcre failures for now") 
    107            t) 
    108     (progn (cl-gd-test:test) 
    109            (warn "skipping cl-gd test result for now") 
    110            t) 
    111     (unit-test:run-all-tests) 
    112     (fiveam-run-no-failures-p :bknr.datastore) 
    113     (fiveam-run-no-failures-p :bknr.geometry) 
    114     (progn (asdf:oos 'asdf:load-op :cl-json.test) 
    115            (warn "result of cl-json test ignored for now") 
    116            t))) 
     136   (cl-ppcre-run-no-failures-p)     
     137   (progn (cl-gd-test:test) 
     138          (warn "skipping cl-gd test result for now") 
     139          t) 
     140   (unit-test:run-all-tests) 
     141   (fiveam-run-no-failures-p :bknr.datastore) 
     142   (fiveam-run-no-failures-p :bknr.geometry) 
     143   (progn (asdf:oos 'asdf:load-op :cl-json.test) 
     144          (warn "result of cl-json test ignored for now") 
     145          t)))