SourceForge has been redesigned. Learn more.
Close

Diff of /t/group.t [1d646d] .. [8733b5]  Maximize  Restore

Switch to side-by-side view

--- a/t/group.t
+++ b/t/group.t
@@ -1,5 +1,11 @@
+use PDL;
 use PDL::HDF5;
 use PDL::HDF5::Group;
+use PDL::HDF5::Dataset;
+
+# Script to test the group/dataset object separately.
+#  i.e. not the way they would normally be used as described
+#  in the PDL::HDF5 synopsis
 
 print "1..9\n";  
 
@@ -60,6 +66,17 @@
 
 ok($testNo++, scalar(@groups) == 0 );
 
+
+# Create a dataset in the root group
+my $dataset = new PDL::HDF5::Dataset( 'name'=> 'data1', groupname => "/",
+					groupID => $rootGroup->{groupID});
+					
+my $pdl = sequence(5,4);
+
+$dataset->set($pdl);
+
+
+
 unlink("newfile.hd5");
 
 print "completed\n";