| Server IP : 208.122.213.31 / Your IP : 216.73.216.45 Web Server : Apache System : Linux msd6191.mjhst.com 4.18.0-553.137.1.el8_10.x86_64 #1 SMP Wed Jun 24 11:40:24 UTC 2026 x86_64 User : WHMCS_MIA_382 ( 1001) PHP Version : 7.4.33 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Test-Simple/t/Test2/modules/Event/TAP/ |
Upload File : |
use strict;
use warnings;
use Test2::Tools::Tiny;
use ok 'Test2::Event::TAP::Version';
my $CLASS = 'Test2::Event::TAP::Version';
like(
exception { $CLASS->new() },
qr/'version' is a required attribute/,
"Must specify the version"
);
my $one = $CLASS->new(version => 13);
is($one->version, 13, "Got version");
is($one->summary, "TAP version 13", "Got summary");
is_deeply(
$one->facet_data,
{
about => { package => $CLASS, details => "TAP version 13", eid => $one->eid},
info => [{tag => 'INFO', debug => 0, details => "TAP version 13"}],
},
"Got facet data"
);
done_testing;