tests/sort/sort-rand.sh

   1 #!/bin/sh
   2 # Ensure that sort --sort-random doesn't sort.
   3
   4 # Copyright (C) 2005-2024 Free Software Foundation, Inc.
   5
   6 # This program is free software: you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation, either version 3 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  18
  19 . "${srcdir=.}/tests/init.sh"; path_prepend_ ./src
  20 print_ver_ sort
  21
  22 seq 100 > in || framework_failure_
  23
  24
  25 sort --random-sort in > out || fail=1
  26
  27 # Fail if the input is the same as the output.
  28 # This is a probabilistic test :-)
  29 # However, the odds of failure are very low: 1 in 100! (~ 1 in 10^158)
  30 compare in out > /dev/null && { fail=1; echo "not random?" 1>&2; }
  31
  32 # Fail if the sorted output is not the same as the input.
  33 sort -n out > out1
  34 compare in out1 || { fail=1; echo "not a permutation" 1>&2; }
  35
  36 # If locale is available then use it to find a random non-C locale.
  37 if (locale --version) > /dev/null 2>&1; then
  38   locale=$(locale -a | sort --random-sort | $AWK '/^.._/{print;exit}')
  39   LC_ALL=$locale sort --random-sort in > out1 || fail=1
  40   LC_ALL=$locale sort --random-sort in > out2 || fail=1
  41
  42   # Fail if the output "randomly" is the same twice in a row.
  43   compare out1 out2 > /dev/null &&
  44     { fail=1; echo "not random with LC_ALL=$locale" 1>&2; }
  45
  46   # Fail if the sorted output is not the same as the input.
  47   sort -n out > out1
  48   compare in out1 ||
  49     { fail=1; echo "not a permutation with LC_ALL=$locale" 1>&2; }
  50 fi
  51
  52 Exit $fail