67 lines
2.0 KiB
Perl
67 lines
2.0 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use v5.38.2;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::Most tests => 5;
|
|
use Test::MockModule;
|
|
use Path::Tiny;
|
|
|
|
use File::Basename;
|
|
|
|
use lib dirname(dirname(__FILE__)).'/lib';
|
|
|
|
use JapaChar::DB;
|
|
use JapaChar::Random;
|
|
use JapaChar::Schema;
|
|
|
|
BEGIN {
|
|
use_ok 'JapaChar::Characters';
|
|
};
|
|
|
|
{
|
|
my $mock_db = Test::MockModule->new('JapaChar::DB');
|
|
$mock_db->mock(_db_path => sub {
|
|
return path(__FILE__)->parent->child('all-learned-basic-characters.db');
|
|
});
|
|
my $mock_random = Test::MockModule->new('JapaChar::Random');
|
|
$mock_random->mock(get => sub {
|
|
return 100;
|
|
});
|
|
my $mock_characters = Test::MockModule->new('JapaChar::Characters');
|
|
my $next_review_char = undef;
|
|
$mock_characters->mock(_next_review_char => sub {
|
|
$next_review_char = $mock_characters->original('_next_review_char')->(@_);
|
|
return $next_review_char;
|
|
});
|
|
my $next_char = JapaChar::Characters->new->next_char;
|
|
ok defined($next_char), 'The next char is defined.';
|
|
is_deeply $next_char, $next_review_char, 'The next char is a review one when all characters are learned.';
|
|
}
|
|
|
|
{
|
|
JapaChar::Schema::reset_schema();
|
|
JapaChar::DB::reset_dbh();
|
|
my $mock_db = Test::MockModule->new('JapaChar::DB');
|
|
my $tempdir = Path::Tiny->tempdir;
|
|
my $db_file = $tempdir->child('doesnt-exist.db');
|
|
$mock_db->mock(_db_path => sub {
|
|
return $db_file;
|
|
});
|
|
my $mock_random = Test::MockModule->new('JapaChar::Random');
|
|
$mock_random->mock(get => sub {
|
|
return 19;
|
|
});
|
|
my $mock_characters = Test::MockModule->new('JapaChar::Characters');
|
|
my $next_learning = undef;
|
|
$mock_characters->mock(_next_learning_char => sub {
|
|
$next_learning = $mock_characters->original('_next_learning_char')->(@_);
|
|
return $next_learning;
|
|
});
|
|
my $next_char = JapaChar::Characters->new->next_char;
|
|
ok defined($next_char), 'The next char is defined.';
|
|
is_deeply $next_char, $next_learning, 'The next char is a learning one when there is no progress.';
|
|
}
|