comparison CG_cgatools/tools/cgatools/testing.pl @ 0:ffb2b0244ab2 draft

Uploaded
author bcrain-completegenomics
date Tue, 12 Jun 2012 11:54:38 -0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:ffb2b0244ab2
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;