[gimp-perl] No more :auto in tests.



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]