about summary refs log tree commit diff
path: root/pkgs/development/lisp-modules-new-obsolete/test
diff options
context:
space:
mode:
Diffstat (limited to 'pkgs/development/lisp-modules-new-obsolete/test')
-rw-r--r--pkgs/development/lisp-modules-new-obsolete/test/lispPackagesToTest.txt395
-rwxr-xr-xpkgs/development/lisp-modules-new-obsolete/test/test.lisp94
2 files changed, 0 insertions, 489 deletions
diff --git a/pkgs/development/lisp-modules-new-obsolete/test/lispPackagesToTest.txt b/pkgs/development/lisp-modules-new-obsolete/test/lispPackagesToTest.txt
deleted file mode 100644
index 940d3b65f3eeb..0000000000000
--- a/pkgs/development/lisp-modules-new-obsolete/test/lispPackagesToTest.txt
+++ /dev/null
@@ -1,395 +0,0 @@
-_1am
-_3bmd
-_3bmd-ext-code-blocks
-access
-acclimation
-agutil
-alexandria
-anaphora
-arnesi
-array-operations
-array-utils
-arrows
-asdf
-asdf-package-system
-asdf-system-connections
-babel
-binomial-heap
-binpack
-blackbird
-bordeaux-threads
-buildnode
-buildnode-xhtml
-calispel
-cffi
-cffi-grovel
-cffi-toolchain
-cffi-uffi-compat
-chanl
-check-it
-chipz
-chunga
-circular-streams
-cl-aa
-cl-annot
-cl-anonfun
-cl-ansi-text
-cl-async
-cl-async-base
-cl-async-repl
-cl-async-ssl
-cl-async-util
-cl-base64
-cl-cffi-gtk
-cl-cffi-gtk-cairo
-cl-cffi-gtk-gdk
-cl-cffi-gtk-gdk-pixbuf
-cl-cffi-gtk-gio
-cl-cffi-gtk-glib
-cl-cffi-gtk-gobject
-cl-cffi-gtk-pango
-cl-change-case
-cl-cli
-cl-colors
-cl-colors2
-cl-containers
-cl-cookie
-cl-css
-cl-csv
-cl-cuda
-cl-custom-hash-table
-cl-dbi
-cl-difflib
-cl-digraph
-cl-dot
-cl-emb
-cl-environments
-cl-fad
-cl-form-types
-cl-fuse
-cl-fuse-meta-fs
-cl-fuzz
-cl-geometry
-cl-gobject-introspection
-cl-heap
-cl-hooks
-cl-html-diff
-cl-html-parse
-cl-html5-parser
-cl-interpol
-cl-jpeg
-cl-json
-cl-l10n
-cl-l10n-cldr
-cl-libuv
-cl-locale
-cl-markup
-cl-mustache
-cl-mysql
-cl-num-utils
-cl-paths
-cl-paths-ttf
-cl-pattern
-cl-pdf
-cl-postgres
-cl-postgres_plus_local-time
-cl-postgres_slash_tests
-cl-ppcre
-cl-ppcre-template
-cl-ppcre-test
-cl-ppcre-unicode
-cl-prevalence
-cl-protobufs
-cl-qprint
-cl-qrencode
-cl-reexport
-cl-shellwords
-cl-slice
-cl-smt-lib
-cl-smtp
-cl-speedy-queue
-cl-store
-cl-svg
-cl-syntax
-cl-syntax-annot
-cl-syntax-anonfun
-cl-syntax-markup
-cl-syslog
-cl-test-more
-cl-typesetting
-cl-unicode
-cl-unification
-cl-utilities
-cl-vectors
-cl-webkit2
-cl-who
-cl-xmlspam
-cl_plus_ssl
-clack
-clack-socket
-classowary
-clfswm
-closer-mop
-closure-common
-closure-html
-clsql
-clsql-postgresql
-clsql-postgresql-socket
-clsql-sqlite3
-clsql-uffi
-clss
-cluffer
-clump
-clump-2-3-tree
-clump-binary-tree
-clunit
-clunit2
-clx
-clx-truetype
-collectors
-colorize
-command-line-arguments
-css-lite
-css-selectors
-css-selectors-simple-tree
-css-selectors-stp
-cxml
-cxml-stp
-cxml_slash_test
-data-table
-dbd-mysql
-dbd-postgres
-dbd-sqlite3
-dbi
-dbi-test
-dbus
-defclass-std
-dexador
-dissect
-djula
-do-urlencode
-documentation-utils
-drakma
-eager-future2
-enchant
-esrap
-esrap-peg
-external-program
-fare-csv
-fare-mop
-fare-quasiquote
-fare-quasiquote-extras
-fare-quasiquote-optima
-fare-quasiquote-readtable
-fare-utils
-fast-http
-fast-io
-fiasco
-file-attributes
-fiveam
-flexi-streams
-float-features
-flow
-fn
-form-fiddle
-fset
-generic-cl
-generic-cl_dot_arithmetic
-generic-cl_dot_collector
-generic-cl_dot_comparison
-generic-cl_dot_container
-generic-cl_dot_internal
-generic-cl_dot_iterator
-generic-cl_dot_lazy-seq
-generic-cl_dot_map
-generic-cl_dot_math
-generic-cl_dot_object
-generic-cl_dot_sequence
-generic-cl_dot_set
-gettext
-global-vars
-glsl-docs
-glsl-spec
-glsl-symbols
-heap
-html-encode
-http-body
-hu_dot_dwim_dot_asdf
-hu_dot_dwim_dot_common
-hu_dot_dwim_dot_common-lisp
-hu_dot_dwim_dot_def
-hu_dot_dwim_dot_def_plus_swank
-hu_dot_dwim_dot_defclass-star
-hu_dot_dwim_dot_stefil
-hu_dot_dwim_dot_stefil_plus_hu_dot_dwim_dot_def
-hu_dot_dwim_dot_stefil_plus_hu_dot_dwim_dot_def_plus_swank
-hu_dot_dwim_dot_stefil_plus_swank
-hunchensocket
-hunchentoot
-idna
-ieee-floats
-inferior-shell
-introspect-environment
-iolib
-iolib_dot_asdf
-iolib_dot_base
-iolib_dot_common-lisp
-iolib_dot_conf
-ironclad
-iterate
-jonathan
-jpl-queues
-jpl-util
-jsown
-kmrcl
-lack
-lack-component
-lack-middleware-backtrace
-lack-util
-lambda-fiddle
-legit
-let-plus
-lev
-lfarm-client
-lfarm-common
-lfarm-server
-lfarm-ssl
-lift
-lisp-binary
-lisp-namespace
-lisp-unit
-lisp-unit2
-lla
-local-time
-log4cl
-lparallel
-lquery
-marshal
-md5
-metabang-bind
-metatilities-base
-mgl
-mgl-mat
-mgl-pax
-minheap
-misc-extensions
-mk-string-metrics
-mmap
-moptilities
-more-conditions
-mt19937
-named-readtables
-nbd
-net-telent-date
-net_dot_didierverna_dot_asdf-flv
-nibbles
-nyxt
-optima
-osicat
-parachute
-parenscript
-parse-declarations-1_dot_0
-parse-float
-parse-number
-parseq
-parser-combinators
-parser_dot_common-rules
-pcall
-pcall-queue
-physical-quantities
-plump
-postmodern
-proc-parse
-prove
-prove-asdf
-ptester
-puri
-pythonic-string-reader
-quasiquote-2_dot_0
-query-fs
-quri
-rfc2388
-rove
-rt
-s-sql
-s-sql_slash_tests
-s-sysdeps
-s-xml
-salza2
-serapeum
-simple-date
-simple-date-time
-simple-date_slash_postgres-glue
-simple-inferiors
-simple-tasks
-slynk
-smart-buffer
-smug
-spinneret
-split-sequence
-sqlite
-static-dispatch
-static-vectors
-stefil
-str
-string-case
-stumpwm
-swank
-swap-bytes
-sycamore
-symbol-munger
-trees
-trivia
-trivia_dot_balland2006
-trivia_dot_level0
-trivia_dot_level1
-trivia_dot_level2
-trivia_dot_quasiquote
-trivia_dot_trivial
-trivial-arguments
-trivial-backtrace
-trivial-clipboard
-trivial-cltl2
-trivial-features
-trivial-file-size
-trivial-garbage
-trivial-gray-streams
-trivial-indent
-trivial-macroexpand-all
-trivial-main-thread
-trivial-mimes
-trivial-package-local-nicknames
-trivial-shell
-trivial-types
-trivial-utf-8
-trivial-with-current-source-form
-type-i
-uax-15
-uffi
-uiop
-unit-test
-unix-options
-unix-opts
-usocket
-usocket-server
-utilities_dot_print-items
-utilities_dot_print-tree
-uuid
-varjo
-vas-string-metrics
-vecto
-vom
-wild-package-inferred-system
-woo
-wookie
-xembed
-xkeyboard
-xml_dot_location
-xmls
-xpath
-xpath_slash_test
-xsubseq
-yacc
-yason
-zpb-ttf
-zpng
diff --git a/pkgs/development/lisp-modules-new-obsolete/test/test.lisp b/pkgs/development/lisp-modules-new-obsolete/test/test.lisp
deleted file mode 100755
index c9b5dc938320a..0000000000000
--- a/pkgs/development/lisp-modules-new-obsolete/test/test.lisp
+++ /dev/null
@@ -1,94 +0,0 @@
-#!/usr/bin/env -S sbcl --script
-
-(require :uiop)
-
-;; prevent glibc hell
-(setf (uiop:getenv "LD_LIBRARY_PATH") "")
-
-(defparameter packages (uiop:read-file-lines "./lispPackagesToTest.txt"))
-
-(defparameter lisp (or (cadr sb-ext:*posix-argv*) "sbcl"))
-
-(defparameter nix-build "nix-build -E 'with import ../../../../default.nix {}; lispPackages_new.~aPackages.~a'")
-
-(defparameter cpu-count
-  (length
-   (remove-if-not
-    (lambda (line)
-      (uiop:string-prefix-p "processor" line))
-    (uiop:read-file-lines "/proc/cpuinfo"))))
-
-(defparameter sem (sb-thread:make-semaphore :count cpu-count))
-
-(defparameter statuses (make-hash-table :synchronized t))
-
-(defparameter log-lock (sb-thread:make-mutex))
-
-(format *error-output* "Testing ~a on ~a cores~%" lisp cpu-count)
-
-(defun clear-line ()
-  (write-char #\Return *error-output*)
-  (write-char #\Escape *error-output*)
-  (write-char #\[ *error-output*)
-  (write-char #\K *error-output*))
-
-(declaim (type fixnum errors))
-(defglobal errors 0)
-
-(defmacro when-let (bindings &rest body)
-  (reduce
-   (lambda (expansion form)
-     (destructuring-bind (var test) form
-       (let ((testsym (gensym (symbol-name var))))
-         `(let ((,testsym ,test))
-            (when ,testsym
-              (let ((,var ,testsym))
-                ,expansion))))))
-   (reverse bindings)
-   :initial-value `(progn ,@body)))
-
-(dolist (pkg packages)
-  (sb-thread:wait-on-semaphore sem)
-  (sb-thread:make-thread
-   (lambda ()
-     (handler-case
-         (unwind-protect
-              (multiple-value-bind (out err code)
-                  (uiop:run-program
-                   (format nil nix-build lisp pkg)
-                   :error-output '(:string :stripped t)
-                   :ignore-error-status t)
-                (declare (ignorable err))
-                (setf (gethash pkg statuses) code)
-                (when-let ((pos (search "LOAD-FOREIGN-LIBRARY-ERROR" err :test #'string=))
-                           (lines (uiop:split-string (subseq err pos) :separator '(#\Newline))))
-                  (setf (gethash pkg statuses)
-                        (fourth lines)))
-                (sb-thread:with-mutex (log-lock)
-                  (clear-line)
-                  (format *error-output* "[~a/~a] ~[OK~:;ERROR~] ~a~[~:;~%~]"
-                          (hash-table-count statuses)
-                          (length packages)
-                          code
-                          pkg
-                          code)
-                  (force-output *error-output*))
-                (unless (zerop code)
-                  (sb-ext:atomic-incf errors)))
-           (sb-thread:signal-semaphore sem))
-       (error (e)
-         (format t "~a~%" e)
-         (sb-ext:quit :recklessly-p t :unix-status 1))))))
-
-(sb-thread:wait-on-semaphore sem :n cpu-count)
-
-(format t "~%Done (~a/~a)."
-        (- (length packages) errors)
-        (length packages))
-
-(when (plusp errors)
-  (format t "~%~%~a Errors: " errors)
-  (maphash (lambda (k v)
-             (unless (and (numberp v) (zerop v))
-               (format t "~%  ~a: ~a" k v)))
-           statuses))