From 0b49c0a256a2cf02ce4e2718a858706bdad2f0d2 Mon Sep 17 00:00:00 2001
From: sestaton <statonse@gmail.com>
Date: Mon, 25 Jul 2016 14:30:31 -0700
Subject: [PATCH] close files after testing

---
 t/02-addinfo.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/02-addinfo.t b/t/02-addinfo.t
index 46fb5f5..6d12cf8 100644
--- a/t/02-addinfo.t
+++ b/t/02-addinfo.t
@@ -63,6 +63,7 @@ check_pairinfo($tmpfq_out, $tmpfa_out);
 check_pairinfo($fqfile, $fafile);
 unlink $fq_data, $fa_data;
 
+done_testing();
 #
 # methods
 #
@@ -77,14 +78,17 @@ sub check_pairinfo {
 	   ok ($line =~ qr/\/1$/, 'Can properly add pair information to fastq');
       	}
     }
+    close $fq;
 
     while (my $line = <$fa>) {
         if ($line =~ /^\>HWI/) {
             ok($line =~ qr/\/1$/, 'Can properly add pair information to fasta');
         }
     }
+    close $fa;
 
-    unlink $tmpfq_out, $tmpfa_out;
+    #unlink $tmpfq_out, $tmpfa_out;
+    return;
 }
 
 sub _build_fq_data {