Permalink
Browse files

forgot to remove syncdirectives test!

  • Loading branch information...
1 parent 2502138 commit d30d5827c0f0edfa9a8e09f3758099c03acf82ca @rbuels rbuels committed Apr 13, 2012
Showing with 0 additions and 34 deletions.
  1. +0 −34 t/transforms/syncdirectives.t
@@ -1,34 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-
-use IO::Scalar;
-use File::Temp;
-
-use Bio::GFF3::Transform::SyncDirectives 'gff3_add_sync_directives';
-
-for my $test_gff3 ( 't/data/gff3_with_syncs.gff3', 't/data/tomato_chr4_head.gff3' ) {
- my $t1 = file_without_syncs( $test_gff3 );
- my $out = undef;
- gff3_add_sync_directives( IO::Scalar->new( \$out ), $t1 );
-
- is( $out, read_file( $test_gff3 ), 'got right sync marks' );
-}
-
-done_testing;
-
-sub read_file {
- open my $f, '<', shift or die "$!";
- local $/;
- return <$f>;
-}
-
-sub file_without_syncs {
- my $t = File::Temp->new;
- open my $f, '<', +shift or die;
- while( my $line = <$f> ) {
- $t->print( $line ) unless $line =~ /^###$/;
- }
- $t->close;
- return $t;
-}

0 comments on commit d30d582

Please sign in to comment.