Commit 86a54307 authored by Liam Healy's avatar Liam Healy

Rename formatting-test-grid to test-grid

The function now named test-grid is very useful for the testing the
correct construction of all kinds of grids. Checking formatting was the
original purpose but the purpose has grown beyond that. Eventually, this
function should be relocated.
parent 0dbfeecb
;; Test grid formatting.
;; Liam Healy 2011-02-27 17:20:59EST format-grid.lisp
;; Time-stamp: <2013-12-25 15:45:48EST format-grid.lisp>
;; Time-stamp: <2015-12-26 10:46:19EST format-grid.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Copyright 2011, 2013, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -22,7 +22,7 @@
(in-package :antik)
(defun formatting-test-grid (foreign-array matrix pq)
(defun test-grid (foreign-array matrix pq)
"Make a test grid for formatting.
foreign-array: nil= CL array, T=foreign array
matrix: nil = vector, T = matrix
......@@ -42,23 +42,21 @@
(grid:concatenate-grids (make-pq numgrid 'km) (make-pq numgrid 'km/s))))
(t numgrid))))
(defparameter *all-formatting-test-grids*
(defparameter *all-test-grids*
(list
(formatting-test-grid nil nil nil)
(formatting-test-grid nil nil :scalar)
(formatting-test-grid nil nil :mixed)
(formatting-test-grid nil t nil)
(formatting-test-grid nil t :scalar)
(formatting-test-grid nil t :mixed)
(formatting-test-grid t nil nil)
(formatting-test-grid t nil :scalar)
(formatting-test-grid t nil :mixed)
(formatting-test-grid t t nil)
(formatting-test-grid t t :scalar)
(formatting-test-grid t t :mixed))
"A set of grids for testing formatting, covering all combinations of
arrays and foreign-arrays, vectors and matrices, and no units, same
units, and mixed (different) units.")
(test-grid nil nil nil)
(test-grid nil nil :scalar)
(test-grid nil nil :mixed)
(test-grid nil t nil)
(test-grid nil t :scalar)
(test-grid nil t :mixed)
(test-grid t nil nil)
(test-grid t nil :scalar)
(test-grid t nil :mixed)
(test-grid t t nil)
(test-grid t t :scalar)
(test-grid t t :mixed))
"A set of grids covering all combinations of arrays and foreign-arrays, vectors and matrices, and no units, same units, and mixed (different) units.")
(defun test-grid-formatting (grid)
"Format the 1D grid with all different combinations."
......
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