📄 test-sgml-parser-basic

📁 elinks下lynx是最重要的二个文本浏览器, 在linux下非常实用, elinks也是gentoo安装过程中默认使用的浏览器, 这是elinks源代码
💻
字号:
#!/bin/sh## Copyright (c) 2005 Jonas Fonseca#test_description='Test the very basic parsing of SGML documents.This test runs very basic features, like checking that nodes are placedcorrectly in the DOM tree.'. "$TEST_LIB"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 output expected' }################################################################# Parse various SGML node types.test_output_equals \'Parse a small document.' \'<html><body><p>Hello World!</p></body></html>' \'element: html  element: body    element: p      #text: Hello World!'test_output_equals \'Parse elements.' \'<root><child attr="value" /><child2></><child3 >a</></root>' \'element: root  element: child    attribute: attr -> value  element: child2  element: child3    #text: a'test_output_equals \'Parse an enclosed comment.' \'<root><!-- Hello World! --></root>' \'element: root  #comment:  Hello World! 'test_output_equals \'Parse comment combinations.' \'<root><!-- <!-- -- > --><!--foo--><!----></root>' \'element: root  #comment:  <!-- -- >   #comment: foo  #comment: 'test_output_equals \'Parse bad comment.' \'<!--->s' \'#comment: ->s'test_output_equals \'Parse an enclosed CDATA section.' \'<root><![CDATA[...] ]>...]]></root>' \'element: root  #cdata-section: ...] ]>...'test_output_equals \'Parse non-enclosed CDATA section.' \'<![CDATA[...]]>' \'#cdata-section: ...'test_output_equals \'Parse a bad CDATA section.' \'<![CDATA[...' \'#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 attributes with garbage.' \"<root a=b c='d' e'f' g= h i = j k =></root>" \'element: root  attribute: a -> b  attribute: c -> d  attribute: g -> h  attribute: i -> j  attribute: k -> ' test_output_equals \'Parse attribute with non-quoted values.' \'<root color=#abc path=/to/%61-&\one";files/>...' \'element: root  attribute: color -> #abc  attribute: path -> /to/%61-&\one";files#text: ...'test_output_equals \'Parse entity references.' \'&amp;-&#42;' \'entity-reference: amp#text: -entity-reference: #42'# Just how these should be gracefully handled is not clear to me.test_output_equals \'Parse badly formatted entity references.' \'& m33p;-&.:-copy;-&;-&#;-&#xx;' \'#text: & m33p;#text: -entity-reference: .:-copy#text: -#text: &;#text: -entity-reference: ##text: -entity-reference: #xx'test_output_equals \'Parse processing instructions.' \'<?xml encoding="UTF8"?>...<?ecmascriptvar val=2;?>' \'proc-instruction: xml -> encoding="UTF8"  attribute: encoding -> UTF8#text: \n...\nproc-instruction: ecmascript -> var val=2;\n'test_output_equals \'Parse XML processing instructions.' \'<?xml version="1.0" />?><?xml />-' \'proc-instruction: xml -> version="1.0" />  attribute: version -> 1.0proc-instruction: xml -> /'test_output_equals \'Parse XML stylesheet processing instructions.' \'<?xml-stylesheet type="text/xsl" href="url"?>' \'proc-instruction: xml-stylesheet -> type="text/xsl" href="url"  attribute: type -> text/xsl  attribute: href -> url'test_output_equals \'Parse exotic processing instructions.' \'<?xml ?+>+?>-?>-<?js?>-<??>-' \'proc-instruction: xml -> ?+>+#text: -?>-proc-instruction: js -> #text: -proc-instruction:  -> #text: -'test_output_equals \'Parse incorrect processing instructions.' \'<?js<?>-<?<??>-<?xml <=";&?>-<?' \'proc-instruction: js -> <#text: -proc-instruction:  -> <?#text: -proc-instruction: xml -> <=";&#text: -'test_output_equals \'Parse incorrect processing instructions (II).' \'<?><?' \'proc-instruction:  -> ><?'test_output_equals \'Skip spaces not inside text.' \'<rootns:attr                      ="value"><?		target	 data?><	/	root	>' \'element: root  attribute: ns:attr -> value  proc-instruction: target -> data'test_done
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -