iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated TEST^GPLXPATH unit test for H2ARY^GPLXPATH

This commit is contained in:
george 2008-10-31 18:06:59 +00:00
parent ec3ecbe51a
commit ff96fff44d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/GPLXPAT0.m
View File

@ -203,10 +203,10 @@ GPLXPAT0 ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
;;>>>S GTMP("TEST1")=1
;;>>>D H2ARY^GPLXPATH("GTMP2","GTMP")
;;>>?GTMP2(0)=1
;;>>?GTMP2(1)="TEST1^1"
;;>>?GTMP2(1)="^TEST1^1"
;;><XVARS>
;;>>>K GTMP,GTMP2
;;>>>D PUSH^GPLXPATH("GTMP","<VALUE>@@VAR1@@</VALUE>")
;;>>>D XVARS^GPLXPATH("GTMP2","GTMP")
;;>>?GTMP2(1)="VAR1^"
;;>>?GTMP2(1)="^VAR1^"
;;></TEST>