#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
my $m; use ok $m = "Devel::Events::Filter::Stamp";
my $time = time;
my %data = Devel::Events::Filter::Stamp::stamp_data();
is_deeply( [ sort keys %data ], [ sort qw/id time pid/ ], "keys" );
is( $data{id}, 1, "first ID" );
is( $data{pid}, $$, "pid" );
cmp_ok( $time - $data{time}, "<=", 2, "time is within range" );
%data = Devel::Events::Filter::Stamp::stamp_data();
is( $data{id}, 2, "ID incremented" );
# TODO
# test threads