view cgatools_suite/tools/cgatools/testing.pl @ 14:e2e802a079f0 draft

Uploaded

#!/usr/bin/perl

print "$0 @ARGV\n";
open OUT, ">@ARGV[0]";
print "test1 ok\ttest1 ok\ntest1 ok\ttest1 ok\n";
print OUT "test ok\ttest ok\ntest ok\ttest ok\n";
close OUT;
open OUT, ">somefile";
print OUT "test2 ok\ttest2 ok\ntest2 ok\ttest2 ok\n";
close OUT;