diff options
author | Jim Meyering <jim@meyering.net> | 2006-12-30 17:46:09 +0100 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2006-12-30 17:46:09 +0100 |
commit | d2ec687c1c676562214e199545c11500d7ecfed1 (patch) | |
tree | 42579ea8f60ce6f992101dd0c6a37f12727288a4 /tests/misc | |
parent | 457b4e69f57d3a023c97d0be18244a89e5fbe469 (diff) | |
download | coreutils-d2ec687c1c676562214e199545c11500d7ecfed1.tar.xz |
* tests/misc/base64: Factor a long, repetitive string.
Diffstat (limited to 'tests/misc')
-rwxr-xr-x | tests/misc/base64 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/misc/base64 b/tests/misc/base64 index 02591da86..60332a044 100755 --- a/tests/misc/base64 +++ b/tests/misc/base64 @@ -37,8 +37,7 @@ use strict; # Turn off localisation of executable's ouput. @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; -my $a39 = "YWFhY\nWFhYW\nFhYWF\nhYWFh\nYWFhY\nWFhYW\nFhYWF\n" - . "hYWFh\nYWFhY\nWFhYW\nFh"; +(my $a39 = 'YWFh' x 13) =~ s/(.{5})/$1\n/g; my @Tests = ( |