how to use GNAT.Expect

["Jens K S" <jens.schoedt@gmail.com>]

Hi all,

I new to Ada and I've been fiddling with this problem for too long
now.
Basically I want to transfer some files using Ada, but since I don't
want to create my own FTP implementation I want to start a new FTP
process from Ada (I use echo in example below). Works fine with
GNAT.OS_Lib, but when I use GNAT.Expect I get no output and an
exception?? What am I doing wrong here?

By the way, I use Xcode on OS X. Does anyone know how I can "Step
Into" code in the Expect package? This could also help me locate the
problem....

-------------------------- code -------------------------------
with Ada.Text_io;
use Ada.Text_io;
with GNAT.Expect;
with GNAT.OS_Lib;

procedure ClonesTest is

	Fd: GNAT.Expect.Process_Descriptor;
	Timeout: Integer := 10000; -- 10 sec
	Result: GNAT.Expect.Expect_Match;
	Sucess: boolean;
	P: GNAT.OS_Lib.Process_Id;
begin

	-- using Lib
	P:= GNAT.OS_Lib.Non_Blocking_Spawn("/bin/echo", (1 => new String'
("from Lib Non_Block")));
	GNAT.OS_Lib.Spawn ("/bin/echo", (1 => new String' ("from Lib Block")),
Sucess);

	-- using Expect
	GNAT.Expect.Non_Blocking_Spawn (Fd, "/bin/echo", (1 => new String'
("from Expect")));
	GNAT.Expect.Expect (Fd, Result, ".*", Timeout);
	Put_Line ("Seen: " & GNAT.Expect.Expect_Out (Fd));

    Put_Line("Hello, World again with Ada!");

end ClonesTest;


--------------- Output ---------------

from Lib Non_Block
from Lib Block

raised GNAT.EXPECT.PROCESS_DIED : g-expect.adb:594

ClonesTest has exited with status 1. 


Thanks in advance

Jens