comparison cgatools_suite/tools/cgatools/testing.pl @ 7:96829b1b73ea draft

Uploaded
author bcrain-completegenomics
date Wed, 06 Jun 2012 16:58:26 -0400
parents
children
comparison
equal deleted inserted replaced
6:e4eff539a999 7:96829b1b73ea
1 #!/usr/bin/perl
2
3 print "$0 @ARGV\n";
4 open OUT, ">@ARGV[0]";
5 print "test1 ok\ttest1 ok\ntest1 ok\ttest1 ok\n";
6 print OUT "test ok\ttest ok\ntest ok\ttest ok\n";
7 close OUT;
8 open OUT, ">somefile";
9 print OUT "test2 ok\ttest2 ok\ntest2 ok\ttest2 ok\n";
10 close OUT;