- Timestamp:
- 11/11/11 13:17:43 (19 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/router/proftpd/tests/t/lib/ProFTPD/Tests/Config/FTPAccess/DELE.pm
r14672 r17876 2 2 3 3 use lib qw(t/lib); 4 use base qw( Test::Unit::TestCaseProFTPD::TestSuite::Child);4 use base qw(ProFTPD::TestSuite::Child); 5 5 use strict; 6 6 7 use File::Path qw(mkpath rmtree);7 use File::Path qw(mkpath); 8 8 use File::Spec; 9 9 use IO::Handle; … … 31 31 return testsuite_get_runnable_tests($TESTS); 32 32 } 33 34 sub set_up {35 my $self = shift;36 $self->{tmpdir} = testsuite_get_tmp_dir();37 38 # Create temporary scratch dir39 eval { mkpath($self->{tmpdir}) };40 if ($@) {41 my $abs_path = File::Spec->rel2abs($self->{tmpdir});42 die("Can't create dir $abs_path: $@");43 }44 }45 46 sub tear_down {47 my $self = shift;48 49 # Remove temporary scratch dir50 if ($self->{tmpdir}) {51 eval { rmtree($self->{tmpdir}) };52 }53 54 undef $self;55 };56 33 57 34 sub dele_bug2321 {
Note: See TracChangeset
for help on using the changeset viewer.
