tests/af-14

   1 #!/bin/sh
   2 # Architectural Form: test ArcBridA:
   3 #    Resolving IDREFs (series: af-12 - af-15)
   4 #    Now throw away "stanza" part, mapping IDREFs to CDATA, no bridge required
   5 # test onsgmls and osgmlnorm
   6
   7 LANG=C; export LANG
   8 LC_ALL=C; export LC_ALL
   9
  10 tmpfiles=""
  11 trap 'rm -fr $tmpfiles' 1 2 3 15
  12
  13 tmpfiles="$tmpfiles af-14.sgml af-14.dtd af-meta-14.dtd"
  14 cat <<EOF >af-14.sgml
  15 <!DOCTYPE doc SYSTEM "af-14.dtd">
  16 <doc>
  17  <s>
  18   <v n="n1">verse 1</v>
  19   <v n="n2">verse 2</v>
  20  </s>
  21  <n>
  22   <i r="n2">note on verse 2</i>
  23  </n>
  24 </doc>
  25 EOF
  26 cat <<EOF >af-14.dtd
  27 <!NOTATION SGML PUBLIC "-//ISO 8879:1986//NOTATION Standard Generalized Markup
  28     Language//EN">
  29
  30 <?IS10744 ArcBase open>
  31 <!NOTATION open PUBLIC "-//OpenJade Project//NOTATION AFDR ARCBASE open Architecture//EN">
  32 <!ATTLIST #NOTATION open
  33     ArcDTD CDATA #FIXED "opendtd">
  34 <!ENTITY opendtd SYSTEM "af-meta-14.dtd" CDATA SGML>
  35
  36 <!ELEMENT doc - o (s+,n)>
  37 <!ATTLIST doc
  38   open NMTOKEN   #FIXED "open">
  39 <!ELEMENT s   - o (v+)>
  40 <!ELEMENT v   - o (#PCDATA)>
  41 <!ATTLIST v
  42   n ID        #REQUIRED>
  43 <!ELEMENT n   - o (i+)>
  44 <!ATTLIST n
  45   open NMTOKEN   #FIXED "notes">
  46 <!ELEMENT i   - o (#PCDATA)>
  47 <!ATTLIST i
  48   r IDREF        #REQUIRED>
  49 EOF
  50
  51 cat <<EOF >af-meta-14.dtd
  52 <!ELEMENT open    - o (notes)>
  53 <!ELEMENT notes   - o (i+)>
  54 <!ELEMENT i       - o (#PCDATA)>
  55 <!ATTLIST i
  56   r CDATA #IMPLIED>
  57 EOF
  58
  59 tmpfiles="$tmpfiles af-14-onsgmls.out"
  60
  61 : ${ONSGMLS=onsgmls}
  62 ${ONSGMLS} >af-14-onsgmls.out -A open af-14.sgml
  63 tmpfiles="$tmpfiles af-14-onsgmls.ok"
  64 cat <<EOF >af-14-onsgmls.ok
  65 (OPEN
  66 (NOTES
  67 AR CDATA N2
  68 (I
  69 -note on verse 2
  70 )I
  71 )NOTES
  72 )OPEN
  73 C
  74 EOF
  75
  76 : ${DIFF=diff}
  77 ${DIFF} af-14-onsgmls.ok af-14-onsgmls.out
  78 result=$?
  79 test $result = 0 || { rm -fr $tmpfiles; exit 1; }
  80
  81 tmpfiles="$tmpfiles af-14-norm.out"
  82 : ${OSGMLNORM=osgmlnorm}
  83 ${OSGMLNORM} >af-14-norm.out -A open af-14.sgml
  84 tmpfiles="$tmpfiles af-14-norm.ok"
  85
  86 cat <<EOF >af-14-norm.ok
  87 <OPEN>
  88 <NOTES>
  89 <I R="N2">note on verse 2</I>
  90 </NOTES>
  91 </OPEN>
  92 EOF
  93
  94 ${DIFF} af-14-norm.ok af-14-norm.out
  95 result=$?
  96 test $result = 0 || result=$(($result + 1))
  97
  98 rm -fr $tmpfiles
  99
 100 exit $result