aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-12-04 14:46:47 -05:00
Code

Add test_output_equals helper and add a few more tests

Browse Source 
The last one fails for now. Incorrect parsing of processing instructions.
This commit is contained in:
Jonas Fonseca 2005-12-29 06:54:41 +01:00 committed by Jonas Fonseca
parent 23f21f1924
commit ba5dbd3a18
1 changed files with 80 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
src/dom/test/test-sgml-parser-basic
View File

@ -11,24 +11,89 @@ correctly in the DOM tree.
. ./libtest . ./libtest
test_output_equals () {
desc="$1"
src="$2"
out="$3"
URI="test:$(echo "$desc" | sed '
s/^[ \t]*\[[^]]*\][ \t]*//;
s/[:., \t][:., \t]*/-/g;
s/_/-/g;
# *cough*
y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/;
s/[^a-zA-Z0-9-]//g;')"
sgml-parser --uri "$URI" --src "$src" | sed 's/^ //' > output
echo "#document: $URI" > expected
echo "$out" | sed -n '2,$p' >> expected
test_expect_success "$desc" 'cmp -b output expected'
}
################################################################ ################################################################
# init-db has been done in an empty repository. # Parse various SGML node types.
# make sure it is empty.
sgml-parser --uri "test:hello-world" \ test_output_equals \
--src "<html><body><p>Hello World!</p></body></html>" \ 'Parse a small document.' \
> output '<html><body><p>Hello World!</p></body></html>' \
'
element: html
element: body
element: p
#text: Hello World!'
cat > expected <<EOF test_output_equals \
#document: test:hello-world 'Parse an enclosed comment.' \
element: html '<root><!-- Hello World! --></root>' \
element: body '
element: p element: root
#text: Hello World! #comment: Hello World! '
EOF
test_expect_success \ test_output_equals \
'Test a small document.' \ 'Parse an enclosed CDATA section.' \
'cmp output expected' '<root><![CDATA[...] ]>...]]></root>' \
'
element: root
#cdata-section: ...] ]>...'
test_output_equals \
'Parse attributes.' \
'<root lang="fr" attr name="value with &foo; <stuff"></root>' \
'
element: root
attribute: lang -> fr
attribute: attr ->
attribute: name -> value with &foo; <stuff'
test_output_equals \
'Parse entity references.' \
'<root>&amp;...&#42;...&...copy;...&;...&#;' \
'
element: root
entity-reference: amp
#text: ...
entity-reference: #42
#text: ...
entity-reference: ...copy
#text: ...
#text: &;
#text: ...
entity-reference: #'
# Test <?>
test_output_equals \
'Parse processing instructions.' \
'<?xml encoding="UTF8"?>
...
<?ecmascript
var val=2;
?>' \
'
proc-instruction: xml -> encoding="UTF8"
attribute: encoding -> UTF8
#text: \n...\n
proc-instruction: ecmascript -> \nvar -> val=2;\n'
test_done test_done