Changeset 22 for ccr/trunk/p/GPLXPATH.m

Timestamp:

Jun 26, 2008, 1:51:24 PM (16 years ago)

Author:

George Lilly

Message:

Minor code cleanup -- some test case bugs fixed

File:

• ccr/trunk/p/GPLXPATH.m (modified) (5 diffs)

ccr/trunk/p/GPLXPATH.m

@@ -189 +189 @@
        . W "ERROR IN COPY BAD SOURCE LENGTH: ",CPSRC,!
        . Q
+       ; I '$D(@CPDEST@(0)) S @CPDEST@(0)=0 ; IF THE DEST IS EMPTY, INITIALIZE
        D QUEUE("CPINSTR",CPSRC,1,@CPSRC@(0)) ; BLIST FOR ENTIRE ARRAY
        D BUILD("CPINSTR",CPDEST)
@@ -238 +239 @@
        ; XML AT THE END OF THE XPATH POINT
        ; INSXML AND INSNEW ARE PASSED BY NAME INSXPATH IS A VALUE
-       ; N INSBLD,INSTMP
+       N INSBLD,INSTMP
        I DEBUG W "DOING INSERT ",INSXML,INSNEW,INSXPATH,!
        I DEBUG F G1=1:1:@INSXML@(0) W @INSXML@(G1),!
-       I '$D(@INSXML@(0)) D  ; INSERT INTO AN EMPTY ARRAY
-       . W "DOING A BAD COPY",!
-       . D CP^GPLXPATH(INSNEW,INXML) ; JUST COPY INTO THE OUTPUT
+       I '$D(@INSXML@(0)) D  Q ; INSERT INTO AN EMPTY ARRAY
+       . D CP^GPLXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT
        I $D(@INSXML@(0)) D  ; IF ORIGINAL ARRAY IS NOT EMPTY
-       . W "GOT HERE",!
        . I $D(INSXPATH) D  ; XPATH PROVIDED
        . . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE
@@ -256 +255 @@
        . I '$D(INSXPATH) D  ; NO XPATH PROVIDED, CLOSE AT ROOT
        . . D QCLOSE("INSBLD",INSXML,"//") ; CLOSE WITH ROOT XPATH
-       . D BUILD("INSBLD",INSTMP) ; PUT RESULTS IN INDEST
-       . D CP^GPLXPATH(INSTMP,INSXML) ; COPY BUFFER TO SOURCE
+       . D BUILD("INSBLD","INSTMP") ; PUT RESULTS IN INDEST
+       . D CP^GPLXPATH("INSTMP",INSXML) ; COPY BUFFER TO SOURCE
        Q
        ;
@@ -335 +334 @@
       ;
 TEST   ; RUN ALL THE TEST CASES
-      N ZTMP
-      D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
-      D ZTEST^GPLUNIT(.ZTMP,"ALL")
-      W "PASSED: ",TPASSED,!
-      W "FAILED: ",TFAILED,!
-      W !
-      ; W "THE TESTS!",!
-      ; ZWR ZTMP
-      Q
-      ;
+        N ZTMP
+        D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
+        D ZTEST^GPLUNIT(.ZTMP,"ALL")
+        W "PASSED: ",TPASSED,!
+        W "FAILED: ",TFAILED,!
+        W !
+        ; W "THE TESTS!",!
+        ; ZWR ZTMP
+        Q
+        ;
 ZTEST(WHICH) ; RUN ONE SET OF TESTS
-      N ZTMP
-      D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
-      D ZTEST^GPLUNIT(.ZTMP,WHICH)
-      Q
-      ;
+        N ZTMP
+        S DEBUG=1
+        D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
+        D ZTEST^GPLUNIT(.ZTMP,WHICH)
+        Q
+        ;
 TLIST ; LIST THE TESTS
       N ZTMP
@@ -494 +494 @@
 ;;>>>D ZTEST^GPLXPATH("INITXML")
 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
-;;>>>D INSERT^GPLXPATH("GXML","G2","G3","//FIRST/SECOND/THIRD")
-;;>>>D INSERT^GPLXPATH("G3","G2","G4","//FIRST/SECOND/THIRD")
-;;>>?G2(1)=G3(9)
+;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
+;;>>>D INSERT^GPLXPATH("G3","G2","//")
+;;>>?G2(1)=GXML(9)
 ;;><REPLACE>
 ;;>>>K G2,GBL,G3