tests/af-10

   1 #!/bin/sh
   2 # Architectural Form: test ArcNamrA:
   3 #    Deriving attribute values from content; data from element "v" goes
   4 #    to attribute "text" of "verse", and delete it as element content
   5 #    makes onsgmls segfault; nsgmls.jc accepts this input:
   6 #        ONSGMLS=nsgmls.jc OSGMLNORM=sgmlnorm.jc ./af-10
   7 # test onsgmls and osgmlnorm
   8
   9 LANG=C; export LANG
  10 LC_ALL=C; export LC_ALL
  11
  12 tmpfiles=""
  13 trap 'rm -fr $tmpfiles' 1 2 3 15
  14
  15 tmpfiles="$tmpfiles af-10.sgml af-10.dtd af-meta-10.dtd"
  16 cat <<EOF >af-10.sgml
  17 <!DOCTYPE doc SYSTEM "af-10.dtd">
  18 <doc>
  19  <s>
  20   <v n="1">verse 1</v>
  21   <v n="2">verse 2</v>
  22  </s>
  23 </doc>
  24 EOF
  25 cat <<EOF >af-10.dtd
  26 <!NOTATION SGML PUBLIC "-//ISO 8879:1986//NOTATION Standard Generalized Markup
  27     Language//EN">
  28
  29 <?IS10744 ArcBase open>
  30 <!NOTATION open PUBLIC "-//OpenJade Project//NOTATION AFDR ARCBASE open Architecture//EN">
  31 <!ATTLIST #NOTATION open
  32     ArcNamrA NAME #FIXED "doc-attr"
  33     ArcDTD CDATA #FIXED "opendtd">
  34 <!ENTITY opendtd SYSTEM "af-meta-10.dtd" CDATA SGML>
  35
  36 <!ELEMENT doc - o (s+)>
  37 <!ATTLIST doc
  38   open NMTOKEN #FIXED "open">
  39 <!ELEMENT s   - o (v+)>
  40 <!ATTLIST s
  41   open NMTOKEN   #FIXED "stanza">
  42 <!ELEMENT v   - o (#PCDATA)>
  43 <!ATTLIST v
  44   n CDATA        #REQUIRED
  45   open NMTOKEN   #FIXED "verse"
  46   doc-attr CDATA #FIXED "text #CONTENT">
  47 EOF
  48
  49 cat <<EOF >af-meta-10.dtd
  50 <!ELEMENT open     - o (stanza+)>
  51 <!ELEMENT stanza   - o (verse+)>
  52 <!ELEMENT verse    - o EMPTY>
  53 <!ATTLIST verse
  54   n CDATA #REQUIRED
  55   text CDATA #IMPLIED>
  56 EOF
  57
  58 tmpfiles="$tmpfiles af-10-onsgmls.out"
  59
  60 : ${ONSGMLS=onsgmls}
  61 ${ONSGMLS} >af-10-onsgmls.out -A open af-10.sgml
  62 tmpfiles="$tmpfiles af-10-onsgmls.ok"
  63 cat <<EOF >af-10-onsgmls.ok
  64 (OPEN
  65 (STANZA
  66 AN CDATA 1
  67 ATEXT CDATA verse 1
  68 (VERSE
  69 )VERSE
  70 AN CDATA 2
  71 ATEXT CDATA verse 2
  72 (VERSE
  73 )VERSE
  74 )STANZA
  75 )OPEN
  76 C
  77 EOF
  78
  79 : ${DIFF=diff}
  80 ${DIFF} af-10-onsgmls.ok af-10-onsgmls.out
  81 result=$?
  82 test $result = 0 || { rm -fr $tmpfiles; exit 1; }
  83
  84 tmpfiles="$tmpfiles af-10-norm.out"
  85 : ${OSGMLNORM=osgmlnorm}
  86 ${OSGMLNORM} >af-10-norm.out -A open af-10.sgml
  87 tmpfiles="$tmpfiles af-10-norm.ok"
  88
  89 cat <<EOF >af-10-norm.ok
  90 <OPEN>
  91 <STANZA>
  92 <VERSE N="1" TEXT="verse 1">
  93 <VERSE N="2" TEXT="verse 2">
  94 </STANZA>
  95 </OPEN>
  96 EOF
  97
  98 ${DIFF} af-10-norm.ok af-10-norm.out
  99 result=$?
 100 test $result = 0 || result=$(($result + 1))
 101
 102 rm -fr $tmpfiles
 103
 104 exit $result