#!/bin/sh
#
# Copyright (c) 2005 Jonas Fonseca
#
test_description='Test incremental parsing of SGML documents.
This test checks if the SGML parser correctly recovers during incremental
parsing.
'
. "$TEST_LIB"
test_incremental_parsing () {
desc="$1"; shift
src="$1"; shift
out="$1"; shift
URI="test:$(normalize "$desc")"
echo "#document: $URI" > expected
printf "%s\n" "$out" | sed -n '2,$p' | sed -e 's/^/ /' >> expected
for size in 1 2 3 4 5 6 7 8 9 10 15 20 25 50; do
printf "%s" "$src" | sgml-parser --uri "$URI" --stdin "$size" > output
test_run_ 'cmp output expected'
if [ "$?" != 0 -o "$eval_ret" != 0 ]
then
test_failure_ "$desc" "($size bytes)"
return
fi
done
test_ok_ "$desc"
}
test_incremental_parsing \
"Parse a small document." \
'Hello World!
' \
'
element: html
element: body
element: p
#text: Hello World!'
test_incremental_parsing \
'Parse elements.' \
'a' \
'
element: root
element: child
attribute: attr -> value
element: child2
element: child3
#text: a'
test_incremental_parsing \
'Parse tag soup elements.' \
'a' \
'
element: parent
attribute: attr -> value
element: child:1
element: child:2
#text: a'
test_incremental_parsing \
'Parse an enclosed comment.' \
'' \
'
element: root
#comment: Hello World! '
test_incremental_parsing \
'Parse comment combinations. (I)' \
'' \
'
element: root
#comment: s-->tu' \
'
#comment: comment
#text: s
#comment: >
#text: t
#comment: -
#text: u'
test_incremental_parsing \
'Parse bad comment. (I)' \
's' \
'
#comment: ->s'
test_incremental_parsing \
'Parse bad comment. (II)' \
'bad comment' \
'
#comment: a
#text: bad comment'
test_incremental_parsing \
'Parse empty notation.' \
's' \
'
#text: s'
test_incremental_parsing \
'Parse an enclosed CDATA section.' \
'...]]>' \
'
element: root
#cdata-section: ...] ]>...'
test_incremental_parsing \
'Parse non-enclosed CDATA section.' \
'' \
'
#cdata-section: ...'
test_incremental_parsing \
'Parse a bad CDATA section.' \
'' \
'
element: root
attribute: lang -> fr
attribute: attr ->
attribute: name -> value with &foo; " \
'
element: root
attribute: a -> b
attribute: c -> d
attribute: g -> h
attribute: i -> j
attribute: k -> '
test_incremental_parsing \
'Parse attribute with non-quoted values.' \
'...' \
'
element: root
attribute: color -> #abc
attribute: path -> /to/%61-&\one";files
#text: ...'
test_incremental_parsing \
'Parse entity references.' \
'&-*' \
'
entity-reference: amp
#text: -
entity-reference: #42'
# Just how these should be gracefully handled is not clear to me.
test_incremental_parsing \
'Parse badly formatted entity references.' \
'& m33p;-&.:-copy;-&;-&#;-&#xx;' \
'
#text: & m33p;
#text: -
entity-reference: .:-copy
#text: -
#text: &;
#text: -
entity-reference: #
#text: -
entity-reference: #xx'
test_incremental_parsing \
'Parse processing instructions.' \
'
...
' \
'
proc-instruction: xml -> encoding="UTF8"
attribute: encoding -> UTF8
#text: \n...\n
proc-instruction: ecmascript -> var val=2;\n'
test_incremental_parsing \
'Parse XML processing instructions.' \
'?>-' \
'
proc-instruction: xml -> version="1.0" />
attribute: version -> 1.0
proc-instruction: xml -> />-'
test_incremental_parsing \
'Parse XML stylesheet processing instructions.' \
'' \
'
proc-instruction: xml-stylesheet -> type="text/xsl" href="url"
attribute: type -> text/xsl
attribute: href -> url'
test_incremental_parsing \
'Parse exotic processing instructions.' \
'+?>-?>---' \
'
proc-instruction: xml -> ?+>+
#text: -?>-
proc-instruction: js ->
#text: -
proc-instruction: ->
#text: -'
test_incremental_parsing \
'Parse incorrect processing instructions.' \
'--- <
#text: -
proc-instruction: -> <=";&
#text: -'
test_incremental_parsing \
'Parse incorrect processing instructions (II).' \
' >< / root >' \
'
element: root
attribute: ns:attr -> value
proc-instruction: target -> data'
test_done