PRO tester

; Routine to illustrate problems with Expand_Path() and FindFile() in
; IDL 4.0.1b under WFW3.11.
; Written by David Steele (David.Steele@usask.ca), August 19, 1996.

; Demonstrate that FindFile() works fine.

ff=''
xp=''

c0="ff=FindFile('c:\dos\*.exe')"
Print,c0
o0=Execute(c0)
Help,ff
Print,'ff(0:3):',ff(0:3)

; Run it again for good measure.

c1="ff=FindFile('c:\dos\*.exe')"
Print,c1
o1=Execute(c1)
Help,ff

; Now use Expand_Path to try to locate all (sub)directories where .PRO 
; and .SAV files may be found under C:\RSI\IDL40\LIB.  This should
; include HOOK and OBSOLETE.

c2="xp=Expand_Path('+c:\rsi\idl40\lib')"
Print,c2
o2=Execute(c2)
Help,xp

; Now demonstrate that Expand_Path() is broken.

c3="xp=Expand_Path('+c:\rsi\idl40\lib')"
Print,c3
o3=Execute(c3)
Help,xp

; Now see whether FindFile() still works.

c4="ff=FindFile('c:\dos\*.exe')"
Print,c4
o4=Execute(c4)
Help,ff

Return
END