Anyone fancy running a couple of routines and reporting the result ?
I'm doing some work with XML and needed a suitable error reporter,
so this is the assertion tester I've been using ...
;;-------------------------------------------------------------------------------------
;;;-------------------------------------------------------------------------------------
;;
(DEFUN kdub:AssertT (quotedFunctionList / catchit returnVal)
;;
;; deleted
)
;;;-------------------------------------------------------------------------------------
;;;-------------------------------------------------------------------------------------
;;
... and this is some sample testing ..
Command: (setq result (kdub:AssertT '(/ 2 0)) )
kdub:AssertT Error: divide by zero
Parameter : (/ 2 0)
nil
(OR GV:IAcadApplication (SETQ GV:IAcadApplication (VLAX-GET-ACAD-OBJECT)))
(OR GV:IAcadDocument (SETQ GV:IAcadDocument (VLA-GET-ACTIVEDOCUMENT GV:IAcadApplication)))
(OR GV:IAcadLayers (SETQ GV:IAcadLayers (VLA-GET-LAYERS GV:IAcadDocument)))
Command: (setq result (kdub:AssertT '(VLA-ITEM GV:IAcadLayers "0")) )
#<VLA-OBJECT IAcadLayer 0a9a47d4>
Command: (setq result (kdub:AssertT '(VLA-ITEM GV:IAcadLayers "NonExistantLayer")) )
kdub:AssertT Error: Automation Error. Key not found
Parameter : (vla-Item GV:IACADLAYERS "NonExistantLayer")
nil
Then the Assertion Tester used in the XML routine ..
;;;-------------------------------------------------------------------------------------
;;;-------------------------------------------------------------------------------------
;;
(DEFUN kdub:XML:GET-DOCUMENT (FileName XMLDomDocument /)
;; deleted
)
;;;-------------------------------------------------------------------------------------
;;;-------------------------------------------------------------------------------------
;;
... and some testing
;; Edit file path\name to suit existing file
(setq FileName "c:\\Hamlet.XML")
(kdub:XML:GET-DOCUMENT FileName 'XMLDomDocObj)
;-> T
(eval XMLDomDocObj)
;-> #<VLA-OBJECT IXMLDOMDocument3 01d78648>
(setq FileName "c:\\NonExistantFile.XML")
(kdub:XML:GET-DOCUMENT FileName 'XMLDomDocObj1)
;-> kdub:XML:GET-DOCUMENT Error:
; Unable to Read File : c:\NonExistantFile.XML
; nil
(eval XMLDomDocObj1)
;-> #<VLA-OBJECT IXMLDOMDocument3 01d88060>
Using say this :
(setq FileName "c:\\YourLocalFile.XML")
(kdub:XML:GET-DOCUMENT FileName 'XMLDomDocObj)
(assert XMLDomDocObj)
I'm particularly interested in knowing if the variable XMLDomDocObj is assigned a value
or if you get a handled error indicating that the XML Dom is not available on your machine.