File: file.t

package info (click to toggle)
libpdl-io-hdf5-perl 1%3A0.73-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 596 kB
  • sloc: perl: 1,544; makefile: 14
file content (18 lines) | stat: -rw-r--r-- 403 bytes parent folder | download | duplicates (4) 
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);