Plaster

common-lisp
? 3D-MATRICES-TEST::3D-MATRICES ? 3D-MATRICES-TEST::STRUCT ? 3D-MATRICES-TEST::MATN 0.000 ✘ (of-type mat2 (matn 2 2)) 0.000 ✘ (of-type mat3 (matn 3 3)) 0.000 ✘ (of-type mat4 (matn 4 4)) 0.000 ✔ (of-type matn (matn 1 2)) 0.000 ✔ (of-type matn (mcopyn (matn 1 2))) 0.000 ✔ (fail (mcopyn (mat2)) error) 0.000 ✔ (true (matn-p (matn 1 2))) 0.000 ✔ (false (matn-p (mat2))) 0.000 ✔ (is = 0 (mirefn (matn 1 2) 0)) 0.000 ✔ (is = 0 (mcrefn (matn 1 2) 0 0)) 0.000 ✔ (is = 0 (mcrefn (matn 1 2) 0 0)) 0.000 ✔ (fail (mirefn (matn 1 2) -1) error) 0.001 ✔ (fail (mirefn (matn 1 2) 2) error) 0.000 ✔ (fail (mcrefn (matn 1 2) 1 0) error) 0.000 ✔ (fail (mat 1 2) error) 0.000 ✔ (of-type matn (mcopy (matn 1 2))) 0.000 ✔ (true (mat-p (matn 1 2))) 0.000 ✔ (is = 0 (miref (matn 1 2) 0)) 0.000 ✔ (is = 0 (mcref (matn 1 2) 0 0)) 0.000 ✔ (fail (miref (matn 1 2) -1) error) 0.000 ✔ (fail (miref (matn 1 2) 2) error) 0.000 ✔ (fail (mcref (matn 1 2) 1 0) error) 0.000 ✔ (is = 2 (mcols (matn 1 2))) 0.000 ✔ (is = 1 (mrows (matn 1 2))) 0.185 ✘ 3D-MATRICES-TEST::MATN ? 3D-MATRICES-TEST::MAT4 0.000 ✔ (of-type mat4 (mat4)) 0.000 ✔ (of-type mat4 (mcopy4 (mat4))) 0.000 ✔ (fail (mcopy4 (mat2)) error) 0.000 ✔ (true (mat4-p (mat4))) 0.000 ✔ (false (mat4-p (mat2))) 0.000 ✔ (is = 0 (miref4 (mat4) 0)) 0.000 ✔ (is = 0 (mcref4 (mat4) 0 0)) 0.000 ✔ (fail (miref4 (mat4) -1) error) 0.000 ✔ (fail (miref4 (mat4) 16) error) 0.000 ✔ (fail (mcref4 (mat4) 4 0) error) 0.000 ✔ (of-type mat4 (mat 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) 0.000 ✔ (of-type mat4 (mcopy (mat4))) 0.000 ✔ (true (mat-p (mat4))) 0.000 ✔ (is = 0 (miref (mat4) 0)) 0.000 ✔ (is = 0 (mcref (mat4) 0 0)) 0.000 ✔ (fail (miref (mat4) -1) error) 0.000 ✔ (fail (miref (mat4) 16) error) 0.000 ✔ (fail (mcref (mat4) 4 0) error) 0.000 ✔ (is = 4 (mcols (mat4))) 0.000 ✔ (is = 4 (mrows (mat4))) 0.080 ✔ 3D-MATRICES-TEST::MAT4 ? 3D-MATRICES-TEST::MAT3 0.000 ✔ (of-type mat3 (mat3)) 0.000 ✔ (of-type mat3 (mcopy3 (mat3))) 0.000 ✔ (fail (mcopy3 (mat4)) error) 0.000 ✔ (true (mat3-p (mat3))) 0.000 ✔ (false (mat3-p (mat4))) 0.000 ✔ (is = 0 (miref3 (mat3) 0)) 0.000 ✔ (is = 0 (mcref3 (mat3) 0 0)) 0.000 ✔ (fail (miref3 (mat3) -1) error) 0.000 ✔ (fail (miref3 (mat3) 9) error) 0.000 ✔ (fail (mcref3 (mat3) 3 0) error) 0.000 ✔ (of-type mat3 (mat 0 0 0 0 0 0 0 0 0)) 0.000 ✔ (of-type mat3 (mcopy (mat3))) 0.000 ✔ (true (mat-p (mat3))) 0.000 ✔ (is = 0 (miref (mat3) 0)) 0.000 ✔ (is = 0 (mcref (mat3) 0 0)) 0.000 ✔ (fail (miref (mat3) -1) error) 0.000 ✔ (fail (miref (mat3) 9) error) 0.000 ✔ (fail (mcref (mat3) 3 0) error) 0.000 ✔ (is = 3 (mcols (mat3))) 0.000 ✔ (is = 3 (mrows (mat3))) 0.072 ✔ 3D-MATRICES-TEST::MAT3 ? 3D-MATRICES-TEST::MAT2 0.000 ✔ (of-type mat2 (mat2)) 0.000 ✔ (of-type mat2 (mcopy2 (mat2))) 0.000 ✔ (fail (mcopy2 (mat3)) error) 0.000 ✔ (true (mat2-p (mat2))) 0.000 ✔ (false (mat2-p (mat3))) 0.000 ✔ (is = 0 (miref2 (mat2) 0)) 0.000 ✔ (is = 0 (mcref2 (mat2) 0 0)) 0.000 ✔ (fail (miref2 (mat2) -1) error) 0.000 ✔ (fail (miref2 (mat2) 4) error) 0.000 ✔ (fail (mcref2 (mat2) 2 0) error) 0.000 ✔ (of-type mat2 (mat 0 0 0 0)) 0.000 ✔ (of-type mat2 (mcopy (mat2))) 0.000 ✔ (true (mat-p (mat2))) 0.000 ✔ (is = 0 (miref (mat2) 0)) 0.000 ✔ (is = 0 (mcref (mat2) 0 0)) 0.000 ✔ (fail (miref (mat2) -1) error) 0.000 ✔ (fail (miref (mat2) 4) error) 0.000 ✔ (fail (mcref (mat2) 2 0) error) 0.000 ✔ (is = 2 (mcols (mat2))) 0.000 ✔ (is = 2 (mrows (mat2))) 0.112 ✔ 3D-MATRICES-TEST::MAT2 0.449 ✘ 3D-MATRICES-TEST::STRUCT ? 3D-MATRICES-TEST::COMPARISON 0.001 ー 3D-MATRICES-TEST::COMPARISON ? 3D-MATRICES-TEST::TRANSFORMS 0.000 ー 3D-MATRICES-TEST::TRANSFORMS ? 3D-MATRICES-TEST::MATRIX-MATH 0.000 ー 3D-MATRICES-TEST::MATRIX-MATH ? 3D-MATRICES-TEST::SECTIONING 0.000 ー 3D-MATRICES-TEST::SECTIONING ? 3D-MATRICES-TEST::CONSTRUCTION 0.000 ー 3D-MATRICES-TEST::CONSTRUCTION ? 3D-MATRICES-TEST::ARITHMETIC 0.000 ー 3D-MATRICES-TEST::ARITHMETIC 0.454 ✘ 3D-MATRICES-TEST::3D-MATRICES ;; Summary: Passed: 80 Failed: 3 Skipped: 6 ;; Failures: 1/ 7 tests failed in 3D-MATRICES-TEST::3D-MATRICES 1/ 4 tests failed in 3D-MATRICES-TEST::STRUCT 1/ 4 tests failed in 3D-MATRICES-TEST::STRUCT 3/ 23 tests failed in 3D-MATRICES-TEST::MATN 3/ 23 tests failed in 3D-MATRICES-TEST::MATN The test form (matn 2 2) evaluated to (matn 2 2 #(0.0 0.0 0.0 0.0)) when mat2 was expected to be equal under TYPEP. The test form (matn 3 3) evaluated to (matn 3 3 #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)) when mat3 was expected to be equal under TYPEP. The test form (matn 4 4) evaluated to (matn 4 4 #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)) when mat4 was expected to be equal under TYPEP.