#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 14;

BEGIN {
    unshift @INC => ('t/test_lib', '/test_lib');
}

use Read;
use SyncRead;

can_ok("Read", 'new');
my $reader = Read->new();

isa_ok($reader, 'Read');

can_ok("SyncRead", 'new');
my $sync_reader = SyncRead->new();

isa_ok($sync_reader, 'SyncRead');
isa_ok($sync_reader, 'Read');

ok($sync_reader->does('TSyncRead'), '... sync reader is a TSyncRead');

# these should be the same
is($reader->read(), $sync_reader->read(), '... these should be the same results');

# now lets extract the actul trait and examine it

my $trait;
{
	no strict 'refs';
	# get the trait out
	$trait = ${"SyncRead::TRAITS"};
}

# check to see it is what we want it to be
isa_ok($trait, 'Class::Trait::Config');

# now examine the trait itself
is($trait->name, 'TSyncRead', '... get the traits name');

ok(eq_array($trait->sub_traits, []), '... this should be empty');
ok(eq_hash($trait->conflicts, {}), '... this should be empty');    
ok(eq_hash($trait->overloads, {}), '... this should be empty');

ok(eq_hash(
        $trait->requirements, 
        { read => 1 })
    , '... this should not be empty');

ok(eq_set(
        [ keys %{$trait->methods} ], 
        ['lock', 'unlock', 'read'])
    , '... this should not be empty');