tests/af-12

   1 #!/bin/sh
   2 # Architectural Form: test ArcBridA:
   3 #    Resolving IDREFs (series: af-12 - af-15)
   4 # test onsgmls and osgmlnorm
   5
   6 LANG=C; export LANG
   7 LC_ALL=C; export LC_ALL
   8
   9 tmpfiles=""
  10 trap 'rm -fr $tmpfiles' 1 2 3 15
  11
  12 tmpfiles="$tmpfiles af-12.sgml af-12.dtd af-meta-12.dtd"
  13 cat <<EOF >af-12.sgml
  14 <!DOCTYPE doc SYSTEM "af-12.dtd">
  15 <doc>
  16  <s>
  17   <v n="n1">verse 1</v>
  18   <v n="n2">verse 2</v>
  19  </s>
  20  <n>
  21   <i r="n2">note on verse 2</i>
  22  </n>
  23 </doc>
  24 EOF
  25 cat <<EOF >af-12.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     ArcDTD CDATA #FIXED "opendtd">
  33 <!ENTITY opendtd SYSTEM "af-meta-12.dtd" CDATA SGML>
  34
  35 <!ELEMENT doc - o (s+,n)>
  36 <!ATTLIST doc
  37   open NMTOKEN   #FIXED "open">
  38 <!ELEMENT s   - o (v+)>
  39 <!ATTLIST s
  40   open NMTOKEN   #FIXED "stanza">
  41 <!ELEMENT v   - o (#PCDATA)>
  42 <!ATTLIST v
  43   n id        #REQUIRED
  44   open NMTOKEN   #FIXED "verse">
  45 <!ELEMENT n   - o (i+)>
  46 <!ATTLIST n
  47   open NMTOKEN   #FIXED "notes">
  48 <!ELEMENT i   - o (#PCDATA)>
  49 <!ATTLIST i
  50   r IDREF        #REQUIRED>
  51 EOF
  52
  53 cat <<EOF >af-meta-12.dtd
  54 <!ELEMENT open     - o (stanza+,notes)>
  55 <!ELEMENT stanza   - o (verse+)>
  56 <!ELEMENT verse    - o (#PCDATA)>
  57 <!ATTLIST verse
  58   n CDATA #REQUIRED>
  59 <!ELEMENT notes   - o (i+)>
  60 <!ELEMENT i       - o (#PCDATA)>
  61 <!ATTLIST i
  62   r CDATA #IMPLIED>
  63 EOF
  64
  65 tmpfiles="$tmpfiles af-12-onsgmls.out"
  66
  67 : ${ONSGMLS=onsgmls}
  68 ${ONSGMLS} >af-12-onsgmls.out -A open af-12.sgml
  69 tmpfiles="$tmpfiles af-12-onsgmls.ok"
  70 cat <<EOF >af-12-onsgmls.ok
  71 (OPEN
  72 (STANZA
  73 AN CDATA N1
  74 (VERSE
  75 -verse 1
  76 )VERSE
  77 AN CDATA N2
  78 (VERSE
  79 -verse 2
  80 )VERSE
  81 )STANZA
  82 (NOTES
  83 AR CDATA N2
  84 (I
  85 -note on verse 2
  86 )I
  87 )NOTES
  88 )OPEN
  89 C
  90 EOF
  91
  92 : ${DIFF=diff}
  93 ${DIFF} af-12-onsgmls.ok af-12-onsgmls.out
  94 result=$?
  95 test $result = 0 || { rm -fr $tmpfiles; exit 1; }
  96
  97 tmpfiles="$tmpfiles af-12-norm.out"
  98 : ${OSGMLNORM=osgmlnorm}
  99 ${OSGMLNORM} >af-12-norm.out -A open af-12.sgml
 100 tmpfiles="$tmpfiles af-12-norm.ok"
 101
 102 cat <<EOF >af-12-norm.ok
 103 <OPEN>
 104 <STANZA>
 105 <VERSE N="N1">verse 1</VERSE>
 106 <VERSE N="N2">verse 2</VERSE>
 107 </STANZA>
 108 <NOTES>
 109 <I R="N2">note on verse 2</I>
 110 </NOTES>
 111 </OPEN>
 112 EOF
 113
 114 ${DIFF} af-12-norm.ok af-12-norm.out
 115 result=$?
 116 test $result = 0 || result=$(($result + 1))
 117
 118 rm -fr $tmpfiles
 119
 120 exit $result