;;;; texinfo.test -*- scheme -*-
;;;;
-;;;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;; Copyright (C) 2001,2002 Oleg Kiselyov <oleg at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
'((para (code "arg"))))
(test-body "@url{arg}"
'((para (uref (% (url "arg"))))))
+ (test-body "@url{@@}"
+ '((para (uref (% (url "@"))))))
+ (test-body "@url{@var{foo}}"
+ '((para (uref (% (url (var "foo")))))))
(test-body "@code{ }"
'((para (code))))
(test-body "@code{ @code{} }"
(test-body "@example\n foo asdf asd sadf asd \n@end example\n"
'((example " foo asdf asd sadf asd ")))
+ (test-body "@example\n@{\n@}\n@end example\n"
+ '((example "{\n}")))
(test-body (join-lines
"@quotation"
"@example"
(test-body "@pxref{Locales, @code{setlocale}}"
'((para (pxref (% (node "Locales")
(name (code "setlocale")))))))
+ (test-body "Like this---e.g.@:, at colon."
+ '((para "Like this---e.g.:, at colon.")))
)