t/attribPDL.t to unix line-endings

PDLPorters · Oct 9, 2024 · 334c2c1 · 334c2c1
1 parent 513f108
commit 334c2c1
Showing 1 changed file with 125 additions and 125 deletions.
diff --git a/t/attribPDL.t b/t/attribPDL.t
@@ -1,125 +1,125 @@
-# Test case for HDF5 attributes that are pdls 
-#   This is a new feature as-of version 0.64
-use strict;
-use warnings;
-use PDL;
-use PDL::Char;
-use PDL::IO::HDF5;
-use Config;
-my $have_LL = $Config{ivsize} == 4 ? 0 : 1;
-use Test::More;
-
-my $filename = "attrib.hdf5";
-# get rid of filename if it already exists
-unlink $filename if( -e $filename);
-
-my $hdf5 = new PDL::IO::HDF5($filename);
-
-# Create pdls to store:
-my $pchar = PDL::Char->new( [['abc', 'def', 'ghi'],['jkl', 'mno', 'pqr']] );
-my $bt=pdl([[1.2,1.3,1.4],[1.5,1.6,1.7],[1.8,1.9,2.0]]);
-
-my $group=$hdf5->group('Radiometric information');
-
-# Store a dataset
-my $dataset=$group->dataset('SP_BT');
-$dataset->set($bt, unlimited => 1);
-
-# Store a scalar and pdl attribute
-$dataset->attrSet('UNITS'=>'K');
-$dataset->attrSet('NUM_COL'=>pdl(long,[[1,2,3],[4,5,6]]));
-$dataset->attrSet('NUM_COLLONG'=>pdl(longlong,[[123456789123456784,2,3],[4,5,6]]))
-  if $have_LL;
-$dataset->attrSet('NUM_ROW'=>$pchar);
-$dataset->attrSet('SCALING'=>'pepe');
-$dataset->attrSet('OFFSET'=>pdl(double,[0.0074]));
-$dataset->attrSet('ID'=>pdl(long,87));
-$dataset->attrSet('IDLONG'=>pdl(longlong,123456789123456784))
-  if $have_LL;
-$dataset->attrSet('TEMPERATURE'=>pdl(double,3.1415927));
-
-# Set group attribute
-$group->attrSet('GroupPDLAttr'=>pdl(long,[[1,2,3],[4,5,6]]));
-
-######## Now Read HDF5 file  #####
-my $hdf2= new PDL::IO::HDF5($filename);
-my $group2=$hdf2->group('Radiometric information');
-my $dataset2=$group2->dataset('SP_BT');
-my $expected;
-
-$expected = pdl '
-[
- [1.2 1.3 1.4]
- [1.5 1.6 1.7]
- [1.8 1.9   2]
-]
-';
-my $bt2=$dataset2->get();
-ok all(approx($bt2, $expected)) or diag "got: $bt2";
-
-$expected = 'K';
-my ($units)=$dataset2->attrGet('UNITS');
-is($units, $expected);
-
-$expected = pdl '
-[
- [1 2 3]
- [4 5 6]
-]
-';
-my ($numcol)=$dataset2->attrGet('NUM_COL');
-ok all(approx($numcol, $expected)) or diag "got: $numcol";
-
-isa_ok($numcol, 'PDL');
-
-if($have_LL) {
-  $expected = '123456789123456784                  2                  3                  4                  5                  6';
-  my ($numcollong)=$dataset2->attrGet('NUM_COLLONG');
-  is(sprintf("%18i %18i %18i %18i %18i %18i",$numcollong->list()), $expected);
-}
-
-$expected = "[
- [ 'abc' 'def' 'ghi'  ] 
- [ 'jkl' 'mno' 'pqr'  ] 
-] 
-";
-my ($numrow)=$dataset2->attrGet('NUM_ROW');
-is("$numrow", $expected);
-
-$expected = 'pepe';
-my ($scaling)=$dataset2->attrGet('SCALING');
-is($scaling, $expected);
-
-$expected = pdl '[0.0074]';
-my ($offset)=$dataset2->attrGet('OFFSET');
-ok all(approx($offset, $expected)) or diag "got: $offset";
-
-$expected = '87';
-my ($id)=$dataset2->attrGet('ID');
-is("$id", $expected);
-
-if($have_LL) {
-  $expected = '123456789123456784';
-  my ($idlong)=$dataset2->attrGet('IDLONG');
-  is("$idlong", $expected);
-}
-
-$expected = pdl '3.1415927';
-my ($temperature)=$dataset2->attrGet('TEMPERATURE');
-ok all(approx($temperature, $expected)) or diag "got: $temperature";
-
-# Check Group PDL Attribute
-$expected = pdl '
-[
- [1 2 3]
- [4 5 6]
-]
-';
-my ($numcol2)=$group2->attrGet('GroupPDLAttr');
-ok all(approx($numcol2, $expected)) or diag "got: $numcol2";
-isa_ok($numcol2, 'PDL');
-
-# clean up file
-unlink $filename if( -e $filename);
-
-done_testing;
+# Test case for HDF5 attributes that are pdls
+#   This is a new feature as-of version 0.64
+use strict;
+use warnings;
+use PDL;
+use PDL::Char;
+use PDL::IO::HDF5;
+use Config;
+my $have_LL = $Config{ivsize} == 4 ? 0 : 1;
+use Test::More;
+
+my $filename = "attrib.hdf5";
+# get rid of filename if it already exists
+unlink $filename if( -e $filename);
+
+my $hdf5 = new PDL::IO::HDF5($filename);
+
+# Create pdls to store:
+my $pchar = PDL::Char->new( [['abc', 'def', 'ghi'],['jkl', 'mno', 'pqr']] );
+my $bt=pdl([[1.2,1.3,1.4],[1.5,1.6,1.7],[1.8,1.9,2.0]]);
+
+my $group=$hdf5->group('Radiometric information');
+
+# Store a dataset
+my $dataset=$group->dataset('SP_BT');
+$dataset->set($bt, unlimited => 1);
+
+# Store a scalar and pdl attribute
+$dataset->attrSet('UNITS'=>'K');
+$dataset->attrSet('NUM_COL'=>pdl(long,[[1,2,3],[4,5,6]]));
+$dataset->attrSet('NUM_COLLONG'=>pdl(longlong,[[123456789123456784,2,3],[4,5,6]]))
+  if $have_LL;
+$dataset->attrSet('NUM_ROW'=>$pchar);
+$dataset->attrSet('SCALING'=>'pepe');
+$dataset->attrSet('OFFSET'=>pdl(double,[0.0074]));
+$dataset->attrSet('ID'=>pdl(long,87));
+$dataset->attrSet('IDLONG'=>pdl(longlong,123456789123456784))
+  if $have_LL;
+$dataset->attrSet('TEMPERATURE'=>pdl(double,3.1415927));
+
+# Set group attribute
+$group->attrSet('GroupPDLAttr'=>pdl(long,[[1,2,3],[4,5,6]]));
+
+######## Now Read HDF5 file  #####
+my $hdf2= new PDL::IO::HDF5($filename);
+my $group2=$hdf2->group('Radiometric information');
+my $dataset2=$group2->dataset('SP_BT');
+my $expected;
+
+$expected = pdl '
+[
+ [1.2 1.3 1.4]
+ [1.5 1.6 1.7]
+ [1.8 1.9   2]
+]
+';
+my $bt2=$dataset2->get();
+ok all(approx($bt2, $expected)) or diag "got: $bt2";
+
+$expected = 'K';
+my ($units)=$dataset2->attrGet('UNITS');
+is($units, $expected);
+
+$expected = pdl '
+[
+ [1 2 3]
+ [4 5 6]
+]
+';
+my ($numcol)=$dataset2->attrGet('NUM_COL');
+ok all(approx($numcol, $expected)) or diag "got: $numcol";
+
+isa_ok($numcol, 'PDL');
+
+if($have_LL) {
+  $expected = '123456789123456784                  2                  3                  4                  5                  6';
+  my ($numcollong)=$dataset2->attrGet('NUM_COLLONG');
+  is(sprintf("%18i %18i %18i %18i %18i %18i",$numcollong->list()), $expected);
+}
+
+$expected = "[
+ [ 'abc' 'def' 'ghi'  ] 
+ [ 'jkl' 'mno' 'pqr'  ] 
+] 
+";
+my ($numrow)=$dataset2->attrGet('NUM_ROW');
+is("$numrow", $expected);
+
+$expected = 'pepe';
+my ($scaling)=$dataset2->attrGet('SCALING');
+is($scaling, $expected);
+
+$expected = pdl '[0.0074]';
+my ($offset)=$dataset2->attrGet('OFFSET');
+ok all(approx($offset, $expected)) or diag "got: $offset";
+
+$expected = '87';
+my ($id)=$dataset2->attrGet('ID');
+is("$id", $expected);
+
+if($have_LL) {
+  $expected = '123456789123456784';
+  my ($idlong)=$dataset2->attrGet('IDLONG');
+  is("$idlong", $expected);
+}
+
+$expected = pdl '3.1415927';
+my ($temperature)=$dataset2->attrGet('TEMPERATURE');
+ok all(approx($temperature, $expected)) or diag "got: $temperature";
+
+# Check Group PDL Attribute
+$expected = pdl '
+[
+ [1 2 3]
+ [4 5 6]
+]
+';
+my ($numcol2)=$group2->attrGet('GroupPDLAttr');
+ok all(approx($numcol2, $expected)) or diag "got: $numcol2";
+isa_ok($numcol2, 'PDL');
+
+# clean up file
+unlink $filename if( -e $filename);
+
+done_testing;