This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@625 212acab6-be3b-0410-9dea-997c60f758d6

Examples/rtest.nsi

@@ -0,0 +1,56 @@
+Name "rtest"
+OutFile "rtest.exe"
+
+InstallDir $TEMP
+BGGradient 0 FFFF00 00FFFF
+DirShow hide
+ComponentText "select tests."
+
+Section "test 1"
+StrCpy $0 "a"
+Call test1
+StrCmp $0 "a182345678" success
+DetailPrint "Test 1 failed (output: $0)"
+Goto end
+success:
+DetailPrint "Test 1 succeded (output: $0)"
+end:
+SectionEnd
+
+Function test1
+GetLabelAddress $9 skip8
+IntOp $9 $9 - 1
+StrCpy $0 $01
+Call $9
+StrCpy $0 $02
+StrCpy $0 $03
+StrCpy $0 $04
+StrCpy $0 $05
+StrCpy $0 $06
+StrCpy $0 $07
+StrCpy $0 $08
+skip8:
+FunctionEnd
+
+Section "test 2"
+StrCpy $0 "0"
+StrCpy $1 "11"
+GetFunctionAddress $9 test2
+Call $9
+StrCmp $1 "11,10,9,8,7,6,5,4,3,2,1" success
+  DetailPrint "Test 2 failed (output: $1)"
+Goto end
+success:
+  DetailPrint "Test 2 succeded (output: $1)"
+end:
+SectionEnd
+
+Function test2
+IntOp $0 $0 + 1
+IntCmp $0 10 done
+Push $0
+Call test2
+Pop $0
+done:
+  StrCpy $1 "$1,$0"
+FunctionEnd