tests/dbmfetch03.at

   1 # This file is part of GDBM.                                   -*- autoconf -*-
   2 # Copyright (C) 2011 Free Software Foundation, Inc.
   3 #
   4 # GDBM is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2, or (at your option)
   7 # any later version.
   8 #
   9 # GDBM is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with GDBM. If not, see <http://www.gnu.org/licenses/>. */
  16
  17 AT_SETUP([fetch from a read-only 1.8-style database])
  18 AT_KEYWORDS([dbm fetch fetch03 dbmfetch03])
  19
  20 AT_CHECK([
  21 AT_COMPAT_PREREQ
  22 mkdir dir
  23 cd dir
  24 num2word 1:10 | dtload test
  25 rm test.dir
  26 ln test.pag test.dir
  27 chmod -w test.dir test.pag .
  28 dtfetch test 6 10
  29 ],
  30 [0],
  31 [six
  32 ten
  33 ])
  34
  35 AT_CLEANUP
  36