1use strict; 2use warnings; 3 4use Test2::Tools::Tiny; 5 6use ok 'Test2::Event::TAP::Version'; 7my $CLASS = 'Test2::Event::TAP::Version'; 8 9like( 10 exception { $CLASS->new() }, 11 qr/'version' is a required attribute/, 12 "Must specify the version" 13); 14 15my $one = $CLASS->new(version => 13); 16is($one->version, 13, "Got version"); 17is($one->summary, "TAP version 13", "Got summary"); 18 19is_deeply( 20 $one->facet_data, 21 { 22 about => { package => $CLASS, details => "TAP version 13", eid => $one->eid}, 23 info => [{tag => 'INFO', debug => 0, details => "TAP version 13"}], 24 }, 25 "Got facet data" 26); 27 28done_testing; 29