/*
 * $Id$
 */

proc main()
? OS(), VERSION(), DATE(), TIME()
? HB_COMPILER()
__NONOALERT()
? "main", procfile("main"), procfile(@main())
? "alert", procfile("alert"), procfile(@alert()), alert()
? "p0", procfile("p0"), procfile(@p0()), (@p0()):exec(), p0(), t("p0",@p0(),p0(),"t0.prg")
? "p1", procfile("p1"), procfile(@p1()), (@p1()):exec(), p1(), t("p1",@p1(),p1(),"t0.prg")
? "p2", procfile("p2"), procfile(@p2()), (@p2()):exec(), p2(), t("p2",@p2(),p2(),"t1.prg")
? "p3", procfile("p3"), procfile(@p3()), (@p3()):exec(), p3(), t("p3",@p3(),p3(),"t0.prg")
? "p4", procfile("p4"), procfile(@p4()), (@p4()):exec(), p4(), t("p4",@p4(),p4(),"t1.prg")
? "p5", procfile("p5"), procfile(@p5()), (@p5()):exec(), p5(), t("p5",@p5(),p5(),"t2.prg")
? "p6", procfile("p6"), procfile(@p6()), (@p6()):exec(), p6(), t("p6",@p6(),p6(),"t0.prg")
? "p7", procfile("p7"), procfile(@p7()), (@p7()):exec(), p7(), t("p7",@p7(),p7(),"t1.prg")
? "==="
main2()

func t(cFunc,sFunc,cResult,cModule)
if &(cFunc+"()")==cResult .and. sFunc:exec()==cResult .and. ;
         upper(cModule)==upper(right(cResult,len(cModule)))
   return "OK"
endif
return "ERR"

func p0(); return "P0:t0.prg"
func p1(); return "P1:t0.prg"
func p3(); return "P3:t0.prg"
func p6(); return "P6:t0.prg"