File: file.t

package info (click to toggle)
libpdl-io-hdf5-perl 1%3A0.75-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 336 kB
  • sloc: perl: 1,544; makefile: 9
file content (21 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;
use PDL::IO::HDF5;
use Test::More;

# 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);

done_testing;