#!perl

use strict;
use warnings;
use Test::More tests => 4;
use Pod::Advent;

package Text::Aspell;
sub new {
  die;  # force failure on loading of Text::Aspell;
}

package main;

my $advent = Pod::Advent->new;

is( $Pod::Advent::speller, undef, "no speller" );
is( $advent->spellcheck_enabled, 0, "spellcheck disabled" );

my $s;
$advent->output_string( \$s );
$advent->parse_file( \*DATA );

is( $advent->num_spelling_errors, 0, "no misspelled word ct" );
is_deeply( [ $advent->spelling_errors ], [],  "no misspelled words" );

__DATA__
=pod

z1 word B<word z2> word I<z3> B<z4 I<z5> word z6>
repeated z3

=cut