#! /usr/bin/env perl

use strict;
use warnings;

use Test::More;

use TAP::DOM;
use Data::Dumper;

BEGIN {
        if ($TAP::Parser::VERSION < 3.22) {
                plan skip_all => "TAP::Parser 3.22 required for setting TAP version. This is ".$TAP::Parser::VERSION.".";
        }
}

my $tap;
{
        local $/;
        open (TAP, "< t/some_tap6_autotapversion.txt") or die "Cannot read t/some_tap6_autotapversion.txt";
        $tap = <TAP>;
        close TAP;
}

my $tapdata = TAP::DOM->new( tap => $tap, version => 13 );
# diag Dumper $tapdata;

is($tapdata->{tests_run},      2, "tests_run");
is($tapdata->{tests_planned},  2, "tests_planned");
is($tapdata->{version},       13, "version");
is($tapdata->{plan},      "1..2", "plan");

is($tapdata->{lines}[1]{_children}[0]{data}{BenchmarkAnythingData}[0]{NAME},  "bogomips", "BenchmarkAnythingData.NAME");
is($tapdata->{lines}[1]{_children}[0]{data}{BenchmarkAnythingData}[0]{VALUE}, "9876.50",  "BenchmarkAnythingData.VALUE");

is($tapdata->{summary}{todo},         0,      "summary todo");
is($tapdata->{summary}{total},        2,      "summary total");
is($tapdata->{summary}{passed},       2,      "summary passed");
is($tapdata->{summary}{failed},       0,      "summary failed");
is($tapdata->{summary}{exit},         0,      "summary exit");
is($tapdata->{summary}{wait},         0,      "summary wait");
is($tapdata->{summary}{status},       "PASS", "summary status");
is($tapdata->{summary}{all_passed},   1,      "summary all_passed");
is($tapdata->{summary}{has_problems}, 0,      "summary has_problems");

is($tapdata->summary->todo,         0,      "summary todo via methods");
is($tapdata->summary->total,        2,      "summary total via methods");
is($tapdata->summary->passed,       2,      "summary passed via methods");
is($tapdata->summary->failed,       0,      "summary failed via methods");
is($tapdata->summary->exit,         0,      "summary exit via methods");
is($tapdata->summary->wait,         0,      "summary wait via methods");
is($tapdata->summary->status,       "PASS", "summary status via methods");
is($tapdata->summary->all_passed,   1,      "summary all_passed via methods");
is($tapdata->summary->has_problems, 0,      "summary has_problems via methods");

done_testing;