view release on metacpan or  search on metacpan

t/1037-util-export-registry.t  view on Meta::CPAN

# ============================================

subtest 'list_exports basic' => sub {
    my $exports = util::list_exports();
    ok(ref($exports) eq 'ARRAY', 'list_exports returns arrayref');
    ok(scalar(@$exports) > 0, 'list_exports has items');

    # Check some built-in exports exist
    my %export_hash = map { $_ => 1 } @$exports;
    ok($export_hash{'is_array'}, 'has is_array');
    ok($export_hash{'is_hash'}, 'has is_hash');
    ok($export_hash{'is_string'}, 'has is_string');
    ok($export_hash{'is_ref'}, 'has is_ref');
    ok($export_hash{'is_code'}, 'has is_code');
    ok($export_hash{'is_defined'}, 'has is_defined');
    ok($export_hash{'memo'}, 'has memo');
    ok($export_hash{'pipeline'}, 'has pipeline');
};

# ============================================
# has_export - check if export exists
# ============================================

subtest 'has_export basic' => sub {
    # Built-in exports
    ok(util::has_export('is_array'), 'has_export: is_array');
    ok(util::has_export('is_hash'), 'has_export: is_hash');
    ok(util::has_export('memo'), 'has_export: memo');
    ok(util::has_export('pipeline'), 'has_export: pipeline');

    # Non-existent
    ok(!util::has_export('nonexistent_function'), 'has_export: nonexistent');
    ok(!util::has_export(''), 'has_export: empty string');
};

# ============================================
# register_export - register custom functions
# ============================================

subtest 'register_export basic' => sub {
    # Register a simple function
    util::register_export('test_double', sub { $_[0] * 2 });
    ok(util::has_export('test_double'), 'registered test_double');

    # Register another
    util::register_export('test_triple', sub { $_[0] * 3 });
    ok(util::has_export('test_triple'), 'registered test_triple');

    # Both should be in list
    my $exports = util::list_exports();
    my %export_hash = map { $_ => 1 } @$exports;
    ok($export_hash{'test_double'}, 'test_double in list');
    ok($export_hash{'test_triple'}, 'test_triple in list');
};

subtest 'register_export validation' => sub {
    # Must be coderef
    eval { util::register_export('bad_ref', [1,2,3]) };
    like($@, qr/coderef/, 'rejects non-coderef');

    eval { util::register_export('bad_scalar', 'not_a_ref') };
    like($@, qr/coderef/, 'rejects scalar');

    eval { util::register_export('bad_hash', {a => 1}) };
    like($@, qr/coderef/, 'rejects hashref');
};

subtest 'register_export duplicate' => sub {
    # Register a function
    util::register_export('test_unique', sub { 'first' });
    ok(util::has_export('test_unique'), 'first registration');

    # Try to register same name again
    eval { util::register_export('test_unique', sub { 'second' }) };
    like($@, qr/already registered/, 'rejects duplicate');
};

# ============================================
# Import registered functions
# ============================================

subtest 'import registered function' => sub {
    # Register and import
    util::register_export('custom_add', sub { $_[0] + $_[1] });

    # Import into a test package
    {
        package TestPkg1;
        util->import('custom_add');

        # Test it works
        main::is(custom_add(2, 3), 5, 'custom_add works');
        main::is(custom_add(10, 20), 30, 'custom_add second call');
    }
};

subtest 'import multiple functions' => sub {
    util::register_export('custom_mul', sub { $_[0] * $_[1] });
    util::register_export('custom_div', sub { $_[0] / $_[1] });

    {
        package TestPkg2;
        util->import('custom_mul', 'custom_div', 'is_array');

        main::is(custom_mul(3, 4), 12, 'custom_mul works');
        main::is(custom_div(20, 5), 4, 'custom_div works');
        main::ok(is_array([]), 'is_array works');
    }
};

subtest 'import unknown function' => sub {
    eval {
        package TestPkg3;
        util->import('totally_unknown_function');
    };
    like($@, qr/unknown export/, 'rejects unknown function');
};

# ============================================
# Use case: Module registering functions
# ============================================