Clean up dest dir in CFC test 501-include_dir.t

Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/5ee2fed0
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/5ee2fed0
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/5ee2fed0

Branch: refs/heads/cfc-tests
Commit: 5ee2fed0beadcf66e2431485b7b9d733a570ccd0
Parents: 0b6904d
Author: Nick Wellnhofer <[email protected]>
Authored: Thu Jan 31 22:27:34 2013 +0100
Committer: Nick Wellnhofer <[email protected]>
Committed: Thu Jan 31 22:27:34 2013 +0100

----------------------------------------------------------------------
 clownfish/compiler/perl/t/501-include_dir.t |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/5ee2fed0/clownfish/compiler/perl/t/501-include_dir.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/501-include_dir.t 
b/clownfish/compiler/perl/t/501-include_dir.t
index 2d1d002..6f055b3 100644
--- a/clownfish/compiler/perl/t/501-include_dir.t
+++ b/clownfish/compiler/perl/t/501-include_dir.t
@@ -22,7 +22,7 @@ use Clownfish::CFC::Model::Hierarchy;
 use Clownfish::CFC::Util qw( a_isa_b );
 use File::Spec::Functions qw( catfile splitpath );
 use Fcntl;
-use File::Path qw( rmtree mkpath );
+use File::Path qw( rmtree );
 
 my $source = 't/cfsource';
 my $ext    = 't/cfext';
@@ -152,3 +152,6 @@ my $file_clash  = 't/cfclash/file';
     Clownfish::CFC::Model::Class->_clear_registry();
 }
 
+# Clean up.
+rmtree($dest);
+

Reply via email to