aboutsummaryrefslogtreecommitdiff
path: root/tests/ii/strings/generate.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ii/strings/generate.pl')
-rw-r--r--tests/ii/strings/generate.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/ii/strings/generate.pl b/tests/ii/strings/generate.pl
index f3ac098..57aeef0 100644
--- a/tests/ii/strings/generate.pl
+++ b/tests/ii/strings/generate.pl
@@ -6,18 +6,18 @@ use Random;
my ($seed, $count) = @ARGV;
my $rng = Random->new($seed, "strings");
my @edges = (
- '1 placeholder 1 0',
- '0 A 1 1',
- '0 Ab09 4 1',
- '0 Ab09 1 4',
- '0 Ab09 2 0',
+ '1 1 0 placeholder',
+ '0 1 1 A',
+ '0 4 1 Ab09',
+ '0 1 4 Ab09',
+ '0 2 0 Ab09',
);
$rng->emit($count, \@edges, sub {
my $size = $rng->integer(0,24);
-return '1 placeholder 1 0' if $size == 0;
+return '1 1 0 placeholder' if $size == 0;
my @alphabet = split //, 'ABCXYZabcxyz019@_-';
my $text = join '', map { $alphabet[$rng->integer(0,$#alphabet)] } 1 .. $size;
my $start = $rng->integer(1,$size);
my $width = $rng->integer(0,$size-$start+1);
-return "0 $text $start $width";
+return "0 $start $width $text";
});