Commit 14968147 authored by Liam Healy's avatar Liam Healy
Browse files

Convert GSL test file to a list of CL forms

Convert the cdf/test.c GSL test file to a list of CL forms.  This
requires cl-ppcre and iterate, and is not normally loaded with either
gsll or gsll-tests.
parent 039d1089
;; Convert the GSL tests
;; Liam Healy 2010-05-22 13:03:53EDT convert.lisp
;; Time-stamp: <2010-05-22 16:18:38EDT convert.lisp>
;;; This file is not normally loaded; it is only used to convert the
;;; GSL tests in C to CL tests. It requires cl-ppcre and iterate.
(in-package :gsl)
;;; (convert-gsl-test "(gsl_cdf_tdist_P, (0.001, 1.0), 5.00318309780080559e-1, TEST_TOL6)")
;;; (GSL_CDF_TDIST_P (0.001d0 1.0d0) 0.5003183097800805d0 TEST_TOL6)
(defun convert-gsl-test (string)
"Read the GSL test as a string and generate a test form.
The first character of the string should be
open paren, and the last the close paren."
(cons 'assert-to-tolerance
#\, ; Get rid of commas
(cl-ppcre:regex-replace ; Replace function name
(cl-ppcre:regex-replace-all ; Floats without exponents become double-floats
(cl-ppcre:regex-replace-all ; Floats with "e" exponent become double-floats
(cl-ppcre:regex-replace ; Replace tolerance
(lambda (match &rest registers)
(declare (ignore match))
"((~a ~a"
(symbol-name (gsl-lookup (first registers)))
(second registers)))
:simple-calls t)))))
(defun GSL-test-form (string)
"Replace the full C form with the TEST macro by just the argument."
(remove #\newline string)
(defun file-to-string (file)
"Find the tests in the file and convert them to lisp."
(let ((stream (make-string-output-stream)))
(iter:iter (iter:for ch iter::in-file file :using #'read-char)
(princ ch stream))
(get-output-stream-string stream)))
(defun find-tests-in-file (file)
(let ((filestring (file-to-string file)))
(cl-ppcre:all-matches-as-strings " TEST .*;" filestring)))
(defun convert-tests-in-file (file)
"Convert all the tests in the file to CL."
;; Only works for cdf/test.c at present.
(let ((tests (find-tests-in-file file)))
(mapcar (lambda (test) (convert-gsl-test (gsl-test-form test))) tests)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment