1use strict;
2use warnings;
3
4use Test2::Tools::Tiny;
5
6use ok 'Test2::EventFacet';
7my $CLASS = 'Test2::EventFacet';
8
9my $one = $CLASS->new(details => 'foo');
10
11is($one->details, "foo", "Got details");
12
13is_deeply($one->clone, $one, "Cloning.");
14
15isnt($one->clone, $one, "Clone is a new ref");
16
17my $two = $one->clone(details => 'bar');
18is($one->details, 'foo', "Original details unchanged");
19is($two->details, 'bar', "Clone details changed");
20
21ok(!$CLASS->is_list, "Not a list by default");
22ok(!$CLASS->facet_key, "No key for base class");
23
24done_testing;
25