From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 18 Apr 2023 03:49:12 +0000 (+1000)
Subject: minor test update
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=be331e7fa0e414c3f2721e45de149e9f113c9519;p=rrq%2Flsp-utils.git

minor test update
---

diff --git a/lsp-dbus-test.lsp b/lsp-dbus-test.lsp
index 3482305..dd71083 100644
--- a/lsp-dbus-test.lsp
+++ b/lsp-dbus-test.lsp
@@ -9,8 +9,8 @@
 
 ;; Request a bus name
 (println (if (:invoke Dbus:ROOT
-                      (print "RequestName(su)")
-                      (println (list (:bus-name au.rrq) 0)))
+                      (print (:m ObjectManager "RequestName(su)"))
+                      (println (list (:%name au.rrq) 0)))
              (!= ($it -1 -1 -1)) ; returns BOOLEAN
            ))
 (Dbus:process-all-pending)
@@ -18,15 +18,14 @@
 (println (if (:invoke Dbus:ROOT
                       (print "GetNameOwner(s)")
                       (println (list "org.bluez")))
-             ($it -1 -1 -1) ; Returns value
+             ($it -1 -1 -1) ; Return value
            ))
 (Dbus:process-all-pending)
 
-(setf org.bluez (Dbus "/org/bluez"))
+(println (setf org.bluez (Dbus "/" "org.bluez")))
 (println (if (:invoke org.bluez
-                      (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()")
-                      )
-             ($it -1 -1 -1) ; Returns value
+                      (println (:m ObjectManager "GetManagedObjects()")))
+             ($it -1 -1 -1) ; Return value
            ))