Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

ABCL report - difference in test results between ABCL 1.0.1 and 1.1.0…

… on quicklisp 2012-08-11
  • Loading branch information...
commit ea966044f5906b783240dd60d69c6daa3929ddaa 1 parent 75f505b
@avodonosov avodonosov authored
View
27 reporting/common.lisp
@@ -0,0 +1,27 @@
+;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
+;;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
+;;;; See LICENSE for details.
+
+(in-package #:test-grid-reporting)
+
+(defun log-link (result &rest fields)
+ "Generate HTML link to the online test suite log
+for the RESULT. The FIELDS specifies set of fields
+to include in to the text of the link, defaults to STATUS"
+ (setf fields (or fields '(status)))
+ (format nil "<a class=\"~a\" href=\"~a\">~{~a~^, ~}</a>"
+ (status-css-class (status result))
+ (lib-log-uri result)
+ (mapcar (alexandria:rcurry 'funcall result) fields)))
+
+(defun report-page (out title body)
+ (format out "<html><head>~%")
+ (format out " <title>~A - CL Test Grid</title>~%" title)
+ (format out " <link href=\"style.css\" rel=\"stylesheet\"/><head>~%")
+ (format out "</head>~%")
+ (format out "<body>~%")
+ (format out "~A~%" body)
+ (format out "<p class=\"timestamp\">Generated at: ~A GMT.</p>"
+ (test-grid-testsuites::pretty-fmt-time (get-universal-time)))
+ (format out "</body>~%")
+ (format out "</html>~%"))
View
17 reporting/contributors.lisp
@@ -0,0 +1,17 @@
+;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
+;;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
+;;;; See LICENSE for details.
+
+(in-package #:test-grid-reporting)
+
+(defun print-contributors (lib-world)
+ (dolist (run (getf (test-grid-data::read-db)
+ :runs))
+ (let ((descr (test-grid-data::run-descr run)))
+ (when (string= lib-world (getf descr :lib-world))
+ (format t "~A ~A~%"
+ (getf descr :lisp)
+ (getf (getf descr :contact) :email))))))
+
+;; usage
+;;(print-contributors "quicklisp 2012-07-03")
View
15 reporting/durations.lisp
@@ -1,3 +1,7 @@
+;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*-
+;;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
+;;;; See LICENSE for details.
+
(in-package #:test-grid-reporting)
(defun print-test-run-durations (lib-world)
@@ -12,14 +16,3 @@
;; usage:
;; (print-test-run-durations "quicklisp 2012-07-03")
-
-(defun print-contributors (lib-world)
- (dolist (run (getf (test-grid-data::read-db)
- :runs))
- (let ((descr (test-grid-data::run-descr run)))
- (when (string= lib-world (getf descr :lib-world))
- (format t "~A ~A~%"
- (getf descr :lisp)
- (getf (getf descr :contact) :email))))))
-
-(print-contributors "quicklisp 2012-07-03")
View
28 reporting/ecl-pages.lisp
@@ -26,16 +26,6 @@
(libname record))))))
;;; Rendering ECL abnormal results HTML page
-(defun log-link (result &rest fields)
- "Generate HTML link to the online test suite log
-for the RESULT. The FIELDS specifies set of fields
-to include in to the text of the link, defaults to STATUS"
- (setf fields (or fields '(status)))
- (format nil "<a class=\"~a\" href=\"~a\">~{~a~^, ~}</a>"
- (status-css-class (status result))
- (lib-log-uri result)
- (mapcar (alexandria:rcurry 'funcall result) fields)))
-
(defun print-ecl-results (destination results)
(format destination
"~{~{~A ~A ~A~}~%~}"
@@ -43,17 +33,13 @@ to include in to the text of the link, defaults to STATUS"
(list (lisp result) (status result) (log-link result 'libname)))
results)))
-(defun print-ecl-report (destination db)
- (format destination "<html><head>~%")
- (format destination " <title>ECL Abnormal Results - CL Test Grid</title>~%")
- (format destination " <link href=\"style.css\" rel=\"stylesheet\"/><head>~%")
- (format destination "<head>~%")
- (format destination "<h3>Abnormal test results for ECL ~A on quicklisp ~A</h3>~%"
- *last-ecl-version* *last-ecl-quicklisp*)
- (format destination "<body><pre>~%")
- (print-ecl-results destination (ecl-abnormal-results db))
- (format destination "</pre></body>~%")
- (format destination "</html>~%"))
+(defun print-ecl-report (out db)
+ (report-page out
+ "ECL Abnormal Results"
+ (with-output-to-string (s)
+ (format s "<h3>Abnormal test results for ECL ~A on quicklisp ~A</h3>~%"
+ *last-ecl-version* *last-ecl-quicklisp*)
+ (print-ecl-results s (ecl-abnormal-results db)))))
;;; Filtered pivot reports - contain only ECL data,
;;; or only abnormal ecl data, with various rotations
View
3  reporting/reporting.lisp
@@ -66,5 +66,6 @@
(with-report-file (out "quicklisps-test-diff.html")
(print-all-quicklisps-diff-report out joined-index)))
- (print-ecl-pages db))
+ (print-ecl-pages db)
+ (print-abcl-page db))
View
5 test-grid-reporting.asd
@@ -18,5 +18,8 @@
(:file "csv")
(:file "pivot")
(:file "regressions")
+ (:file "common")
(:file "ecl-pages")
- (:file "durations")))))
+ (:file "abcl-page")
+ (:file "durations")
+ (:file "contributors")))))
Please sign in to comment.
Something went wrong with that request. Please try again.