view release on metacpan or  search on metacpan

t/db.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 39;
use Test::Exception;
use Test::Differences;

use Data::Dumper;
use Path::Class;
use File::Path;



use lib "lib", "t/lib";
use Test::Covered;
my $test_dir = dir(qw/ t data cover_db /);

use Devel::CoverX::Covered::Db;
use Devel::CoverX::Covered;



diag("Create db file");
lives_ok(
    sub { Devel::CoverX::Covered::Db->new() },
    "Create DB ok with no params ok",
);

my $count;

ok(my $covered_db = Devel::CoverX::Covered::Db->new(dir => $test_dir), "Create DB ok");
ok($covered_db->db, "  and got db object");
is(
    scalar @{[ glob( file($test_dir->parent, "covered") . "/*.db") ]},
    1,
    "  and SQLite db file",
);



like(
    "hey/prove.bat",
    $covered_db->rex_skip_calling_file,
    "  default skip rex matches prove.bat",
);
unlike(
    "hey/baberiba",
    $covered_db->rex_skip_calling_file,
    "  default skip rex doesn't match nonsense",
);



$covered_db->db->query("select count(*) from covered_calling_metric")->into( $count );
is($count, 0, "  and got empty table");

$covered_db->db->query("select count(*) from file")->into( $count );
is($count, 0, "  and got empty table");




diag("Connect to existing db file");
ok($covered_db = Devel::CoverX::Covered::Db->new(dir => $test_dir), "Create DB ok");
ok(my $db = $covered_db->db, "  and got db object");