The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 3;

# Load the module.
use_ok 'Test::Fixme';

# Check the formating of results.
my $results = Test::Fixme::scan_file(
    file  => 't/dirs/normal/two.pl',
    match => 'TEST'
);
ok $results, "got results to work with";

my $expected = << 'STOP';
File: 't/dirs/normal/two.pl'
    8       # TEST - test 1 (line 8).
    10      # TEST - test 2 (line 10).
STOP

is Test::Fixme::format_file_results($results), $expected, "check formatting";