package main;

use Test::More;

my $sample_dict = <<'END_SAMPLE_DICT';
an
blau
Bo"
Boot
bo"s
da
Fee
fern
Fest
fort
je
jemand
mir
Mix
Mixer
Name
neu
o"d
Ort
so
Tor
Torf
Wasser
END_SAMPLE_DICT
    ;

my @sample_phones = grep { length } split /\s+/, q{
112
5624-82
4824
0721/608-4067
10/783--5
1078-913-5
381482
04824
};

my $sample_output = <<'END_SAMPLE_OUTPUT';
5624-82: mir Tor
5624-82: Mix Tor
4824: Torf
4824: fort
4824: Tor 4
10/783--5: neu o"d 5
10/783--5: je bo"s 5
10/783--5: je Bo" da
381482: so 1 Tor
04824: 0 Torf
04824: 0 fort
04824: 0 Tor 4
END_SAMPLE_OUTPUT
    ;

if (0) {
    my %output_for = map { $_ => [] } @sample_phones;
    foreach my $output_line ( split /\n/, $sample_output ) {
        my ( $phone, $word ) = split /: /, $output_line;
        push @{ $output_for{ $phone } }, $word;
    }

    my $x = Node689350->new( { dict => [ split /\n/, $sample_dict ] } );

    plan 'tests' => scalar @sample_phones;

    foreach my $phone ( @sample_phones ) {
        my $phone_words = $x->words_for_phone( $phone );
        is_deeply( [ sort @{ $phone_words } ],
                   [ sort @{ $output_for{ $phone } } ],
                   "phone $phone" );
    }
}
else {
    my @dictionary = slurp( 'dictionary.txt' );
    my @input      = slurp( 'input.txt' );
    my @output     = slurp( 'output.txt' );

    my %output_for = map { $_ => [] } @input;
    foreach my $output_line ( @output ) {
        my ( $phone, $word ) = split /: /, $output_line;
        push @{ $output_for{ $phone } }, $word;
    }

    # This appears twice for some reason
    $output_for{ '2' } = [ '2' ];
    
    plan 'tests' => scalar @input;

    my $x = Node689350->new( { dict => \@dictionary } );

    foreach my $phone ( @input ) {
        my $phone_words = $x->words_for_phone( $phone );
        is_deeply( [ sort @{ $phone_words } ],
                   [ sort @{ $output_for{ $phone } } ],
                   "phone $phone" );
    }
}