#! /usr/bin/env perl

use strict;
use warnings;

use Test::More;

use Tapper::TAP::Harness;
use File::Slurp 'slurp';
use Data::Dumper;
use Test::Deep;

my $tap;
my $harness;
my $interrupts_before_section;

# ============================================================

$tap     = slurp ("t/tap_archive_benchmark-s3.tap");
$harness = new Tapper::TAP::Harness( tap => $tap );
$harness->evaluate_report();

# print STDERR Dumper($harness->parsed_report->{tap_sections});
# foreach (map { $_->{section_name} }  @{$harness->parsed_report->{tap_sections}})
# {
#         diag "Section: $_";
# }

is( scalar @{$harness->parsed_report->{tap_sections}}, 1, "section count");
cmp_deeply ([ map { $_->{section_name} } @{$harness->parsed_report->{tap_sections}}],
            [ qw/ results / ],
         "tap sections");

my $results = $harness->parsed_report->{tap_sections}->[0];
is ($results->{section_name}, 'results', "section name results");

done_testing;