#!perl
BEGIN { use_ok(
'IPC::GimpFu'
); }
require_ok(
'IPC::GimpFu'
);
my
$gimp
= IPC::GimpFu->new({
autostart
=> 1 });
isa_ok(
$gimp
,
'IPC::GimpFu'
);
is (
$gimp
->run() , 0 ,
'no command is detected'
);
is (
$gimp
->run(
''
) , 0 ,
'empty command is detected'
);
like(
$gimp
->run(
'(+ 2 2)'
),
qr/^Success|4$/
,
'(+ 2 2) is Success || 4'
);
isnt(
$gimp
->run(
'(2 + 2)'
),
qr/^Error/
,
'(2 + 2) is an error'
);
isnt(
$gimp
->stop() , 0 ,
'killing works'
);
like(
$gimp
->run(
'(+ 2 2)'
),
qr/^Success|4$/
,
'again: (+ 2 2) is Success || 4'
);
isnt(
$gimp
->stop() , 0 ,
'killing works again'
);