Test of parse_replacement version 3

use feature qw(say);
use strict;
use warnings;

use Carp;
use Data::Dump qw(dd dump);
use Scalar::Util 'reftype';

# Test cases:
# Format:
#   string,       regex,    replacement, expected
my @test_cases = (
    ['aba',      'a(.*?)a', '$1',      'b'],
    ['yyababaxxa', 'a(.*?)a', '$1',    'yybbxx'],
    ['acccb',    'a(.*?)b', '$1\$',    'ccc$'],
    ['abxybaxy', '(x)(y)',  '${2}3$1', 'aby3xbay3x']
);

for (0..$#test_cases) {
    say "Case " . ($_ + 1);
    say "--------";
    my ($str, $regex, $replacement, $expected_result) = @{$test_cases[$_]};
    say "String: '$str'";
    say "Regex: " . dump($regex);
    say "Replacement: '$replacement'";
    say "Expected: '$expected_result'";
    my $result_str = $str;
    pos( $str ) = 0;
    pos( $result_str ) = 0;
    while (1) {
        my @captures = $str =~ /\G.*?$regex/;
        last if @captures == 0;
        pos($str) = $+[0];
        my $func = parse_replacement( $replacement );
        my $result = $func->(\@captures);
        if ($result_str =~ s/\G.*?\K$regex/$result/) {
            my $length_of_match = ($+[0] - $-[0]);
            my $offset = length( $result ) - $length_of_match;
            pos( $result_str ) = $+[0] + $offset;
        } else {
            croak "No replacements is unexpected at this point!";
        }
    }
    say "Result2: '$result_str'";
    say "Test result: " . (($expected_result eq $result_str) ? "passed" : "failed");
    say "";
}