File Coverage

blib/lib/XAO/testcases/FS/qstart.pm
Criterion Covered Total %
statement 15 23 65.2
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 32 62.5


line stmt bran cond sub pod time code
1             package XAO::testcases::FS::qstart;
2 1     1   645 use strict;
  1         2  
  1         29  
3 1     1   505 use XAO::Utils;
  1         18715  
  1         73  
4 1     1   482 use XAO::Objects;
  1         5495  
  1         32  
5 1     1   11 use Error qw(:try);
  1         11  
  1         5  
6              
7 1     1   129 use base qw(XAO::testcases::FS::basic);
  1         3  
  1         473  
8              
9             sub set_up {
10 0     0 0   my $self=shift;
11              
12             # We call the main setup, let it create the basic structure, then
13             # disconnect, reconned in default mode without destroying or
14             # checking the database.
15             #
16 0           $self->SUPER::set_up();
17              
18 0 0         return if $self->{'skip_db_tests'};
19              
20 0           $self->{'odb'}->disconnect;
21 0           undef $self->{'odb'};
22              
23 0           $self->{'odb'}=XAO::Objects->new($self->{'odb_args'},{
24             objname => 'FS::Glue',
25             });
26 0           $self->assert($self->{'odb'}, "Can't re-connect to the FS database");
27              
28 0           dprint "Database reconnected in 'quick' (normal run) mode";
29             }
30              
31             ### sub test_1 ($) {
32             ### my $self=shift;
33             ### dprint "self=$self";
34             ### my $odb=$self->get_odb;
35             ### dprint "odb=$odb";
36             ### }
37              
38             1;