diff options
| author | _ov4 <ov4@ov4.org> | 2026-10-17 10:39:45 +0000 |
|---|---|---|
| committer | _ov4 <ov4@ov4.org> | 2026-10-17 10:39:45 +0000 |
| commit | 4a34e970fb224be7640883f6b0dfa602157759f4 (patch) | |
| tree | 3f2e0a54163b179b411e604b6362c08cb1075d3d /tests/ii/overload-methods/generate.pl | |
| parent | b47c302bbffd668334f307d512b674f804f8f2fc (diff) | |
test(overload): add randomized differential coverage
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Diffstat (limited to 'tests/ii/overload-methods/generate.pl')
| -rw-r--r-- | tests/ii/overload-methods/generate.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/ii/overload-methods/generate.pl b/tests/ii/overload-methods/generate.pl new file mode 100644 index 0000000..6ea50f2 --- /dev/null +++ b/tests/ii/overload-methods/generate.pl @@ -0,0 +1,19 @@ +use strict; +use warnings; +use FindBin; +use lib "$FindBin::Bin/.."; +use Random; +my ($seed, $count) = @ARGV; +my $rng = Random->new($seed, "overload-methods"); +my @edges = ( + '0 0 1 x', + '-1000 1000 8 boundary', + '1000 -1000 8 z', + '0 24 2 equal', + '0 23 2 below', + '0 25 2 above', +); +$rng->emit($count, \@edges, sub { + return join ' ', $rng->integer(-1000,1000), $rng->integer(-1000,1000), + $rng->integer(1,8), 'x' x $rng->integer(1,24); +}); |
