Permalink
Browse files

first commit

  • Loading branch information...
0 parents commit 5be7639873ad8fd22705ecb7fde1f41fc821a3b1 @avodonosov avodonosov committed Nov 14, 2011
Showing with 848 additions and 0 deletions.
  1. +19 −0 LICENSE
  2. +3 −0 README.org
  3. +6 −0 db.lisp
  4. +67 −0 report-template.html
  5. +15 −0 test-grid.asd
  6. +689 −0 test-grid.lisp
  7. +49 −0 user-session.lisp
19 LICENSE
@@ -0,0 +1,19 @@
+Copyright (C) 2011 by Anton Vodonosov (avodonosov@yandex.ru).
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
@@ -0,0 +1,3 @@
+Collaborative testing of Common Lisp libraries.
+
+The project is under development, documentation will be added later.
@@ -0,0 +1,6 @@
+(:VERSION 0 :RUNS
+ (((:LISP "sbcl-1.0.47.9.275.wth.kovalenko-win-x86" :LIB-WORLD "quicklisp 2011-07-30" :TIME 3530221616 :RUN-DURATION 212 :CONTACT
+ (:EMAIL "avodonosov@yandex.ru"))
+ (:BORDEAUX-THREADS (:STATUS :OK :OUTPUT-CHAR-LENGTH 128) :FLEXI-STREAMS (:STATUS :FAIL :OUTPUT-CHAR-LENGTH 55934) :USOCKET
+ (:STATUS :FAIL :OUTPUT-CHAR-LENGTH 4269) :CL-PPCRE (:STATUS :OK :OUTPUT-CHAR-LENGTH 521) :CFFI (:STATUS :FAIL :OUTPUT-CHAR-LENGTH 7801) :TRIVIAL-FEATURES
+ (:STATUS :OK :OUTPUT-CHAR-LENGTH 221) :BABEL (:STATUS :FAIL :OUTPUT-CHAR-LENGTH 570) :ALEXANDRIA (:STATUS :FAIL :OUTPUT-CHAR-LENGTH 1699)))))
@@ -0,0 +1,67 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-us">
+<head>
+
+ <title>CL Test Grid Report</title>
+
+ <link rel="stylesheet" href="http://tablesorter.com/themes/blue/style.css" type="text/css" id="" media="print, projection, screen" />
+
+ <script type="text/javascript" src="https://ajax.googleapis.com/ajax/libs/jquery/1.6.4/jquery.min.js"></script>
+ <script type="text/javascript" src="http://autobahn.tablesorter.com/jquery.tablesorter.min.js"></script>
+
+ <script type="text/javascript" id="js">
+ $(document).ready(function() {
+ // call the tablesorter plugin
+ $("table").tablesorter();
+ });
+ </script>
+
+ <style type="text/css">
+
+ .test-status {
+ font-weight: bold;
+ }
+
+ .fail-status {
+ color: red;
+ }
+
+ .no-resource-status {
+ color: black;
+ }
+
+ .ok-status {
+ color: green;
+ }
+
+</style>
+
+</head>
+<body>
+ <h1>CL Test Grid Report</h1>
+
+ <div class="legend">
+ <h4>Legend</h4>
+ <p>Library test statuses:
+ <ul>
+ <li><span class="test-status fail-status">F</span> stands for FAIL</li>
+ <li><span class="test-status ok-status">O</span> stands for OK</li>
+ <li><span class="test-status no-resource-status">R</span> stands for No Resourse - the test suite
+ can not be run because some required
+ resource is absent in the environment. For example, CFFI library
+ test suite needs a small C library compiled to DLL. User must
+ do it manually. In case the DLL is absent, the LIBTEST method
+ for CFFI returns :NO-RESOURCE
+ </li>
+ </ul>
+ </p>
+ <p>In the result table you may click the status letter to open the library test logs</p>
+ <p>Sort columns by clicking the column. Hold Shift when clicking to create multi-column sorting.</p>
+ </div>
+<!-- the table should have attributes cellspacing="1" class="tablesorter" -->
+{THE-TABLE}
+<small>Table sorting is powered by <a href="http://tablesorter.com/">http://tablesorter.com/</a></small>
+</body>
+</html>
+
@@ -0,0 +1,15 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; -*-
+;;;
+;;; Copyright (C) 2011 Anton Vodonosov (avodonosov@yandex.ru)
+;;;
+;;; See LICENSE for details.
+
+(asdf:defsystem #:test-grid
+ :serial t
+ :version "0.1.0"
+ :depends-on (#:quicklisp)
+ :components ((:file "test-grid")))
+
+(defpackage #:test-grid-config (:export #:*src-base-dir*))
+(defparameter test-grid-config:*src-base-dir*
+ (make-pathname :name nil :type nil :defaults *load-truename*))
Oops, something went wrong.

0 comments on commit 5be7639

Please sign in to comment.