[gimp-perl] zap tested 2.8 constants

[Ed J <edj src gnome org>]

commit 11f55d2d31ea2a2a43ae510cab94c7a17894f01b
Author: Ed J <mohawk2 users noreply github com>
Date:   Sat Apr 17 15:58:45 2021 +0100

    zap tested 2.8 constants

 t/load.t | 18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)
---
diff --git a/t/load.t b/t/load.t
index 7f9c3e52..ab7e1d2a 100644
--- a/t/load.t
+++ b/t/load.t
@@ -10,20 +10,10 @@ BEGIN {
 BEGIN { use_ok('Gimp', qw(:consts canonicalise_color net_init=spawn/)); }
 
 my %CONST_DATA = (
-  'ADD_COPY_MASK' => 5,
-  'FG_TRANSPARENT_MODE' => 2,
   'BRUSH_SOFT' => 1,
   'BRUSH_GENERATED_SQUARE' => 1,
-  'FILL_PATTERN' => 2,
   'CHANNEL_OP_REPLACE' => 2,
-  'GRAY_CHANNEL' => 3,
-  'PATTERN_CLONE' => 1,
   'CONVERT_DITHER_FS' => 1,
-  'CUSTOM_PALETTE' => 4,
-  'ABSOLUTE_CONVOL' => 1,
-  'SHARPEN_CONVOLVE' => 1,
-  'DESATURATE_LUMINOSITY' => 1,
-  'DODGE' => 0,
   'FILL_TRANSPARENT' => 3,
   'FOREGROUND_EXTRACT_SIOX' => 0,
   'GRADIENT_SEGMENT_HSV_CCW' => 1,
@@ -31,13 +21,11 @@ my %CONST_DATA = (
   'GRADIENT_SHAPEBURST_ANGULAR' => 6,
   'GRID_ON_OFF_DASH' => 2,
   'HISTOGRAM_BLUE' => 3,
-  'MAGENTA_HUES' => 6,
   'ICON_TYPE_INLINE_PIXBUF' => 1,
   'RGB' => 0,
   'GRAY_IMAGE' => 2,
   'INK_BLOB_TYPE_CIRCLE' => 0,
   'INTERPOLATION_LINEAR' => 1,
-  'GRAIN_EXTRACT_MODE' => 20,
   'MASK_DISCARD' => 1,
   'CLIP_TO_IMAGE' => 1,
   'ERROR_CONSOLE' => 2,
@@ -57,7 +45,6 @@ my %CONST_DATA = (
   'TEXT_DIRECTION_RTL' => 1,
   'TEXT_HINT_STYLE_MEDIUM' => 2,
   'TEXT_JUSTIFY_FILL' => 3,
-  'MIDTONES' => 1,
   'TRANSFORM_FORWARD' => 0,
   'TRANSFORM_RESIZE_CROP' => 2,
   'USER_DIRECTORY_PICTURES' => 4,
@@ -66,7 +53,10 @@ my %CONST_DATA = (
 
 {
 no strict 'refs';
-map { is(&{$_}, $CONST_DATA{$_}, "const $_ correct"); } sort keys %CONST_DATA;
+for (sort keys %CONST_DATA) {
+  my $got = eval { &{$_} };
+  is $@, '', "$_ runs" and is(&{$_}, $CONST_DATA{$_}, "const $_ correct");
+}
 }
 
 is_deeply(