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

View of /Sprout/ErdbChangesTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Jan 16 20:05:49 2012 UTC (7 years, 1 month ago) by parrello
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
KBase reorg.

### Test program for Ross's project.

use strict;
use SeedEnv;
use Tracer;
use Sapling;

    TSetup("3 ERDB SQL", "WARN");
    my $sap = Sapling->new(dbName => 'sapling_test', dbhost => 'localhost',
        DBD => "c:/Users/Bruce/FIG/FIG/WinBuild/KSaplingDBD.xml");
    print "DBD loaded.\n";
    $sap->CreateTables();
    print "Tables created.\n";
    $sap->InsertObject('Genome', id => 360108.3, pegs => 100, reference => 1,
        rnas => 200, 'IsAnnotatedBy(from-link)' => 'ross');
    print "Genome inserted.\n";
    $sap->InsertObject('IsTaxonomyOf', from_link => 360108, to_link => 360108.3);
    print "Taxonomy link inserted.\n";
    my $q = $sap->Get("Genome IsOwnerOf Feature Produces Protein",
        "IsOwnerOf(to-link) = ?", ['fig|360108.1.peg.1041']);
    print "Query built.\n";
1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3