#! /bin/sh
#  -*- Mode: Shell-script -*-
# pseudo.test --- test the select pseudo option
#
# Time-stamp:        "2007-07-04 11:30:57 bkorb"
# Author:            Bruce Korb <bkorb@gnu.org>
# Last Modified:     $Date: 2007/07/04 20:51:14 $
#            by: bkorb
##
## This file is part of AutoGen.
## AutoGen copyright (c) 1992-2007 by Bruce Korb - all rights reserved
##
## AutoGen is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by the
## Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## AutoGen is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
## See the GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License along
## with this program.  If not, see <http://www.gnu.org/licenses/>.
##
#
# $Id: pseudo.test,v 4.5 2007/07/04 20:51:14 bkorb Exp $
# ----------------------------------------------------------------------

. ./defs

# # # # # # # # # # TEMPLATE FILE # # # # # # # # #

echo creating ${testname}.tpl
cat > ${testname}.tpl <<'_EOF_'
[= AutoGen5 Template

(define f-name "")

h=(begin
    (set! f-name (string-append (getenv "incdir") "/%s-hdr.%s"))
    (shellf
    "d=`dirname %s`
    test -d ${d} || mkdir -p $d || die cannot mkdir $d"
    f-name)
    f-name
  )

c=(begin
    (set! f-name (string-append (getenv "srcdir") "/%s-body.%s"))
    (shellf
    "d=`dirname %s`
    test -d ${d} || mkdir -p $d || die cannot mkdir $d"
    f-name)
    f-name
  )

# end of pseudo
=]
[=

(sprintf "two file create %s: " (suffix)) =][=

CASE (suffix) =][=

== h =]HEADER FILE[=
== c =]BODY 4 FILE[=
*    =][= (error "woops") =][=

ESAC =]
_EOF_

# # # # # # # # # # RUN TESTS # # # # # # #

incdir=${testname}-inc
srcdir=${testname}-src

export incdir srcdir

${AGexe} --no-def -T${testname}.tpl -b${testname} || \
   failure ${AGexe} --no-def -T${testname}.tpl -b${testname}

f=${incdir}/${testname}-hdr.h
test -f ${f} || \
   failure missing file: ${f}
${FGREP} 'two file create h: HEADER FILE' ${f} || failure bad contents for $f

f=${srcdir}/${testname}-body.c
test -f ${f} || \
   failure missing file: ${f}
${FGREP} 'two file create c: BODY 4 FILE' ${f} || failure bad contents for $f

cleanup

## Local Variables:
## Mode: shell-script
## indent-tabs-mode: nil
## sh-indentation: 2
## End:

# end of pseudo.test