From af73bdcbf5db99f67986db3706bb5bb4f6703a4b Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Thu, 20 May 1999 06:04:19 +0000 Subject: [PATCH] Test program change --- harbour/tests/working/spawn.prg | 11 ++++++++++- harbour/tests/working/spawn2.prg | 10 ++++++++++ 2 files changed, 20 insertions(+), 1 deletion(-) create mode 100644 harbour/tests/working/spawn2.prg diff --git a/harbour/tests/working/spawn.prg b/harbour/tests/working/spawn.prg index 40cff54e33..ad5fa65aa7 100644 --- a/harbour/tests/working/spawn.prg +++ b/harbour/tests/working/spawn.prg @@ -3,9 +3,18 @@ // // This program adds a .HRB at run-time // +// Compile Spawn2() before compiling Spawn() +// +// Should be compiled using /gHRB or stub. +// function Main() QOut( "We are now in spawn" ) - HB_Run( "Hello.hrb" ) // Load & Run Hello.hrb + HB_Run( "Spawn2.hrb" ) // Load & Run Hello.hrb QOut( "We are back again" ) return nil + +function SomeWhereElse() + + QOut( "I am being called from somewhere else" ) +return nil diff --git a/harbour/tests/working/spawn2.prg b/harbour/tests/working/spawn2.prg new file mode 100644 index 0000000000..c0ae8cfc89 --- /dev/null +++ b/harbour/tests/working/spawn2.prg @@ -0,0 +1,10 @@ +// +// Spawn2 called from Spawn +// +function Main() + + QOut( "Hi, I am Spawn2" ) + QOut( "Let's call a function from Spawn()" ) + SomeWhereElse() + QOut( "Back to Spawn2" ) +return nil