File tree 2 files changed +25
-0
lines changed
2 files changed +25
-0
lines changed Original file line number Diff line number Diff line change
1
+ # This file lists tests that cannot run in MTR v1 for some reason.
2
+ # They will be skipped.
3
+ # Any text following white space after full test name is ignored
4
+ # Only exact test names can be used, no regexp.
5
+
6
+ main.fulltext_plugin # Refers to $SIMPLE_PARSER_OPT which is not set
Original file line number Diff line number Diff line change 32
32
33
33
my $do_test ;
34
34
my $skip_test ;
35
+ my %incompatible ;
35
36
36
37
sub init_pattern {
37
38
my ($from , $what )= @_ ;
@@ -47,6 +48,15 @@ sub init_pattern {
47
48
}
48
49
49
50
51
+ sub collect_incomp_tests {
52
+ open (INCOMP, " lib/v1/incompatible.tests" );
53
+ while (<INCOMP>)
54
+ {
55
+ next unless / ^\w / ;
56
+ s /\s .*\n // ; # Ignore anything from first white space
57
+ $incompatible {$_ }= 1;
58
+ }
59
+ }
50
60
51
61
# #############################################################################
52
62
#
58
68
$do_test = init_pattern($: :opt_do_test, " --do-test" );
59
69
$skip_test = init_pattern($: :opt_skip_test, " --skip-test" );
60
70
71
+ collect_incomp_tests();
72
+
61
73
my $suites = shift ; # Semicolon separated list of test suites
62
74
my $cases = []; # Array of hash
63
75
@@ -528,6 +540,13 @@ ($$$$$$$$$)
528
540
$tinfo -> {' component_id' } = $component_id ;
529
541
push (@$cases , $tinfo );
530
542
543
+ if (exists ($incompatible {$tinfo -> {' name' }}))
544
+ {
545
+ $tinfo -> {' skip' }= 1;
546
+ $tinfo -> {' comment' }= " Test cannot run in mtr v1" ;
547
+ return ;
548
+ }
549
+
531
550
# ----------------------------------------------------------------------
532
551
# Skip some tests but include in list, just mark them to skip
533
552
# ----------------------------------------------------------------------
You can’t perform that action at this time.
0 commit comments