Fix problem with defining rules

Eugen Konkov · Leont · commit 8b8695696b5b · 2025-10-13T16:04:56.000+02:00
Fixes: #75
diff --git a/lib/App/Prove.pm b/lib/App/Prove.pm
@@ -372,13 +372,13 @@ sub _get_args {
         my @rules;
         for ( @{ $self->rules } ) {
             if (/^par=(.*)/) {
-                push @rules, $1;
+                push @rules, { par => $1 };
             }
             elsif (/^seq=(.*)/) {
                 push @rules, { seq => $1 };
             }
         }
-        $args{rules} = { par => [@rules] };
+        $args{rules} = { seq => [@rules] };
     }
     $args{harness_class} = $self->{harness_class} if $self->{harness_class};
 

Original file line number	Diff line number	Diff line change
`@@ -372,13 +372,13 @@ sub _get_args {`
`372`	`372`	`my @rules;`
`373`	`373`	`for ( @{ $self->rules } ) {`
`374`	`374`	`if (/^par=(.*)/) {`
`375`		`- push @rules, $1;`
	`375`	`+ push @rules, { par => $1 };`
`376`	`376`	`}`
`377`	`377`	`elsif (/^seq=(.*)/) {`
`378`	`378`	`push @rules, { seq => $1 };`
`379`	`379`	`}`
`380`	`380`	`}`
`381`		`- $args{rules} = { par => [@rules] };`
	`381`	`+ $args{rules} = { seq => [@rules] };`
`382`	`382`	`}`
`383`	`383`	`$args{harness_class} = $self->{harness_class} if $self->{harness_class};`
`384`	`384`