View | Details | Raw Unified | Return to bug 36190
Collapse All | Expand All

(-)a/xt/find-missing-op-in-forms.t (-4 / +5 lines)
Lines 39-46 for my $file ( @files ) { Link Here
39
    push @errors, sprintf "%s:%s", $file, join (",", @e) if @e;
39
    push @errors, sprintf "%s:%s", $file, join (",", @e) if @e;
40
}
40
}
41
41
42
is( @errors, 0, "The <form> in the following files are missing it's corresponding op parameter, or op does not start with 'cud-' (see bug 34478)" )
42
is(
43
    or diag( Dumper @errors );
43
    @errors, 0,
44
    "The <form> in the following files are missing it's corresponding op parameter, or op does not start with 'cud-' (see bug 34478)"
45
) or diag( Dumper @errors );
44
46
45
sub catch_missing_op {
47
sub catch_missing_op {
46
    my ($file) = @_;
48
    my ($file) = @_;
Lines 59-65 sub catch_missing_op { Link Here
59
        if ( $in_form && $line =~ m{name="op"} ) {
61
        if ( $in_form && $line =~ m{name="op"} ) {
60
            $has_op = 1;
62
            $has_op = 1;
61
            if ( $line =~ m{value="(.*)"} ) {
63
            if ( $line =~ m{value="(.*)"} ) {
62
                $op_value = $1
64
                $op_value = $1;
63
            }
65
            }
64
        }
66
        }
65
        if ( $in_form && $line =~ m{</form} ) {
67
        if ( $in_form && $line =~ m{</form} ) {
66
- 

Return to bug 36190