Diff of /t/vlenString.t [9fd343] .. [abfdfc]  Maximize  Restore

  Switch to side-by-side view

--- a/t/vlenString.t
+++ b/t/vlenString.t
@@ -6,7 +6,7 @@
 use PDL::Char;
 use PDL::IO::HDF5;
 
-print "1..3\n";  
+print "1..5\n";  
 
 my $testNo = 1;
 
@@ -32,6 +32,19 @@
 
 # print "PDL::Char = $pdl\n";
 
+
+###### Now check variable-length string attribute array ###
+($pdl) = $dataset->attrGet('Attr1');
+
+@dims = $pdl->dims;
+
+#print "dims = ".join(", ", @dims)."\n";
+ok( $testNo++, join(", ", @dims) eq "14, 4");
+
+#print $pdl->atstr(2)."\n";
+ok( $testNo++,   $pdl->atstr(2) eq "Attr String 3");
+
+
 exit;
 
 

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks