|
Lines 22-27
use Modern::Perl;
Link Here
|
| 22 |
use Test::More; |
22 |
use Test::More; |
| 23 |
use File::Find; |
23 |
use File::Find; |
| 24 |
use File::Slurp; |
24 |
use File::Slurp; |
|
|
25 |
use Test::NoWarnings; |
| 25 |
|
26 |
|
| 26 |
# Test for Bug 40292: Prevent SQL syntax error when upgrading to 25.05 on MariaDB 10.3 |
27 |
# Test for Bug 40292: Prevent SQL syntax error when upgrading to 25.05 on MariaDB 10.3 |
| 27 |
# This test ensures that database revision files don't use SQL syntax that is incompatible |
28 |
# This test ensures that database revision files don't use SQL syntax that is incompatible |
|
Lines 48-54
if ( !@db_rev_files ) {
Link Here
|
| 48 |
plan skip_all => "No database revision files found in $db_revs_dir"; |
49 |
plan skip_all => "No database revision files found in $db_revs_dir"; |
| 49 |
} |
50 |
} |
| 50 |
|
51 |
|
| 51 |
plan tests => scalar @db_rev_files; |
52 |
plan tests => scalar @db_rev_files + 1; |
| 52 |
|
53 |
|
| 53 |
foreach my $file (@db_rev_files) { |
54 |
foreach my $file (@db_rev_files) { |
| 54 |
my $content = read_file($file); |
55 |
my $content = read_file($file); |
| 55 |
- |
|
|