view release on metacpan or  search on metacpan

t/broken_mariadb_versions.t  view on Meta::CPAN

    if $^O eq 'MSWin32';

my $dir = tempdir(CLEANUP => 1);

sub stub_bin {
    my ($name, $version_line) = @_;
    my $path = "$dir/$name";
    open(my $fh, '>', $path) or die "Could not write stub: $!";
    print $fh "#!/bin/sh\necho \"$version_line\"\n";
    close($fh);
    chmod(0755, $path);
    return $path;
}

my $broken122  = stub_bin(broken122  => 'mariadbd  Ver 12.2.2-MariaDB for linux-systemd on x86_64 (MariaDB Server)');
my $broken1011 = stub_bin(broken1011 => 'mariadbd  Ver 10.11.16-MariaDB for Linux on x86_64 (MariaDB Server)');
my $fixed123   = stub_bin(fixed123   => 'mariadbd  Ver 12.3.2-MariaDB for Linux on x86_64 (MariaDB Server)');
my $old1011    = stub_bin(old1011    => 'mariadbd  Ver 10.11.15-MariaDB for Linux on x86_64 (MariaDB Server)');
my $mysql8     = stub_bin(mysql8     => 'mysqld  Ver 8.0.42 for Linux on x86_64 (MySQL Community Server - GPL)');

subtest broken_version_check => sub {