view release on metacpan or  search on metacpan

t/01_oo_style.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;

use Test::More tests => 85;
use Test::NoWarnings;
use Test::Differences;

BEGIN {
    require_ok('Hash::Map');
}

note 'constructors';
{
    my $package = 'Hash::Map';
    isa_ok(
        scalar $package->new,
        $package,
        'constructor new',
    );
    isa_ok(
        scalar $package->target_ref({t => 1}),
        $package,
        'constructor target_ref',
    );
    isa_ok(
        scalar $package->set_target_ref({t => 1}),
        $package,
        'constructor target_ref',
    );
    isa_ok(
        scalar $package->target(t => 1),
        $package,
        'constructor target',
    );
    isa_ok(
        scalar $package->set_target,
        $package,
        'constructor set_target',
    );
    isa_ok(
        scalar $package->source_ref({s => 1}),
        $package,
        'constructor source_ref',
    );
    isa_ok(
        scalar $package->set_source_ref({s => 1}),
        $package,
        'constructor source_ref',
    );
    isa_ok(
        scalar $package->source(s => 1),
        $package,
        'constructor source',
    );
    isa_ok(
        scalar $package->set_source,
        $package,
        'constructor set_source',
    );
    isa_ok(
        scalar $package->combine,
        $package,
        'constructor combine',
    );
}