[58ab2f]: t / file.t Maximize Restore History

Download this file

file.t    19 lines (13 with data), 403 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
use PDL::IO::HDF5;
use Test::More tests => 3;
# New File Check:
my $filename = "newFile.hdf5";
# get rid of filename if it already exists
unlink $filename if( -e $filename);
ok(new PDL::IO::HDF5($filename));
#Existing File for Writing Check
ok(new PDL::IO::HDF5(">".$filename));
#Existing File for Reading Check
ok(new PDL::IO::HDF5($filename));
# clean up file
unlink $filename if( -e $filename);