Newer
Older
Laura Clarke
committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
use lib 't';
BEGIN { $| = 1;
use Test;
plan tests => 7;
}
my $loaded = 0;
END {print "not ok 1\n" unless $loaded;}
use EnsTestDB;
use Bio::EnsEMBL::DBLoader;
$loaded = 1;
ok(1);
# Database will be dropped when this
# object goes out of scope
my $ens_test = EnsTestDB->new;
$ens_test->do_sql_file("t/minidatabase.dump");
my $db = $ens_test->get_DBSQL_Obj;
ok($ens_test);
my $analysis_ad = $db->get_AnalysisAdaptor();
ok($analysis_ad);
my $analysis = Bio::EnsEMBL::Analysis->new();
$analysis->logic_name('dummy_analysis');
$analysis->db('dummy');
$analysis->program('dummy');
$analysis->gff_source('dummy');
$analysis->gff_feature('dummy');
ok($analysis);
$analysis_ad->store($analysis);
ok(1);
my $analysis_out = $analysis_ad->fetch_by_newest_logic_name('dummy_analysis');
ok($analysis_out);
ok($analysis_out->db eq 'dummy');