1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
Description: Add support for HDF5 1.10.3.
Author: Gilles Filippini <pini@debian.org>
Forwarded: https://sourceforge.net/p/pdl/patches/83/
--- a/t/attribPDL.t
+++ b/t/attribPDL.t
@@ -30,7 +30,7 @@ my $group=$hdf5->group('Radiometric info
# Store a dataset
my $dataset=$group->dataset('SP_BT');
-$dataset->set($bt);
+$dataset->set($bt, unlimited => 1);
# Store a scalar and pdl attribute
$dataset->attrSet('UNITS'=>'K');
--- a/t/group.t
+++ b/t/group.t
@@ -78,7 +78,7 @@ my $dataset = new PDL::IO::HDF5::Dataset
my $pdl = sequence(5,4);
-ok( $dataset->set($pdl) );
+ok( $dataset->set($pdl, unlimited => 1) );
# print "pdl written = \n".$pdl."\n";
--- a/t/reference.t
+++ b/t/reference.t
@@ -18,7 +18,7 @@ my $group=$hdf5->group('group1');
# Store a dataset
my $dataset=$hdf5->dataset('data1');
my $data = pdl [ 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0 ];
-$dataset->set($data);
+$dataset->set($data, unlimited => 1);
# create the reference
my @regionStart = ( 3 );
--- a/t/total.t
+++ b/t/total.t
@@ -52,7 +52,7 @@ my $dataset = $hdfobj->dataset('rootdata
my $pdl = sequence(5,4);
-ok($dataset->set($pdl) );
+ok($dataset->set($pdl, unlimited => 1) );
# print "pdl written = \n".$pdl."\n";
# Create String dataset using PDL::Char
@@ -60,7 +60,7 @@ my $dataset2 = $hdfobj->dataset('charDat
my $pdlChar = new PDL::Char( [ ["abccc", "def", "ghi"],["jkl", "mno", 'pqr'] ] );
-ok($dataset2->set($pdlChar));
+ok($dataset2->set($pdlChar, unlimited => 1));
my $pdl2 = $dataset->get;
@@ -92,7 +92,7 @@ $dataset = $subgroup->dataset('my datase
$pdl = sequence(5,4)->float; # Try a non-default data type
-ok( $dataset->set($pdl) );
+ok( $dataset->set($pdl, unlimited => 1) );
# print "pdl written = \n".$pdl."\n";
@@ -119,7 +119,7 @@ $dataset = $subgroup->dataset('my datase
$pdl = sequence(5,4)->long; # Try a non-default data type
-ok( $dataset->set($pdl) );
+ok( $dataset->set($pdl, unlimited => 1) );
# print "pdl written = \n".$pdl."\n";
|
