Making check in src make[1]: se ingresa al directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/src' make[1]: No se hace nada para `check'. make[1]: se sale del directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/src' Making check in doc make[1]: se ingresa al directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/doc' make[1]: No se hace nada para `check'. make[1]: se sale del directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/doc' Making check in examples make[1]: se ingresa al directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/examples' make[1]: No se hace nada para `check'. make[1]: se sale del directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/examples' Making check in unit-tests make[1]: se ingresa al directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/unit-tests' make check-TESTS make[2]: se ingresa al directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/unit-tests' Running test suite: main-suite ---------------------------------------- Running test suite: -suite ---------------------------------- Running test case: test-api ;;; WARNING (New API, update your API form (())) 1 run, 0 failed PASS: api.scm /bin/sh: lÃnea 5: 9636 Violacion de segmento API_FILE=./guile-library.api DOC_GUILE_LIBRARY_SCM=../doc/guile-library.scm GUILE_AUTO_COMPILE=0 ../dev-environ /usr/local/bin/guile -s ${dir}$tst FAIL: container.async-queue.scm Running test suite: main-suite ---------------------------------------- Running test suite: -suite -------------------------------- Running test case: test-tsortq 1 run, 0 failed PASS: graph.topological-sort.scm *** HtmlPrag Tests *** (html->shtml ">") ==> (*TOP* (a ">")) ;; Passed. (html->shtml "") ==> (*TOP* (a "<" ">")) ;; Passed. (html->shtml "<>") ==> (*TOP* "<" ">") ;; Passed. (html->shtml "< >") ==> (*TOP* "<" ">") ;; Passed. (html->shtml "< a>") ==> (*TOP* (a)) ;; Passed. (html->shtml "< a / >") ==> (*TOP* (a)) ;; Passed. (html->shtml " (*TOP* (a "<")) ;; Passed. (html->shtml " (*TOP* (a (b))) ;; Passed. (html->shtml ">") ==> (*TOP* ">" (a)) ;; Passed. (html->shtml "") ==> (*TOP*) ;; Passed. (html->shtml "<\">") ==> (*TOP* "<" "\"" ">") ;; Passed. (html->shtml "xxxaaa\nbbb\nc<c<c") ==> (*TOP* (a "xxx" (plaintext "aaa\n" "bbb\n" "c<c<c"))) ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb") ;; Passed. (html->shtml "aaa<! -- xxx -->bbb") ==> (*TOP* "aaa" (*COMMENT* " xxx ") "bbb") ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* " xxx -") "bbb") ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* " xxx --") "bbb") ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* " xxx -y") "bbb") ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* "-") "bbb") ;; Passed. (html->shtml "aaabbb") ==> (*TOP* "aaa" (*COMMENT* "") "bbb") ;; Passed. (html->shtml "aaa italic bold <tt> ened still < bold </body> But not done yet...") ==> (*TOP* (html (head (title) (title "whatever")) (body (a (@ (href "url")) "link") (p (@ (align "center")) (ul (@ (compact) (style "aa")))) (p "BLah" (*COMMENT* " comment <comment> ") " " (i " italic " (b " bold " (tt " ened "))) " still < bold ")) (p " But not done yet..."))) ;; Passed. (html->shtml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>") ==> (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")) ;; Passed. (html->shtml "<?php php_info(); ?>") ==> (*TOP* (*PI* php "php_info(); ")) ;; Passed. (html->shtml "<?php php_info(); ?") ==> (*TOP* (*PI* php "php_info(); ?")) ;; Passed. (html->shtml "<?php php_info(); ") ==> (*TOP* (*PI* php "php_info(); ")) ;; Passed. (html->shtml "<?foo bar ? baz > blort ?>") ==> (*TOP* (*PI* foo "bar ? baz > blort ")) ;; Passed. (html->shtml "<?foo b?>x") ==> (*TOP* (*PI* foo "b") "x") ;; Passed. (html->shtml "<?foo ?>x") ==> (*TOP* (*PI* foo "") "x") ;; Passed. (html->shtml "<?foo ?>x") ==> (*TOP* (*PI* foo "") "x") ;; Passed. (html->shtml "<?foo?>x") ==> (*TOP* (*PI* foo "") "x") ;; Passed. (html->shtml "<?f?>x") ==> (*TOP* (*PI* f "") "x") ;; Passed. (html->shtml "<??>x") ==> (*TOP* (*PI* #f "") "x") ;; Passed. (html->shtml "<?>x") ==> (*TOP* (*PI* #f ">x")) ;; Passed. (html->shtml "<foo bar=\"baz\">blort") ==> (*TOP* (foo (@ (bar "baz")) "blort")) ;; Passed. (html->shtml "<foo bar='baz'>blort") ==> (*TOP* (foo (@ (bar "baz")) "blort")) ;; Passed. (html->shtml "<foo bar=\"baz'>blort") ==> (*TOP* (foo (@ (bar "baz'>blort")))) ;; Passed. (html->shtml "<foo bar='baz\">blort") ==> (*TOP* (foo (@ (bar "baz\">blort")))) ;; Passed. (html->shtml "A<script>line0 <\nline1\n<line2></script>B") ==> (*TOP* (p "A") (script "line0 <\n" "line1\n" "<line2>") (p "B")) ;; Passed. (html->shtml "<xmp>ac</XMP>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<XMP>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>ac</foo:xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<foo:xmp>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<foo:xmp>ac</foo:xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<foo:xmp>ac</bar:xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>ac</xmp>d") ==> (*TOP* (xmp "ac") "d") ;; Passed. (html->shtml "<xmp>a</b:x>c</xmp>d") ==> (*TOP* (xmp "a</b:x>c") "d") ;; Passed. (html->shtml "<xmp>a</b::x>c</xmp>d") ==> (*TOP* (xmp "a</b::x>c") "d") ;; Passed. (html->shtml "<xmp>a</b:::x>c</xmp>d") ==> (*TOP* (xmp "a</b:::x>c") "d") ;; Passed. (html->shtml "<xmp>a</b:>c</xmp>d") ==> (*TOP* (xmp "a</b:>c") "d") ;; Passed. (html->shtml "<xmp>a</b::>c</xmp>d") ==> (*TOP* (xmp "a</b::>c") "d") ;; Passed. (html->shtml "<xmp>a</xmp:b>c</xmp>d") ==> (*TOP* (xmp "a</xmp:b>c") "d") ;; Passed. (html->shtml "real1\n<XMP>\nalpha\nfake\nbravo\n</XMP \nreal2") ==> (*TOP* (p "real1") "\n" (xmp "\n" "alpha\n" "fake\n" "bravo\n") (p "real2")) ;; Passed. (html->shtml "real1\n<XMP>\nalpha\nfake\nbravo\n</XMP\nreal2") ==> (*TOP* (p "real1") "\n" (xmp "\n" "alpha\n" "fake\n" "bravo\n") (p "real2")) ;; Passed. (html->shtml "<xmp>a</xmp>x") ==> (*TOP* (xmp "a") "x") ;; Passed. (html->shtml "<xmp>a\n</xmp>x") ==> (*TOP* (xmp "a\n") "x") ;; Passed. (html->shtml "<xmp></xmp>x") ==> (*TOP* (xmp) "x") ;; Passed. (html->shtml "<xmp>a</xmp") ==> (*TOP* (xmp "a")) ;; Passed. (html->shtml "<xmp>a</xm") ==> (*TOP* (xmp "a</xm")) ;; Passed. (html->shtml "<xmp>a</x") ==> (*TOP* (xmp "a</x")) ;; Passed. (html->shtml "<xmp>a</") ==> (*TOP* (xmp "a</")) ;; Passed. (html->shtml "<xmp>a<") ==> (*TOP* (xmp "a<")) ;; Passed. (html->shtml "<xmp>a") ==> (*TOP* (xmp "a")) ;; Passed. (html->shtml "<xmp>") ==> (*TOP* (xmp)) ;; Passed. (html->shtml "<xmp") ==> (*TOP* (xmp)) ;; Passed. (html->shtml "<xmp x=42 ") ==> (*TOP* (xmp (@ (x "42")))) ;; Passed. (html->shtml "<xmp x= ") ==> (*TOP* (xmp (@ (x)))) ;; Passed. (html->shtml "<xmp x ") ==> (*TOP* (xmp (@ (x)))) ;; Passed. (html->shtml "<xmp x") ==> (*TOP* (xmp (@ (x)))) ;; Passed. (html->shtml "<script>xxx") ==> (*TOP* (script "xxx")) ;; Passed. (html->shtml "<script/>xxx") ==> (*TOP* (script) "xxx") ;; Passed. (shtml->html '(p)) ==> "" ;; Passed. (shtml->html '(p "CONTENT")) ==> "CONTENT" ;; Passed. (shtml->html '(br)) ==> " " ;; Passed. (shtml->html '(br "CONTENT")) ==> " " ;; Passed. (shtml->html '(hr (@ (clear "all")))) ==> "<hr clear=\"all\" />" ;; Passed. (shtml->html '(hr (@ (noshade)))) ==> "<hr noshade />" ;; Passed. (shtml->html '(hr (@ (noshade #t)))) ==> "<hr noshade />" ;; Passed. (shtml->html '(hr (@ (noshade "noshade")))) ==> "<hr noshade=\"noshade\" />" ;; Passed. (shtml->html '(hr (@ (aaa "bbbccc")))) ==> "<hr aaa=\"bbbccc\" />" ;; Passed. (shtml->html '(hr (@ (aaa "bbb'ccc")))) ==> "<hr aaa=\"bbb'ccc\" />" ;; Passed. (shtml->html '(hr (@ (aaa "bbb\"ccc")))) ==> "<hr aaa='bbb\"ccc' />" ;; Passed. (shtml->html '(hr (@ (aaa "bbb\"ccc'ddd")))) ==> "<hr aaa=\"bbb"ccc'ddd\" />" ;; Passed. (shtml->html '(*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")) ==> "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" ;; Passed. (shtml->html '(*DECL* DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd")) ==> "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">" ;; Passed. *** All Tests PASSED *** Passed: 125 Failed: 0 Running test suite: main-suite ---------------------------------------- Running test suite: <test-xml-pragmatic>-suite ------------------------ Running test case: test-all 1 run, 0 failed PASS: htmlprag.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-logging>-suite ------------------------------ Running test case: test-log-to-one-port Running test case: test-log-to-default-logger Running test case: test-log-to-registered-logger 3 run, 0 failed PASS: logging.logger.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-match-bind>-suite --------------------------- Running test case: test-s/// Running test case: test-s///g 2 run, 0 failed PASS: match-bind.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-golden-sect>-suite -------------------------- Running test case: test-gs-function 1 run, 0 failed PASS: math.minima.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-factorization>-suite ------------------------ Running test case: test-factor-function Running test suite: <test-prime-lists>-suite -------------------------- Running test case: test-recognizes-first100 Running test case: test-prime> Running test case: test-prime< Running test case: test-primes> Running test case: test-primes< 6 run, 0 failed PASS: math.primes.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-md5>-suite ---------------------------------- Running test case: test-default-port Running test case: test-given-port 2 run, 0 failed PASS: md5.scm WARNING: (guile-user): `run' imported from both (unit-test) and (os process) Running test suite: main-suite ---------------------------------------- Running test suite: <test-proc>-suite --------------------------------- Running test case: test-exit-code Running test case: test-pipeline WARNING: (guile-user): `run' imported from both (unit-test) and (os process) Running test suite: main-suite ---------------------------------------- Running test suite: <test-proc>-suite --------------------------------- Running test case: test-exit-code Running test case: test-pipeline 2 run, 0 failed PASS: os.process.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-dfs>-suite ---------------------------------- Running test case: test-number-search Running test suite: <test-binary-search>-suite ------------------------ Running test case: test-binary-edges Running test case: test-binary-results 3 run, 0 failed PASS: search.basic.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-statprof>-suite ----------------------------- 0 run, 0 failed PASS: statprof.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-scheme-kwargs>-suite ------------------------ Running test case: test-lambda/kwargs 1 run, 0 failed PASS: scheme.kwargs.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-basic-completion>-suite --------------------- Running test case: test-all-completions Running test case: test-too-long-dropped Running test case: test-complete Running test suite: <test-ci-completion>-suite ------------------------ Running test case: test-all-completions Running test case: test-too-long-dropped Running test case: test-complete 6 run, 0 failed PASS: string.completion.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-expansion>-suite ---------------------------- Running test case: test-beginning-expansion Running test case: test-ending-expansion Running test case: test-middle-expansion Running test case: test-alternate-tab-size Running test suite: <test-escape>-suite ------------------------------- Running test case: test-single-escape-char Running test case: test-multiple-escape-chars Running test suite: <test-collapse>-suite ----------------------------- Running test case: test-basic-collapse Running test case: test-choose-other-char Running test case: test-choose-maximum-repeats 9 run, 0 failed PASS: string.transform.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-string-wrapper>-suite ----------------------- Running test case: test-util-equivalent-to-class Running test case: test-fill-equivalent-to-joined-lines Running test case: test-no-collapse-ws Running test case: test-no-word-break 4 run, 0 failed PASS: string.wrap.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-sxml-fold>-suite ---------------------------- Running test case: test-fold Running test case: test-fold-layout 2 run, 0 failed PASS: sxml.fold.scm body: "]]>" Result: () body: "abcd]]>" Result: ("abcd" "") body: "abcd]]]>" Result: ("abcd" "" "]" "") body: "abcd]]]]>" Result: ("abcd" "" "]" "" "]" "") body: "abcd]]]]]>" Result: ("abcd" "" "]" "" "]" "" "]" "") body: "abcd]]]a]]>" Result: ("abcd" "" "]" "" "]]" "" "a" "") body: "abc%r%ndef%n]]>" Result: ("abc" " NL" "def" " NL") body: "%r%n%r%n]]>" Result: ("" " NL" "" " NL") body: "%r%n%r%na]]>" Result: ("" " NL" "" " NL" "a" "") body: "%r%r%r%na]]>" Result: ("" " NL" "" " NL" "" " NL" "a" "") body: "abc&!!!]]>" Result: ("abc" "&" "" "" "!!!" "") body: "abc]]>&gt&]]]>and]]>" Result: ("abc" "" "]]" "" "" ">" "" "&" "gt" "" "" "&" "amp" "" ";" "" "]" "" "]]" "" "" ">" "and" "") input: "" Result: () input: "href='http://a%tb%r%n%r%n%nc'" Result: ((href . "http://a b c")) input: "href='http://a%tb%r%r%n%rc'" Result: ((href . "http://a b c")) input: "_1 ='12&' _2= \"%r%n%t12
3\">" Result: ((_1 . "12&") (_2 . " 12\n3")) input: "%tAbc='<&>
'%nNext='12&ent;34' />" Result: ((Abc . "<&>\n") (Next . "12<xx>34")) input: "%tAbc='<&>'%nNext='12&ent;34' />" Result: ((Abc . "<&>\r") (Next . "12<xx>34")) input: "%tAbc='<&>
'%nNext='12&en;34' />" Result: ((Abc . "<&>\n") (Next . "12\"xx'34")) input: "%tAbc='<&>
'%nNext='12&ent;34' />" Result: ((Abc . "<&>\n") (Next . "12<&T;>34")) input: "html:href='http://a%tb%r%n%r%n%nc'" Result: (((html . href) . "http://a b c")) input: "html:href='ref1' html:src='ref2'" Result: (((html . href) . "ref1") ((html . src) . "ref2")) input: "html:href='ref1' xml:html='ref2'" Result: (((html . href) . "ref1") ((xml . html) . "ref2")) body: "" Result: () #<eof> body: " " Result: (" ") #<eof> body: " " Result: () (START . BR) body: " " Result: (" ") (START . BR) body: " <" Result: (" ") (ENTITY-REF . lt) body: " a<" Result: (" a") (ENTITY-REF . lt) body: " a <" Result: (" a ") (ENTITY-REF . lt) body: "  a a " Result: (" " " a a") (START . BR) body: " %ra a " Result: (" " "" "\n" "a a") (START . BR) body: " %r%na a " Result: (" " "" "\n" "a a") (START . BR) body: " %r%na%t%r%r%na " Result: (" " "" "\n" "a\t" "\n" "" "\n" "a") (START . BR) body: "a a a " Result: ("a" " a a") (START . BR) body: "! " Result: ("" "!") (START . BR) body: "!%n " Result: ("" "!" "\n") (START . BR) body: "%t!%n " Result: ("\t" "!" "\n") (START . BR) body: "%t!%na a " Result: ("\t" "!" "\na a") (START . BR) body: "%t!%ra a " Result: ("\t" "!" "" "\n" "a a") (START . BR) body: "%t!%r%na a " Result: ("\t" "!" "" "\n" "a a") (START . BR) body: " %ta ! b " Result: (" \ta " "!" " b ") (START . BR) body: " %ta b " Result: (" \ta " " " " b ") (START . BR) body: "<![CDATA[<]]> " Result: ("<") (START . BR) body: "<![CDATA[]]]> " Result: ("]") (START . BR) body: "%t<![CDATA[<]]> " Result: ("\t" "<") (START . BR) body: "%t<![CDATA[<]]>a b " Result: ("\t" "<" "a b") (START . BR) body: "%t<![CDATA[<]]> a b " Result: ("\t" "<" " a b") (START . BR) body: "%td <![CDATA[ <%r%r%n]]> a b " Result: ("\td " " <" "\n" "" "\n" " a b") (START . BR)#<procedure a121798 at ice-9/eval.scm:396:13 (a b c)> #<procedure a1213f0 at ice-9/eval.scm:396:13 (a b c)> #<procedure a121048 at ice-9/eval.scm:396:13 (a b c)> Parsing: ((BR)) Parsing: ((BR)) Parsing: <A HREF='URL'> link itlink &amp;</A> ((A (@ (HREF "URL")) " link " (I "itlink ") " " "&" "amp;")) Parsing: <A HREF='URL' xml:space='preserve'> link itlink &amp;</A> ((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I "itlink ") " " "&" "amp;")) Parsing: <A HREF='URL' xml:space='preserve'> link itlink &amp;</A> ((A (@ (HREF "URL") ((xml . space) "preserve")) " link " (I (@ ((xml . space) "default")) "itlink ") " " "&" "amp;")) Parsing: <itemize><item>This is item 1 </item>%n<item>Item 2</item>%n </itemize> ((itemize (item "This is item 1 ") "\n" (item "Item 2") "\n ")) Parsing: <![CDATA[ %n<![CDATA[ ]]>]]> ((P " " "\n" "<![CDATA[ " "]]" "" ">")) Parsing: <![CDATA[ %r<![CDATA[ ]]>]]> ((P " " "\n" "<![CDATA[ " "]]" "" ">")) Parsing: <?xml version='1.0'?>%n%n<Reports TStamp='1'></Reports> ((Reports (@ (TStamp "1")))) Parsing: %n<?PI xxx?>%n<?PI1 zzz?><T/> ((T)) Parsing: <!DOCTYPE T SYSTEM 'system1' >%n<T/> ((T)) Parsing: <!DOCTYPE T PUBLIC '//EN/T' "system1" [ <!ELEMENT a 'aa'> ]>%n<?pi?><T/> ((T)) Parsing: ((BR)) Parsing: ((BR)) Parsing: aa ((BR "aa")) Parsing: aa ((BR "a" (I "a"))) Parsing: <DIV>Example: "&example;"</DIV> ((DIV "Example: \"" (P "An ampersand (" "&" ") may be escaped numerically (" "&" "#38;) or with a general entity (" "&" "amp;).") "\"")) Parsing: <DIV>Example: "&example;" </DIV> ((DIV "Example: \"" (Q (I "example:") " ex" "!") "?" "\" " (P))) Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV> (((URI1 . DIV) (@ (B "B") ((URI1 . B) "A")) (*NAMESPACES* ((A URI1 . URI1) (*DEFAULT* URI1 . URI1))) ((URI1 . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A URI1 . URI1) (*DEFAULT* URI1 . URI1))))))) Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV> (((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (A UA . URI1) (*DEFAULT* UA . URI1) (#f UA . URI1))))))) Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV> (((UA . DIV) (@ (B "B") ((UA . B) "A")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (#f UA . URI1))))))) Parsing: <DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV> (((UA . DIV) (@ (B "B") ((UA . B) "A") ((URI2 . B) "xx")) (*NAMESPACES* ((*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) ((UA . P) (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))) (BR (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* UA . URI1) (A UA . URI1) (C URI2 . URI2) (#f UA . URI1))))))) input: " " Result: (*TOP* (BR)) input: " " Result: (*TOP* (BR)) input: " " Result: (*TOP* (BR (@ (CLEAR "ALL") (CLASS "Class1")))) input: " <A HREF='URL'> link itlink &amp;</A>" Result: (*TOP* (A (@ (HREF "URL")) " link " (I "itlink ") " &")) input: " <A HREF='URL' xml:space='preserve'> link itlink &amp;</A>" Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL")) " link " (I "itlink ") " &")) input: " <A HREF='URL' xml:space='preserve'> link itlink &amp;</A>" Result: (*TOP* (A (@ (xml:space "preserve") (HREF "URL")) " link " (I (@ (xml:space "default")) "itlink ") " &")) input: " <?pi1 p1 content ?>?<?pi2 pi2? content? ??>" Result: (*TOP* (P (*PI* pi1 "p1 content ") "?" (*PI* pi2 "pi2? content? ?"))) input: " some text <![CDATA[<]]>1\n"strong"\r" Result: (*TOP* (P "some text <1\n\"" (B "strong") "\"\n")) input: " <![CDATA[ \n<![CDATA[ ]]>]]>" Result: (*TOP* (P " \n<![CDATA[ ]]>")) input: "<T1><T2>it's\r\nand that\n</T2>\r\n\r\n\n</T1>" Result: (*TOP* (T1 (T2 "it's\nand that\n") "\n\n\n")) input: "<T1><T2>it's\rand that\n</T2>\r\n\r\n\n</T1>" Result: (*TOP* (T1 (T2 "it's\nand that\n") "\n\n\n")) input: "<!DOCTYPE T SYSTEM 'system1' >\n<T/>" Result: (*TOP* (T)) input: "<?xml version='1.0'?>\n<WEIGHT unit=\"pound\">\n<NET certified='certified'> 67 </NET>\n<GROSS> 95 </GROSS>\n</WEIGHT>" Result: (*TOP* (*PI* xml "version='1.0'") (WEIGHT (@ (unit "pound")) "\n" (NET (@ (certified "certified")) " 67 ") "\n" (GROSS " 95 ") "\n")) input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV>" Result: (*TOP* (URI1:DIV (@ (URI1:B "A") (B "B")) (URI1:P (BR)))) input: "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''> </A:P></DIV>" Result: (*TOP* (@ (*NAMESPACES* (UA "URI1"))) (UA:DIV (@ (UA:B "A") (B "B")) (UA:P (BR)))) input: "<x xmlns:edi='http://ecommerce.org/schema'><lineItem edi:taxClass='exempt'>Baby food</lineItem>\n</x>" Result: (*TOP* (x (lineItem (@ (http://ecommerce.org/schema:taxClass "exempt")) "Baby food") "\n")) input: "<x xmlns:edi='http://ecommerce.org/schema'><lineItem edi:taxClass='exempt'>Baby food</lineItem></x>" Result: (*TOP* (@ (*NAMESPACES* (EDI "http://ecommerce.org/schema"))) (x (lineItem (@ (EDI:taxClass "exempt")) "Baby food"))) input: "<bk:book xmlns:bk='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><bk:title>Cheaper by the Dozen</bk:title><isbn:number>1568491379</isbn:number></bk:book>" Result: (*TOP* (urn:loc.gov:books:book (urn:loc.gov:books:title "Cheaper by the Dozen") (urn:ISBN:0-395-36341-6:number "1568491379"))) input: "<book xmlns='urn:loc.gov:books' xmlns:isbn='urn:ISBN:0-395-36341-6'><title>Cheaper by the Dozen</title><isbn:number>1568491379</isbn:number><notes>This is a funny book!</notes></book>" Result: (*TOP* (urn:loc.gov:books:book (urn:loc.gov:books:title "Cheaper by the Dozen") (urn:ISBN:0-395-36341-6:number "1568491379") (urn:loc.gov:books:notes (urn:w3-org-ns:HTML:p "This is a " (urn:w3-org-ns:HTML:i "funny") " book!")))) input: "<Beers><table xmlns='http://www.w3.org/TR/REC-html40'><th><td>Name</td><td>Origin</td><td>Description</td></th><tr><td><brandName xmlns=\"\">Huntsman</brandName></td><td><origin xmlns=''>Bath, UK</origin></td><td><details xmlns=''><class>Bitter</class><hop>Fuggles</hop><pro>Wonderful hop, light alcohol, good summer beer</pro><con>Fragile; excessive variance pub to pub</con></details></td></tr></table></Beers>" Result: (*TOP* (@ (*NAMESPACES* (html "http://www.w3.org/TR/REC-html40"))) (Beers (html:table (html:th (html:td "Name") (html:td "Origin") (html:td "Description")) (html:tr (html:td (brandName "Huntsman")) (html:td (origin "Bath, UK")) (html:td (details (class "Bitter") (hop "Fuggles") (pro "Wonderful hop, light alcohol, good summer beer") (con "Fragile; excessive variance pub to pub"))))))) input: "<RESERVATION xmlns:HTML='http://www.w3.org/TR/REC-html40'><NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME><SEAT CLASS='Y' HTML:CLASS=\"largeMonotype\">33B</SEAT><HTML:A HREF='/cgi-bin/ResStatus'>Check Status</HTML:A><DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>" Result: (*TOP* (@ (*NAMESPACES* (HTML "http://www.w3.org/TR/REC-html40"))) (RESERVATION (NAME (@ (HTML:CLASS "largeSansSerif")) "Layman, A") (SEAT (@ (HTML:CLASS "largeMonotype") (CLASS "Y")) "33B") (HTML:A (@ (HREF "/cgi-bin/ResStatus")) "Check Status") (DEPARTURE "1997-05-24T07:55:00+1"))) input: "<?xml version='1.0' encoding='utf-8' standalone='yes'?><rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' xmlns:rdfs='http://www.w3.org/2000/01/rdf-schema#' xmlns='http://www.w3.org/2001/02/infoset#'><rdfs:Class ID='Boolean'/><Boolean ID='Boolean.true'/><Boolean ID='Boolean.false'/><rdfs:Class ID='InfoItem'/><rdfs:Class ID='Document' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Element' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='Attribute' rdfs:subClassOf='#InfoItem'/><rdfs:Class ID='InfoItemSet'\n rdfs:subClassOf='http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag'/><rdfs:Class ID='AttributeSet' rdfs:subClassOf='#InfoItemSet'/><rdfs:Property ID='allDeclarationsProcessed'><rdfs:domain resource='#Document'/><rdfs:range resource='#Boolean'/></rdfs:Property><rdfs:Property ID='attributes'><rdfs:domain resource='#Element'/><rdfs:range resource='#AttributeSet'/></rdfs:Property></rdf:RDF>" Result: (*TOP* (@ (*NAMESPACES* (RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RDFS "http://www.w3.org/2000/01/rdf-schema#") (ISET "http://www.w3.org/2001/02/infoset#"))) (*PI* xml "version='1.0' encoding='utf-8' standalone='yes'") (RDF:RDF (RDFS:Class (@ (ID "Boolean"))) (ISET:Boolean (@ (ID "Boolean.true"))) (ISET:Boolean (@ (ID "Boolean.false"))) (RDFS:Class (@ (ID "InfoItem"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Document"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Element"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Attribute"))) (RDFS:Class (@ (RDFS:subClassOf "http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag") (ID "InfoItemSet"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItemSet") (ID "AttributeSet"))) (RDFS:Property (@ (ID "allDeclarationsProcessed")) (RDFS:domain (@ (resource "#Document"))) (RDFS:range (@ (resource "#Boolean")))) (RDFS:Property (@ (ID "attributes")) (RDFS:domain (@ (resource "#Element"))) (RDFS:range (@ (resource "#AttributeSet")))))) input: "<?xml version='1.0'?><rdf:RDF \nxmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' \nxmlns='http://my.netscape.com/rdf/simple/0.9/'>\n<channel>\n<title>Daemon News Mall</title>\n<link>http://mall.daemonnews.org/</link>\n<description>Central source for all your BSD needs</description>\n</channel>\n<item>\n<title>Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95</title>\n<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=880</link>\n</item>\n<item>\n<title>The Design and Implementation of the 4.4BSD Operating System $54.95</title>\n<link>http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761</link>\n</item>\n</rdf:RDF>" Result: (*TOP* (@ (*NAMESPACES* (RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RSS "http://my.netscape.com/rdf/simple/0.9/") (ISET "http://www.w3.org/2001/02/infoset#"))) (*PI* xml "version='1.0'") (RDF:RDF "\n" (RSS:channel "\n" (RSS:title "Daemon News Mall") "\n" (RSS:link "http://mall.daemonnews.org/") "\n" (RSS:description "Central source for all your BSD needs") "\n") "\n" (RSS:item "\n" (RSS:title "Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95") "\n" (RSS:link "http://mall.daemonnews.org/?page=shop/flypage&product_id=880") "\n") "\n" (RSS:item "\n" (RSS:title "The Design and Implementation of the 4.4BSD Operating System $54.95") "\n" (RSS:link "http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761") "\n") "\n")) input: "<Forecasts TStamp='958082142'><TAF TStamp='958066200' LatLon='36.583, -121.850' BId='724915' SName='KMRY, MONTEREY PENINSULA'><VALID TRange='958068000, 958154400'>111730Z 111818</VALID><PERIOD TRange='958068000, 958078800'><PREVAILING>31010KT P6SM FEW030</PREVAILING></PERIOD><PERIOD TRange='958078800, 958104000' Title='FM2100'><PREVAILING>29016KT P6SM FEW040</PREVAILING></PERIOD><PERIOD TRange='958104000, 958154400' Title='FM0400'><PREVAILING>29010KT P6SM SCT200</PREVAILING><VAR Title='BECMG 0708' TRange='958114800, 958118400'>VRB05KT</VAR></PERIOD></TAF></Forecasts>" Result: (*TOP* (Forecasts (@ (TStamp "958082142")) (TAF (@ (TStamp "958066200") (SName "KMRY, MONTEREY PENINSULA") (LatLon "36.583, -121.850") (BId "724915")) (VALID (@ (TRange "958068000, 958154400")) "111730Z 111818") (PERIOD (@ (TRange "958068000, 958078800")) (PREVAILING "31010KT P6SM FEW030")) (PERIOD (@ (Title "FM2100") (TRange "958078800, 958104000")) (PREVAILING "29016KT P6SM FEW040")) (PERIOD (@ (Title "FM0400") (TRange "958104000, 958154400")) (PREVAILING "29010KT P6SM SCT200") (VAR (@ (Title "BECMG 0708") (TRange "958114800, 958118400")) "VRB05KT"))))) All tests passed Running test suite: main-suite ---------------------------------------- Running test suite: <test-ssax>-suite --------------------------------- Running test case: test-ssax Warning: DOCTYPE DECL T system1 found and skipped Warning: Internal DTD subset is not currently handled Warning: DOCTYPE DECL T system1 found and skipped 1 run, 0 failed Some deprecated features have been used. Set the environment variable GUILE_WARN_DEPRECATED to "detailed" and rerun the program to get more information. Set it to "no" to suppress this message. PASS: sxml.ssax.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-xml-transform>-suite ------------------------ Running test case: test-all 1 run, 0 failed PASS: sxml.transform.scm WARNING: (guile-user): imported module (sxml xpath) overrides core binding `filter' Running test suite: main-suite ---------------------------------------- Running test suite: <test-xml-xpath>-suite ---------------------------- Running test case: test-all 1 run, 0 failed PASS: sxml.xpath.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-color>-suite -------------------------------- Running test case: test-accepted-attributes Running test case: test-clear-reset-equivalence Running test case: test-underline-underscore-equivalence Running test suite: <test-colorize-string>-suite ---------------------- Running test case: test-ends-in-reset Running test case: test-skips-bad-attrs 5 run, 0 failed PASS: term.ansi-color.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-texinfo>-suite ------------------------------ Running test case: test-read-verbatim-body Running test case: test-read-arguments Running test case: test-complete-start-command Running test case: test-read-char-data Running test case: test-texinfo->stexinfo 5 run, 0 failed PASS: texinfo.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-texinfo-docbook>-suite ---------------------- Running test case: test-flatten 1 run, 0 failed PASS: texinfo.docbook.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-texinfo-serialize>-suite -------------------- Running test case: test-serialize 1 run, 0 failed PASS: texinfo.serialize.scm Running test suite: main-suite ---------------------------------------- Running test suite: <test-parse-lalr>-suite --------------------------- Running test case: test-calc-parser 1 run, 0 failed PASS: text.parse-lalr.scm ==================== 1 of 25 tests failed ==================== make[2]: *** [check-TESTS] Error 1 make[2]: se sale del directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/unit-tests' make[1]: *** [check-am] Error 2 make[1]: se sale del directorio `/home/german/Instalados/desde-codigo/guile-lib-0.2.1/unit-tests' make: *** [check-recursive] Error 1