Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /t/total.t [1f6a3f] .. [cff6f0] Maximize Restore

  Switch to side-by-side view

--- a/t/total.t
+++ b/t/total.t
@@ -9,7 +9,7 @@
 #  i.e. the way they would normally be used as described
 #  in the PDL::IO::HDF5 synopsis
 
-print "1..29\n";  
+print "1..30\n";  
 
 my $testNo = 1;
 
@@ -105,6 +105,13 @@
 # Check for the PDL returned being a float
 ok($testNo++, ($pdl->get_datatype - $PDL_F) < .001 );
 
+# Get a hyperslab
+$pdl = $dataset->get(pdl([0,0]), pdl([5,1]));  # Get the first vector of the PDL
+
+# Check to see if the dims are as expected.
+my @pdlDims = $pdl->dims;
+ok( $testNo++, ($pdlDims[0] == 5) && ($pdlDims[1] == 1));
+
 ################ Set Attributes at the Dataset Leve ###############			
 					
 # Set attribute for group