r59104 - /trunk/nama/t/12_nama.t

bolangi-guest at users.alioth.debian.org bolangi-guest at users.alioth.debian.org
Thu Jun 10 06:38:20 UTC 2010


Author: bolangi-guest
Date: Thu Jun 10 06:38:11 2010
New Revision: 59104

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59104
Log:
t/12_nama.t: cleanup files, reset terminal on exit

Modified:
    trunk/nama/t/12_nama.t

Modified: trunk/nama/t/12_nama.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/nama/t/12_nama.t?rev=59104&op=diff
==============================================================================
--- trunk/nama/t/12_nama.t (original)
+++ trunk/nama/t/12_nama.t Thu Jun 10 06:38:11 2010
@@ -958,6 +958,16 @@
 		yaml_out(setup_content($expected_setup_lines)), 
 		$test_name);
 }
-
+sub cleanup { 	
+		unlink './test/Setup.ecs';
+		rmdir './test/.wav';
+		rmdir './test';
+		rmdir './untitled/.wav';
+		rmdir './untitled';
+		unlink './.effects_cache';
+		$term->rl_deprep_terminal();
+}
+
+cleanup();
 1;
-__END__
+__END__




More information about the Pkg-perl-cvs-commits mailing list