home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume26 / cook-1.4 / part01 / test / 00 / t0003a.sh < prev    next >
Linux/UNIX/POSIX Shell Script  |  1993-05-03  |  1KB  |  59 lines
  1. #! /bin/sh
  2. #
  3. #    cook - file construction tool
  4. #    Copyright (C) 1990, 1991, 1992, 1993 Peter Miller.
  5. #    All rights reserved.
  6. #
  7. #    This program is free software; you can redistribute it and/or modify
  8. #    it under the terms of the GNU General Public License as published by
  9. #    the Free Software Foundation; either version 2 of the License, or
  10. #    (at your option) any later version.
  11. #
  12. #    This program is distributed in the hope that it will be useful,
  13. #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. #    GNU General Public License for more details.
  16. #
  17. #    You should have received a copy of the GNU General Public License
  18. #    along with this program; if not, write to the Free Software
  19. #    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. #
  21. # MANIFEST: test "collect" builtin function
  22. #
  23.  
  24. tmp=/tmp/$$
  25. here=`pwd`
  26.  
  27. fail()
  28. {
  29.     echo 'FAILED test of builtin function "collect"' 1>&2
  30.     cd $here
  31.     rm -rf $tmp
  32.     exit 1
  33. }
  34. pass()
  35. {
  36.     cd $here
  37.     rm -rf $tmp
  38.     exit 0
  39. }
  40. trap "fail" 1 2 3 15
  41.  
  42. mkdir $tmp
  43. cd $tmp
  44.  
  45. cat > Howto.cook <<foobar
  46. test:
  47. {
  48.     answer = [collect echo a b c];
  49.     if [not [in [count [answer]] 3]] then fail;
  50. }
  51. foobar
  52. if test $? -ne 0 ; then fail; fi
  53.  
  54. $here/bin/cook -nl
  55. if test $? -ne 0 ; then fail; fi
  56.  
  57. # probably OK
  58. pass
  59.