view release on metacpan or  search on metacpan

t/unit/Test/DrivePlayer/DB.pm  view on Meta::CPAN

use Test::Most;
use Test::DrivePlayer::TestBase;
use Test::DrivePlayer::Utils qw( :all );

use parent 'Test::DrivePlayer::TestBase';

# Each test gets a fresh in-memory-like DB via a temp file.
sub setup : Tests(setup) {
    my ($self) = @_;
    $self->SUPER::setup();
    $self->{db} = fake_db($self->_temp_db_path);
    return;
}

sub db { $_[0]->{db} }

# ---- Schema ----

sub schema_deployed : Tests(3) {
    my ($self) = @_;

t/unit/Test/DrivePlayer/Player.pm  view on Meta::CPAN

use POSIX   qw( :sys_wait_h );
use Test::Most;
use Test::DrivePlayer::TestBase;
use Test::DrivePlayer::Utils qw( :all );
use Time::HiRes qw( time );

use parent 'Test::DrivePlayer::TestBase';

sub setup : Tests(setup) {
    my ($self) = @_;
    $self->SUPER::setup();
    load('App::DrivePlayer::Player');
    return;
}

# Most Player tests mock the mpv process and IPC socket so we can test
# state management and protocol logic without spawning a real mpv.

# ---- Constructor ----

sub constructor : Tests(3) {

t/unit/Test/DrivePlayer/Scanner.pm  view on Meta::CPAN

use Module::Load qw( load );
use Test::Most;
use Test::DrivePlayer::TestBase;
use Test::DrivePlayer::Utils qw( :all );

use parent 'Test::DrivePlayer::TestBase';

sub setup : Tests(setup) {
    my ($self) = @_;
    $self->SUPER::setup();
    Module::Load::load('App::DrivePlayer::Scanner');
    $self->{db} = fake_db($self->_temp_db_path);
    return;
}

sub db { $_[0]->{db} }

# ---- _parse_filename (internal function, tested directly) ----

sub parse_filename_artist_title : Tests(4) {