a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
20 lines
307 B
Plaintext
20 lines
307 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#require "hbtpl"
|
|
#require "hbtest"
|
|
|
|
PROCEDURE Main()
|
|
|
|
/* Testing public API */
|
|
|
|
HBTEST hbtpl_MyPublicFunction() IS "It works"
|
|
HBTEST hbtpl_MyPublicFunction_In_C() IS "It works from C"
|
|
|
|
/* Testing public constant */
|
|
|
|
HBTEST HBTPL_MYCONSTANT IS 100
|
|
|
|
RETURN
|