Mercurial Mercurial > upstream > oracle > userland-gate / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
components/coreutils/patches/tests-misc-expr.patch
author Mike Sullivan <Mike.Sullivan@Oracle.COM>
Mon, 04 Feb 2013 11:39:22 -0800
changeset 1141 b4714de15fb2
parent 987 810b92005f34
child 1833 0edb05d72e6b
permissions -rw-r--r--
Close of build 15.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
987
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     1
 
---  coreutils-8.16/tests/misc/expr.orig	2012-09-03 07:18:28.214998564 -0700
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     2
 
+++  coreutils-8.16/tests/misc/expr	2012-09-03 07:22:12.547808280 -0700
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     3
 
@@ -140,7 +140,11 @@
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     4
 
      ['bre48', '_ : "a\\{1,x"',
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     5
 
       {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     6
 
      ['bre49', '_ : "a\\{32768\\}"',
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     7
 
-      {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     8
 
+      {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2},
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
     9
 
+      # Map AIX-6's different diagnostic to the one we expect:
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    10
 
+      {ERR_SUBST =>
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    11
 
+       's,Regular expression too big,Invalid content of \\\\{\\\\},'},
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    12
 
+      ],
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    13
 
      ['bre50', '_ : "a\\{1,0\\}"',
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    14
 
       {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    15
 
      ['bre51', '"acabc" : ".*ab\\{0,0\\}c"', {OUT => '2'}],
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    16
 
@@ -171,7 +175,7 @@
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    17
 
     );
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    18
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    19
 
 # If using big numbers fails, remove all /^bignum-/ tests
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    20
 
-`expr $big_prod '*' $big_prod '*' $big_prod`
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    21
 
+qx!expr $big_prod '*' $big_prod '*' $big_prod!
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    22
 
   or @Tests = grep {$_->[0] !~ /^bignum-/} @Tests;
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    23
810b92005f34 PSARC 2012/170 GNU coreutils 8.16
Rich Burridge <rich.burridge@oracle.com>
parents:
diff changeset 
    24
 
 # Append a newline to end of each expected 'OUT' string.
upstream/oracle/userland-gate