Changeset 39 for ccr/trunk/p


Ignore:
Timestamp:
Jul 3, 2008, 8:38:45 PM (16 years ago)
Author:
George Lilly
Message:

removed double spaces from test cases

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLXPATH.m

    r38 r39  
    364364;;><TEST>
    365365;;><INIT>
    366 ;;>>>K  GPL S GPL=""
    367 ;;>>>D  PUSH^GPLXPATH("GPL","FIRST")
    368 ;;>>>D  PUSH^GPLXPATH("GPL","SECOND")
    369 ;;>>>D  PUSH^GPLXPATH("GPL","THIRD")
    370 ;;>>>D  PUSH^GPLXPATH("GPL","FOURTH")
     366;;>>>K GPL S GPL=""
     367;;>>>D PUSH^GPLXPATH("GPL","FIRST")
     368;;>>>D PUSH^GPLXPATH("GPL","SECOND")
     369;;>>>D PUSH^GPLXPATH("GPL","THIRD")
     370;;>>>D PUSH^GPLXPATH("GPL","FOURTH")
    371371;;>>?GPL(0)=4
    372372;;><INITXML>
    373 ;;>>>K  GXML S GXML=""
    374 ;;>>>D  PUSH^GPLXPATH("GXML","<FIRST>")
    375 ;;>>>D  PUSH^GPLXPATH("GXML","<SECOND>")
    376 ;;>>>D  PUSH^GPLXPATH("GXML","<THIRD>")
    377 ;;>>>D  PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>")
    378 ;;>>>D  PUSH^GPLXPATH("GXML","<FIFTH>")
    379 ;;>>>D  PUSH^GPLXPATH("GXML","@@DATA2@@")
    380 ;;>>>D  PUSH^GPLXPATH("GXML","</FIFTH>")
    381 ;;>>>D  PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />")
    382 ;;>>>D  PUSH^GPLXPATH("GXML","</THIRD>")
    383 ;;>>>D  PUSH^GPLXPATH("GXML","<SECOND>")
    384 ;;>>>D  PUSH^GPLXPATH("GXML","</SECOND>")
    385 ;;>>>D  PUSH^GPLXPATH("GXML","</SECOND>")
    386 ;;>>>D  PUSH^GPLXPATH("GXML","</FIRST>")
     373;;>>>K GXML S GXML=""
     374;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
     375;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     376;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
     377;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>")
     378;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>")
     379;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@")
     380;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>")
     381;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />")
     382;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
     383;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     384;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     385;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     386;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
    387387;;><INITXML2>
    388 ;;>>>K  GXML S GXML=""
    389 ;;>>>D  PUSH^GPLXPATH("GXML","<FIRST>")
    390 ;;>>>D  PUSH^GPLXPATH("GXML","<SECOND>")
    391 ;;>>>D  PUSH^GPLXPATH("GXML","<THIRD>")
    392 ;;>>>D  PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>")
    393 ;;>>>D  PUSH^GPLXPATH("GXML","<FOURTH>")
    394 ;;>>>D  PUSH^GPLXPATH("GXML","DATA2")
    395 ;;>>>D  PUSH^GPLXPATH("GXML","</FOURTH>")
    396 ;;>>>D  PUSH^GPLXPATH("GXML","</THIRD>")
    397 ;;>>>D  PUSH^GPLXPATH("GXML","<_SECOND>")
    398 ;;>>>D  PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>")
    399 ;;>>>D  PUSH^GPLXPATH("GXML","</_SECOND>")
    400 ;;>>>D  PUSH^GPLXPATH("GXML","</SECOND>")
    401 ;;>>>D  PUSH^GPLXPATH("GXML","</FIRST>")
     388;;>>>K GXML S GXML=""
     389;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
     390;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     391;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
     392;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>")
     393;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>")
     394;;>>>D PUSH^GPLXPATH("GXML","DATA2")
     395;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>")
     396;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
     397;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>")
     398;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>")
     399;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>")
     400;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     401;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
    402402;;><PUSHPOP>
    403 ;;>>>D  ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
    404 ;;>>>D  ZTEST^GPLUNIT(.ZTMP,"INIT")
     403;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
     404;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
    405405;;>>?GPL(GPL(0))="FOURTH"
    406 ;;>>>D  POP^GPLXPATH("GPL",.GX)
     406;;>>>D POP^GPLXPATH("GPL",.GX)
    407407;;>>?GX="FOURTH"
    408408;;>>?GPL(GPL(0))="THIRD"
    409 ;;>>>D  POP^GPLXPATH("GPL",.GX)
     409;;>>>D POP^GPLXPATH("GPL",.GX)
    410410;;>>?GX="THIRD"
    411411;;>>?GPL(GPL(0))="SECOND"
    412412;;><MKMDX>
    413 ;;>>>D  ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
    414 ;;>>>D  ZTEST^GPLUNIT(.ZTMP,"INIT")
    415 ;;>>>S  GX=""
    416 ;;>>>D  MKMDX^GPLXPATH("GPL",.GX)
     413;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
     414;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
     415;;>>>S GX=""
     416;;>>>D MKMDX^GPLXPATH("GPL",.GX)
    417417;;>>?GX="//FIRST/SECOND/THIRD/FOURTH"
    418418;;><XNAME>
    419419;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH"
    420 ;;>>?$$XNAME^GPLXPATH("<SIXTH   ID=""SELF"" />")="SIXTH"
     420;;>>?$$XNAME^GPLXPATH("<SIXTH  ID=""SELF"" />")="SIXTH"
    421421;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD"
    422422;;><INDEX>
    423 ;;>>>D  ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
    424 ;;>>>D  ZTEST^GPLUNIT(.ZTMP,"INITXML")
    425 ;;>>>D  INDEX^GPLXPATH("GXML")
     423;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
     424;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML")
     425;;>>>D INDEX^GPLXPATH("GXML")
    426426;;>>?GXML("//FIRST/SECOND")="2^12"
    427427;;>>?GXML("//FIRST/SECOND/THIRD")="3^9"
     
    432432;;>>?GXML("//FIRST")="1^13"
    433433;;><INDEX2>
    434 ;;>>>D  ZTEST^GPLXPATH("INITXML2")
    435 ;;>>>D  INDEX^GPLXPATH("GXML")
     434;;>>>D ZTEST^GPLXPATH("INITXML2")
     435;;>>>D INDEX^GPLXPATH("GXML")
    436436;;>>?GXML("//FIRST/SECOND")="2^12"
    437437;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11"
     
    441441;;>>?GXML("//FIRST")="1^13"
    442442;;><MISSING>
    443 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    444 ;;>>>S  OUTARY="^TMP($J,""MISSINGTEST"")"
    445 ;;>>>D  MISSING^GPLXPATH("GXML",OUTARY)
     443;;>>>D ZTEST^GPLXPATH("INITXML")
     444;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")"
     445;;>>>D MISSING^GPLXPATH("GXML",OUTARY)
    446446;;>>?@OUTARY@(1)="DATA1"
    447447;;>>?@OUTARY@(2)="DATA2"
    448448;;><MAP>
    449 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    450 ;;>>>S  MAPARY="^TMP($J,""MAPVALUES"")"
    451 ;;>>>S  OUTARY="^TMP($J,""MAPTEST"")"
    452 ;;>>>S  @MAPARY@("DATA2")="VALUE2"
    453 ;;>>>D  MAP^GPLXPATH("GXML",MAPARY,OUTARY)
     449;;>>>D ZTEST^GPLXPATH("INITXML")
     450;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
     451;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
     452;;>>>S @MAPARY@("DATA2")="VALUE2"
     453;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
    454454;;>>?@OUTARY@(6)="VALUE2"
    455455;;><QUEUE>
    456 ;;>>>D  QUEUE^GPLXPATH("BTLIST","GXML",2,3)
    457 ;;>>>D  QUEUE^GPLXPATH("BTLIST","GXML",4,5)
     456;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3)
     457;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5)
    458458;;>>?$P(BTLIST(2),";",2)=4
    459459;;><BUILD>
    460 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    461 ;;>>>D  QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2")
    462 ;;>>>D  ZTEST^GPLXPATH("QUEUE")
    463 ;;>>>D  BUILD^GPLXPATH("BTLIST","G3")
     460;;>>>D ZTEST^GPLXPATH("INITXML")
     461;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2")
     462;;>>>D ZTEST^GPLXPATH("QUEUE")
     463;;>>>D BUILD^GPLXPATH("BTLIST","G3")
    464464;;><CP>
    465 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    466 ;;>>>D  CP^GPLXPATH("GXML","G2")
     465;;>>>D ZTEST^GPLXPATH("INITXML")
     466;;>>>D CP^GPLXPATH("GXML","G2")
    467467;;>>?G2(0)=13
    468468;;><QOPEN>
    469 ;;>>>K  G2,GBL
    470 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    471 ;;>>>D  QOPEN^GPLXPATH("GBL","GXML")
     469;;>>>K G2,GBL
     470;;>>>D ZTEST^GPLXPATH("INITXML")
     471;;>>>D QOPEN^GPLXPATH("GBL","GXML")
    472472;;>>?$P(GBL(1),";",3)=12
    473 ;;>>>D  BUILD^GPLXPATH("GBL","G2")
     473;;>>>D BUILD^GPLXPATH("GBL","G2")
    474474;;>>?G2(G2(0))="</SECOND>"
    475475;;><QOPEN2>
    476 ;;>>>K  G2,GBL
    477 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    478 ;;>>>D  QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND")
     476;;>>>K G2,GBL
     477;;>>>D ZTEST^GPLXPATH("INITXML")
     478;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND")
    479479;;>>?$P(GBL(1),";",3)=11
    480 ;;>>>D  BUILD^GPLXPATH("GBL","G2")
     480;;>>>D BUILD^GPLXPATH("GBL","G2")
    481481;;>>?G2(G2(0))="</SECOND>"
    482482;;><QCLOSE>
    483 ;;>>>K  G2,GBL
    484 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    485 ;;>>>D  QCLOSE^GPLXPATH("GBL","GXML")
     483;;>>>K G2,GBL
     484;;>>>D ZTEST^GPLXPATH("INITXML")
     485;;>>>D QCLOSE^GPLXPATH("GBL","GXML")
    486486;;>>?$P(GBL(1),";",3)=13
    487 ;;>>>D  BUILD^GPLXPATH("GBL","G2")
     487;;>>>D BUILD^GPLXPATH("GBL","G2")
    488488;;>>?G2(G2(0))="</FIRST>"
    489489;;><QCLOSE2>
    490 ;;>>>K  G2,GBL
    491 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    492 ;;>>>D  QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD")
     490;;>>>K G2,GBL
     491;;>>>D ZTEST^GPLXPATH("INITXML")
     492;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD")
    493493;;>>?$P(GBL(1),";",3)=13
    494 ;;>>>D  BUILD^GPLXPATH("GBL","G2")
     494;;>>>D BUILD^GPLXPATH("GBL","G2")
    495495;;>>?G2(G2(0))="</FIRST>"
    496496;;>>?G2(1)="</THIRD>"
    497497;;><INSERT>
    498 ;;>>>K  G2,GBL,G3,G4
    499 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    500 ;;>>>D  QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
    501 ;;>>>D  INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
    502 ;;>>>D  INSERT^GPLXPATH("G3","G2","//")
     498;;>>>K G2,GBL,G3,G4
     499;;>>>D ZTEST^GPLXPATH("INITXML")
     500;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
     501;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
     502;;>>>D INSERT^GPLXPATH("G3","G2","//")
    503503;;>>?G2(1)=GXML(9)
    504504;;><REPLACE>
    505 ;;>>>K  G2,GBL,G3
    506 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    507 ;;>>>D  QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
    508 ;;>>>D  REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
     505;;>>>K G2,GBL,G3
     506;;>>>D ZTEST^GPLXPATH("INITXML")
     507;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
     508;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
    509509;;>>?GXML(3)="<FIFTH>"
    510510;;><INSINNER>
    511 ;;>>>K  GXML,G2,GBL,G3
    512 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    513 ;;>>>D  QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
    514 ;;>>>D  INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
     511;;>>>K GXML,G2,GBL,G3
     512;;>>>D ZTEST^GPLXPATH("INITXML")
     513;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
     514;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
    515515;;>>?GXML(10)="<FIFTH>"
    516516;;><INSINNER2>
    517 ;;>>>K  GXML,G2,GBL,G3
    518 ;;>>>D  ZTEST^GPLXPATH("INITXML")
    519 ;;>>>D  QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
    520 ;;>>>D  INSINNER^GPLXPATH("G2","G2")
     517;;>>>K GXML,G2,GBL,G3
     518;;>>>D ZTEST^GPLXPATH("INITXML")
     519;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
     520;;>>>D INSINNER^GPLXPATH("G2","G2")
    521521;;>>?G2(8)="<FIFTH>"
    522522;;></TEST>
Note: See TracChangeset for help on using the changeset viewer.