Commit 3affbf30 by Liam M. Healy

Semi-automatic conversion of GSL tests for gamma special function

Modified the parser converter for semi-automatic conversion of GSL
tests for gamma special function.  Still need some work to handle
multiple values.
parent 43d055c2
;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
;; Time-stamp: <2010-05-22 17:52:17EDT augment.lisp>
;; Time-stamp: <2010-05-27 17:35:17EDT augment.lisp>
;; Copyright 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -40,8 +40,11 @@
(defmacro assert-to-tolerance (form expected-value tolerance)
`(let ((lisp-unit:*epsilon* ,tolerance))
,(if (listp expected-value)
`(subseq (multiple-value-list ,form)
0 ,(length (eval expected-value)))
`(nth-value 0 ,form)))))
(defmacro assert-posinf (form)
;; Convert the GSL tests
;; Liam Healy 2010-05-22 13:03:53EDT convert.lisp
;; Time-stamp: <2010-05-26 19:40:22EDT convert.lisp>
;; Time-stamp: <2010-05-27 10:27:14EDT 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, lisp-util, and iterate.
......@@ -83,7 +83,7 @@
:simple-calls t))
;; (translate-c-numbers "-5.00318309780080559e-1 5.003183097800 5.00e+13 -4.e-1 4. 4")
;; "-5.00318309780080559d-1 5.003183097800d0 5.00d+13 -4.d-1 4.d0 4d0"
;; "\"-5.00318309780080559d-1\" \"5.003183097800d0\" \"5.00d+13\" \"-4.d-1\" \"4.d0\" 4"
(defun replace-tolerance (string)
(cl-ppcre:regex-replace "TEST_(\\w*)" string "+TEST-\\{1}+"))
......@@ -91,12 +91,15 @@
(defun remove-return-value (string)
(cl-ppcre:regex-replace "\&r" string ""))
(defparameter *gsl-test-form-regex*
(cl-ppcre:parse-string "\\s*TEST(_SF|_SF_2)?\\s*\\((.*)\\)\\s*;"))
(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."
......@@ -107,13 +110,14 @@
(defun find-tests-in-file (file)
(let ((filestring (file-to-string file)))
(cl-ppcre:all-matches-as-strings " TEST\s?\\(.*;" filestring)))
(cl-ppcre:all-matches-as-strings *gsl-test-form-regex* filestring)))
(defun convert-tests-in-file (file select-args)
"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 select-args)))
(mapcar (lambda (test) (convert-gsl-test (gsl-test-form test) select-args))
(defvar *sf-select* '(nil t t t nil)
"The select arg list for special function 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