chiark - git - mdw - mLib/blob - struct/tests.at

   1 ### -*-autotest-*-
   2 ###
   3 ### Test script for data structures
   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 ## assoc
  31 AT_SETUP([struct: assoc])
  32 AT_KEYWORDS([struct assoc])
  33 AT_SKIP_IF([test "$PYTHON" = :])
  34 for seed in 0x58677213 0xdfcc2ff4 ""; do
  35   $PYTHON SRCDIR/t/sym-gtest.py $seed
  36   AT_CHECK([BUILDDIR/t/assoc.t <sym.script], [0], [expout])
  37 done
  38 AT_CLEANUP
  39
  40 ## darray
  41 AT_SETUP([struct: darray])
  42 AT_KEYWORDS([struct darray])
  43 AT_SKIP_IF([test "$PYTHON" = :])
  44 for seed in 0x0394946c 0xe8991664 ""; do
  45   $PYTHON SRCDIR/t/da-gtest.py $seed
  46   AT_CHECK([BUILDDIR/t/darray.t <da.script], [0], [expout])
  47 done
  48 AT_CLEANUP
  49
  50 ## dstr
  51 AT_SETUP([struct: dstr-putf])
  52 AT_KEYWORDS([struct dstr putf dstr_putf])
  53 AT_CHECK([BUILDDIR/t/dstr-putf.t], [0], [All tests successful.
  54 ])
  55 AT_CLEANUP
  56
  57 ## sym
  58 AT_SETUP([struct: sym])
  59 AT_KEYWORDS([struct sym])
  60 AT_SKIP_IF([test "$PYTHON" = :])
  61 for seed in 0xdc0f64a3 0xd0b9fad0 ""; do
  62   $PYTHON SRCDIR/t/sym-gtest.py $seed
  63   AT_CHECK([BUILDDIR/t/sym.t <sym.script], [0], [expout])
  64 done
  65 AT_CLEANUP
  66
  67 ###----- That's all, folks --------------------------------------------------