[gimp-perl] No more :auto in tests.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] No more :auto in tests.
- Date: Thu, 15 May 2014 05:26:04 +0000 (UTC)
commit 28e61f89e146299dccd9cfda1c3369e075196752
Author: Ed J <edj src gnome org>
Date: Thu May 15 06:25:44 2014 +0100
No more :auto in tests.
t/extension.t | 4 ++--
t/gimpsetup.pl | 2 +-
t/import.t | 2 +-
t/load.t | 2 +-
t/pdl.t | 2 +-
t/perlplugin.t | 4 ++--
t/run.t | 2 +-
7 files changed, 9 insertions(+), 9 deletions(-)
---
diff --git a/t/extension.t b/t/extension.t
index 1b3c354..2b1b927 100644
--- a/t/extension.t
+++ b/t/extension.t
@@ -12,7 +12,7 @@ BEGIN {
"\nBEGIN { \$Gimp::verbose = ".int($Gimp::verbose||0).'; }'.<<'EOF');
use strict;
-use Gimp qw(:auto __ N_);
+use Gimp;
use Gimp::Extension;
podregister {
@@ -56,7 +56,7 @@ Author.
Same terms as Gimp-Perl.
EOF
}
-use Gimp qw(:auto), "net_init=spawn/";
+use Gimp "net_init=spawn/";
#Gimp::set_trace(TRACE_ALL);
is(Gimp::Plugin->extension_test(Gimp::RUN_NONINTERACTIVE, 7), 8, 'return val');
diff --git a/t/gimpsetup.pl b/t/gimpsetup.pl
index 9c872da..a02002d 100644
--- a/t/gimpsetup.pl
+++ b/t/gimpsetup.pl
@@ -1,7 +1,7 @@
# only one "test" result - 'gimp set up' at bottom
# relies on caller having first done:
# use Test::*; # to make available ok()
-# use Gimp qw(:auto);
+# use Gimp;
# our $dir;
# our $blibplugins; # where plugins are built to - #! line correct
# if encounters problems, does a die()
diff --git a/t/import.t b/t/import.t
index 33d9126..a75bc59 100644
--- a/t/import.t
+++ b/t/import.t
@@ -6,7 +6,7 @@ BEGIN {
$DEBUG = 0;
require 't/gimpsetup.pl';
}
-use Gimp qw(:auto), "net_init=spawn/";
+use Gimp qw(:DEFAULT net_init=spawn/);
#Gimp::set_trace(TRACE_ALL);
eval { Image->new(10,10,RGB); };
diff --git a/t/load.t b/t/load.t
index 8aaa571..b4b5963 100644
--- a/t/load.t
+++ b/t/load.t
@@ -7,7 +7,7 @@ BEGIN {
$DEBUG = 0;
require 't/gimpsetup.pl';
}
-BEGIN { use_ok('Gimp', qw(:auto canonicalise_color net_init=spawn/)); }
+BEGIN { use_ok('Gimp', qw(:consts canonicalise_color net_init=spawn/)); }
#Gimp::set_trace(TRACE_ALL);
my %CONST_DATA = (
diff --git a/t/pdl.t b/t/pdl.t
index 5b5c185..ee3c078 100644
--- a/t/pdl.t
+++ b/t/pdl.t
@@ -103,7 +103,7 @@ sub boilerplate_params {
exit main;
EOF
}
-use Gimp qw(:auto), "net_init=spawn/";
+use Gimp qw(:DEFAULT net_init=spawn/);
#Gimp::set_trace(TRACE_ALL);
ok((my $i = Gimp::Image->new(10,10,RGB)), 'new image');
diff --git a/t/perlplugin.t b/t/perlplugin.t
index 3f86a97..58e20cb 100644
--- a/t/perlplugin.t
+++ b/t/perlplugin.t
@@ -12,7 +12,7 @@ BEGIN {
"\nBEGIN { \$Gimp::verbose = ".int($Gimp::verbose||0).'; }'.<<'EOF');
use strict;
-use Gimp qw(:auto __ N_);
+use Gimp;
use Gimp::Fu;
sub boilerplate_params {
@@ -167,7 +167,7 @@ sub boilerplate_params {
exit main;
EOF
}
-use Gimp qw(:auto), "net_init=spawn/";
+use Gimp qw(:DEFAULT net_init=spawn/);
#Gimp::set_trace(TRACE_ALL);
ok((my $i = Gimp::Image->new(10,10,RGB)), 'new image');
diff --git a/t/run.t b/t/run.t
index d26e48d..39dde61 100644
--- a/t/run.t
+++ b/t/run.t
@@ -7,7 +7,7 @@ BEGIN {
$DEBUG = 0;
require 't/gimpsetup.pl';
}
-use Gimp qw(:auto), "net_init=spawn/";
+use Gimp qw(:DEFAULT net_init=spawn/);
#Gimp::set_trace(TRACE_ALL);
ok((my $i = new Gimp::Image(10,10,RGB)), 'OO Syntax for new image');
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]