#!/usr/bin/env perl

use v5.38.2;

use strict;
use warnings;

use Test::Most tests => 3;
use Test::MockModule;
use Path::Tiny;

use File::Basename;

use lib dirname(dirname(__FILE__)).'/lib';

use JapaChar::DB;
use JapaChar::Random;

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 $called_next_review_char = 0;
    $mock_characters->mock(_next_review_char => sub {
        $called_next_review_char = 1;
        return $mock_characters->original('_next_review_char')->(@_);
    });
    ok defined(JapaChar::Characters->new->next_char), 'The next char is defined.';
    ok $called_next_review_char, 'The next char is a review.';
}