diff options
| author | Heiko Schlittermann (HS12) <hs@schlittermann.de> | 2015-04-09 21:49:47 +0200 |
|---|---|---|
| committer | Jeremy Harris <jgh146exb@wizmail.org> | 2015-04-13 18:40:25 +0100 |
| commit | 9d85e46af45bc9bbe55705195a814e5497ecd4ee (patch) | |
| tree | a559e101571c434f00cea205087e73c96b50767b /test | |
| parent | 13510a2575ce7d149b0a1fda78b13fce12b3faa5 (diff) | |
Stabilize test 3000 - Perl hash
A Perl hash in scalar context returns a true value. Nothing else.
Currently it's information about the internal storage, something like
n/m, used buckets/allocated buckets. But this seems to change from run
to run between 1/8 and 2/8.
Diffstat (limited to 'test')
| -rw-r--r-- | test/scripts/3000-Perl/3000 | 2 | ||||
| -rw-r--r-- | test/stdout/3000 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000 index fc5002012..30ac29eb3 100644 --- a/test/scripts/3000-Perl/3000 +++ b/test/scripts/3000-Perl/3000 @@ -16,7 +16,7 @@ ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}} ${perl{return_scalar}} ${perl{return_list}} ${perl{return_variable_vector}} -${perl{return_hash}} +${sg{${perl{return_hash}}}{\\d+}{X}} $tod_full // ${perl{change_locale}} // $tod_full **** diff --git a/test/stdout/3000 b/test/stdout/3000 index 4ee74c877..ad21103b3 100644 --- a/test/stdout/3000 +++ b/test/stdout/3000 @@ -17,7 +17,7 @@ > 42 > 30 > 3 -> 2/8 +> X/X > > Tue, 2 Mar 1999 09:44:33 +0000 // Changed locale // Tue, 2 Mar 1999 09:44:33 +0000 > |