- 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/Commands/MFF.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);8 7 use File::Spec; 9 8 use IO::Handle; … … 40 39 sub list_tests { 41 40 return testsuite_get_runnable_tests($TESTS); 42 }43 44 sub set_up {45 my $self = shift;46 $self->{tmpdir} = testsuite_get_tmp_dir();47 48 # Create temporary scratch dir49 eval { mkpath($self->{tmpdir}) };50 if ($@) {51 my $abs_path = File::Spec->rel2abs($self->{tmpdir});52 die("Can't create dir $abs_path: $@");53 }54 }55 56 sub tear_down {57 my $self = shift;58 59 # Remove temporary scratch dir60 if ($self->{tmpdir}) {61 eval { rmtree($self->{tmpdir}) };62 }63 64 undef $self;65 41 } 66 42
Note: See TracChangeset
for help on using the changeset viewer.
