[exim-cvs] Stabilize test 3000 - Perl hash

Top Page
Delete this message
Reply to this message
Author: Exim Git Commits Mailing List
Date:  
To: exim-cvs
Subject: [exim-cvs] Stabilize test 3000 - Perl hash
Gitweb: http://git.exim.org/exim.git/commitdiff/9d85e46af45bc9bbe55705195a814e5497ecd4ee
Commit:     9d85e46af45bc9bbe55705195a814e5497ecd4ee
Parent:     13510a2575ce7d149b0a1fda78b13fce12b3faa5
Author:     Heiko Schlittermann (HS12) <hs@???>
AuthorDate: Thu Apr 9 21:49:47 2015 +0200
Committer:  Jeremy Harris <jgh146exb@???>
CommitDate: Mon Apr 13 18:40:25 2015 +0100


    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.
---
 test/scripts/3000-Perl/3000 |    2 +-
 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 fc50020..30ac29e 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 4ee74c8..ad21103 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
>