mdw@git.distorted.org.uk Git - mLib/blob - utils/tests.at

   1 ### -*-autotest-*-
   2 ###
   3 ### Test script for utilities
   4 ###
   5 ### (c) 2009 Straylight/Edgeware
   6 ###
   7
   8 ###----- Licensing notice ---------------------------------------------------
   9 ###
  10 ### This file is part of the mLib utilities library.
  11 ###
  12 ### mLib is free software; you can redistribute it and/or modify
  13 ### it under the terms of the GNU Library General Public License as
  14 ### published by the Free Software Foundation; either version 2 of the
  15 ### License, or (at your option) any later version.
  16 ###
  17 ### mLib is distributed in the hope that it will be useful,
  18 ### but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ### GNU Library General Public License for more details.
  21 ###
  22 ### You should have received a copy of the GNU Library General Public
  23 ### License along with mLib; if not, write to the Free
  24 ### Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  25 ### MA 02111-1307, USA.
  26
  27 ###--------------------------------------------------------------------------
  28 ### Tests.
  29
  30 ## bits
  31 AT_SETUP([utilities: bits])
  32 AT_KEYWORDS([utils bits])
  33 for seed in 0xaca98e08 0x0b6e95fb ""; do
  34   $PYTHON SRCDIR/t/bits-testgen.py $seed >bits.tests
  35   AT_CHECK([BUILDDIR/t/bits.t -f bits.tests], [0], [ignore], [ignore])
  36 done
  37 AT_CLEANUP
  38
  39 ## control
  40 AT_SETUP([utilities: control])
  41 AT_KEYWORDS([utils control])
  42 AT_DATA([expout],
  43 [19
  44 buzz
  45 fizz
  46 22
  47 23
  48 fizz
  49 buzz
  50 26
  51 fizz
  52 28
  53 29
  54 fizzbuzz
  55 31
  56 ])
  57 AT_CHECK([BUILDDIR/t/control.t], [0], [expout])
  58 AT_CLEANUP
  59
  60 ## exc
  61 AT_SETUP([utilities: exc])
  62 AT_KEYWORDS([utils exc])
  63 AT_DATA([expout],
  64 [apple
  65 banana
  66 cabbage
  67 dibble
  68 exc type 2 (excession)
  69 fennel
  70 65 exception (val = 53)
  71 hello! __exc_list = (nil)
  72 ])
  73 AT_CHECK([BUILDDIR/t/exc.t], [0], [expout])
  74 AT_CLEANUP
  75
  76 ## versioncmp
  77 AT_SETUP([utilities: versioncmp])
  78 AT_KEYWORDS([utils versioncmp])
  79 AT_CHECK([BUILDDIR/t/versioncmp.t -f SRCDIR/t/versioncmp.tests],
  80          [0], [ignore], [ignore])
  81 AT_CLEANUP
  82
  83 ###----- That's all, folks --------------------------------------------------