Commits

David Krentzlin committed d08ec93

updated execution order

  • Participants
  • Parent commits be0ace0
  • Tags 0.7

Comments (0)

Files changed (2)

 (define (report-failures failures)
   (for-each
    (if use-colors report-failure-colors report-failure-plain)
-   (reverse failures)))
+   failures))
 
 (define (report-failure-plain failure)
   (let* ((result (failure-result failure))
 (define (for-each-example-in-context callback context include exclude)
   (for-each
    callback
-   (reverse
-    (cond
-     ((and exclude include)
-      (if (meta-matches? (context-meta context) include)
-          (filter-examples context  #f exclude)
-          (filter-examples context include exclude)))
-     (include
-      (if (meta-matches? (context-meta context) include)
-          (filter-examples context #f exclude)
-          (filter-examples context include #f)))
-     (exclude     
-      (filter-examples context #f exclude))
-     (else  (context-examples context))))))
+   (cond
+    ((and exclude include)
+     (if (meta-matches? (context-meta context) include)
+         (filter-examples context  #f exclude)
+         (filter-examples context include exclude)))
+    (include
+     (if (meta-matches? (context-meta context) include)
+         (filter-examples context #f exclude)
+         (filter-examples context include #f)))
+    (exclude     
+     (filter-examples context #f exclude))
+    (else  (context-examples context)))))
 
 (define (run-example-with-hooks example context reporter)
   (reporter example mode: 'adhoc)