=head1 AUTHOR
-Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt>
+Tim Jenness E<lt>tjenness@cpan.orgE<gt>
-Copyright (C) 1999-2001 Tim Jenness and the UK Particle Physics and
+Copyright (C) 1999-2003 Tim Jenness and the UK Particle Physics and
Astronomy Research Council. All Rights Reserved. This program is free
software; you can redistribute it and/or modify it under the same
terms as Perl itself.
-#!/usr/bin/perl -w
+#!/usr/local/bin/perl -w
# Test for mktemp family of commands in File::Temp
# Use STANDARD safe level for these tests
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Test; import Test;
- plan(tests => 9);
-}
-
use strict;
+use Test;
+BEGIN { plan tests => 9 }
use File::Spec;
use File::Path;
-#!/usr/bin/perl -w
+#!/usr/local/bin/perl -w
# Test for File::Temp - POSIX functions
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Test; import Test;
- plan(tests => 7);
-}
-
use strict;
+use Test;
+BEGIN { plan tests => 7}
use File::Temp qw/ :POSIX unlink0 /;
use FileHandle;
-
ok(1);
# TMPNAM - scalar
# Test a simple open in the cwd and tmpdir foreach of the
# security levels
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Test; import Test;
- plan(tests => 13);
-}
+use Test;
+BEGIN { plan tests => 13 }
use strict;
use File::Spec;
#!/usr/local/bin/perl -w
# Test for File::Temp - tempfile function
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Test; import Test;
- plan(tests => 20);
-}
-
use strict;
+use Test;
+BEGIN { plan tests => 20}
use File::Spec;
# Will need to check that all files were unlinked correctly