import.t 392 Bytes
Newer Older
1 2
use strict;
use Test::More;
3 4 5 6 7 8
our ($dir, $DEBUG);
BEGIN {
#  $Gimp::verbose = 1;
  $DEBUG = 0;
  require 't/gimpsetup.pl';
}
Ed J's avatar
Ed J committed
9
use Gimp qw(:DEFAULT net_init=spawn/);
10 11 12 13 14 15 16

eval { Image->new(10,10,RGB); };
ok($@, 'polluting version should fail');

Gimp->import(':pollute');
ok(Image->new(10,10,RGB), 'polluting version should now work');

Ed J's avatar
Ed J committed
17 18 19
Gimp::Net::server_quit;
Gimp::Net::server_wait;

20
done_testing;