diff --git a/tests/test_unit.lsp b/tests/test_unit.lsp index a7cbc90..8ca036c 100644 --- a/tests/test_unit.lsp +++ b/tests/test_unit.lsp @@ -314,11 +314,13 @@ (tu-eq "csv:b64-encode-ints/0" "AAAA" (csv:b64-encode-ints '(0))) (tu-eq "csv:trans-encode/0-0-0" "AAAAAAAAAAAA" (csv:trans-encode 0.0 0.0 0.0)) - ;; local-to-world: reine Z-Drehung um den Elternpunkt + ;; local-to-world: Eltern-Orientierung als 3x3-Rotationsmatrix (mat3-rz + ;; liefert die Z-Drehmatrix aus dem Winkel - Signatur seit dem + ;; Extrusions-Fix in export.lsp: parent-R statt parent-rot-rad). (tu-eqf "csv:local-to-world/keine-drehung" - '(1.0 0.0 0.0) (csv:local-to-world '(0.0 0.0 0.0) 0.0 '(1.0 0.0 0.0))) + '(1.0 0.0 0.0) (csv:local-to-world '(0.0 0.0 0.0) (mat3-rz 0.0) '(1.0 0.0 0.0))) (tu-eqf "csv:local-to-world/90-grad" - '(0.0 1.0 0.0) (csv:local-to-world '(0.0 0.0 0.0) (/ pi 2.0) '(1.0 0.0 0.0))) + '(0.0 1.0 0.0) (csv:local-to-world '(0.0 0.0 0.0) (mat3-rz (/ pi 2.0)) '(1.0 0.0 0.0))) ;; json-escape: Anfuehrungszeichen maskieren (tu-eq "csv:json-escape/quote" "a\\\"b" (csv:json-escape "a\"b"))