Make Band inherit from Object

ajolma · Jun 18, 2023 · 1ff3c70 · 1ff3c70
1 parent 4741fa1
commit 1ff3c70
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 0 deletions.
diff --git a/lib/Geo/GDAL/FFI/Band.pm b/lib/Geo/GDAL/FFI/Band.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use Carp;
 use FFI::Platypus::Buffer;
+use base 'Geo::GDAL::FFI::Object';
 
 our $VERSION = 0.0900;
 

diff --git a/t/00.t b/t/00.t
@@ -258,7 +258,19 @@ if(1){
     # Cannot modify tag "PhotometricInterpretation" while writing at (a line afterwards this).
     # should investigate why
     #$b->SetColorTable([[1,2,3,4],[5,6,7,8]]);
+
+    if(0){ # band metadata test
+        $b->SetMetadata({'d' => {'a' => 'b'}});
+        my $md = $b->GetMetadata();
+        for my $d (keys %$md) {
+            say 'domain ',$d;
+            for (keys %{$md->{$d}}) {
+                say $_, '=>', $md->{$d}{$_};
+            }
+        }
+    }
 }
+
 if(1){
     my $dr = GetDriver('MEM');
     my $ds = $dr->Create('', 10);

diff --git a/t/dataset.t b/t/dataset.t
@@ -35,6 +35,16 @@ dies_ok (
     sub {$ds->GetLayer (-1)},
     'GetLayer exception for negative index',
 );
+if(0) { # dataset metadata test
+    $ds->SetMetadata({'d' => {'a' => 'b'}});
+    my $md = $ds->GetMetadata();
+    for my $d (keys %$md) {
+        say 'domain ',$d;
+        for (keys %{$md->{$d}}) {
+            say $_, '=>', $md->{$d}{$_};
+        }
+    }
+}
 
 
 done_testing();