view release on metacpan or  search on metacpan

t/8013-file-hooks.t  view on Meta::CPAN

    my $on_disk = file::slurp($testfile);
    is($on_disk, '!dlroW ,olleH', 'data encoded on disk');

    # Re-register read hook
    file::register_read_hook(sub {
        my ($path, $data) = @_;
        return scalar(reverse($data));
    });

    # Reading should decode
    my $decoded = file::slurp($testfile);
    is($decoded, $original, 'data decoded on read');

    file::clear_hooks('read');
    file::clear_hooks('write');
};

done_testing();

t/8014-file-xs-api.t  view on Meta::CPAN

    # Install reverse on both read and write
    file_api_test::install_reverse_hook('write');
    file_api_test::install_reverse_hook('read');

    my $testfile = "$tempdir/encoding_test.txt";
    my $original = "Hello, World!";

    file::spew($testfile, $original);

    # Reading should reverse the reversed content back to original
    my $decoded = file::slurp($testfile);
    is($decoded, $original, 'reverse encoding round-trip works');

    # Check what's actually on disk (clear read hook)
    file_api_test::clear_hook('read');
    my $on_disk = file::slurp($testfile);
    is($on_disk, '!dlroW ,olleH', 'data reversed on disk');

    file_api_test::clear_hook('write');
};

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