[Bio] / Sprout / SaplingTest.pl Repository:
ViewVC logotype

Diff of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3, Mon Mar 4 19:04:31 2013 UTC revision 1.4, Wed May 8 20:28:44 2013 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use DBKernel;  use Sapling;
5  use ERDB;  use Tracer;
6    use Stats;
7    
8  my $dbh = DBKernel->new("Pg", "kbase_sapling", "postgres", "foracle69X");  
9  my $erdb = ERDB->new($dbh, 'c:\Users\Bruce\FIG\FIG\KBaseCDMI\KSaplingDBD.xml');  my $sap = Sapling->new(loadDirectory => '/homes/parrello/saptest');
10  $erdb->CreateTables();  TSetup("3 Delete ERDB", ">/homes/parrello/test.log");
11    my $stats = Stats->new();
12    Trace("Looking for genomes.") if T(2);
13    my @genomes = $sap->GetFlat('Genome', "Genome(complete) = 1 AND Genome(scientific-name) LIKE ?",
14            ['Streptococcus %'], 'id');
15    for my $genome (@genomes) {
16        Trace("Processing $genome.") if T(2);
17        my $subStats = $sap->Delete(Genome => $genome, testMode => 'dump');
18        $stats->Accumulate($subStats);
19    }
20    
21    Trace("All done:\n" . $stats->Show()) if T(2);
22    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3