From 64cd1612cb328f9fac21e0fc4452122819b8ab4d Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Tue, 23 Jun 2026 16:43:46 +0200 Subject: [PATCH] =?UTF-8?q?omniflo=20lisp=20funktionsaufrufe=20rausgeworfe?= =?UTF-8?q?n=20und=20standardfunktionen=20verwendet.=20Ansonsten=20war=20A?= =?UTF-8?q?bh=C3=A4ngigkeit=20zwischen=20Tests?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tests/test_omniflo.lsp | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/tests/test_omniflo.lsp b/tests/test_omniflo.lsp index 1e02de0..37b9455 100644 --- a/tests/test_omniflo.lsp +++ b/tests/test_omniflo.lsp @@ -153,10 +153,6 @@ description insert-pt anzahl-ok anzahl-fehler results-list tests-out-dir old-results) - (if (not *lib-initialized*) - (init-bibliothek) - ) - (ssg-start "TEST_OMNIFLO" '(("OSMODE") ("ATTREQ") ("ATTDIA"))) (setvar "OSMODE" 0) @@ -175,7 +171,7 @@ (princ) ) (progn - (setq testfaelle (omni:load-json tests-json-pfad)) + (setq testfaelle (ssg-load-json tests-json-pfad)) (if (null testfaelle) (progn (princ "\n[TEST_OMNIFLO] FEHLER: Testdaten konnten nicht geladen werden.") @@ -196,22 +192,22 @@ (foreach eintrag testfaelle (setq idx (1+ idx)) - (setq sivasnr (omni:val eintrag "sivasnr")) - (setq hoehe-str (omni:val eintrag "hoehe")) + (setq sivasnr (ssg-val eintrag "sivasnr")) + (setq hoehe-str (ssg-val eintrag "hoehe")) (if (null hoehe-str) (setq hoehe-str "2000")) (if (numberp hoehe-str) (setq hoehe-str (rtos hoehe-str 2 0)) ) - (setq drehung-str (omni:val eintrag "drehung")) + (setq drehung-str (ssg-val eintrag "drehung")) (if (null drehung-str) (setq drehung-str "0")) (if (numberp drehung-str) (setq drehung-str (rtos drehung-str 2 1)) ) - (setq description (omni:val eintrag "description")) + (setq description (ssg-val eintrag "description")) ;; x,y-Koordinaten aus JSON lesen (wie in omniflo_uebersicht.dxf) - (setq x-val (omni:val eintrag "x")) - (setq y-val (omni:val eintrag "y")) + (setq x-val (ssg-val eintrag "x")) + (setq y-val (ssg-val eintrag "y")) (if (null x-val) (setq x-val 0.0)) (if (null y-val) (setq y-val 0.0)) (if (not (numberp x-val)) (setq x-val (atof x-val)))