starting phase `set-SOURCE-DATE-EPOCH'
phase `set-SOURCE-DATE-EPOCH' succeeded after 0.0 seconds
starting phase `set-paths'
environment variable `PATH' set to `/gnu/store/3rs3zyc4886bdp0x4dmfyhpw18w0n9km-pkg-config-0.29.2/bin:/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin:/gnu/store/am3imbjafa1wdvw9j6qabrxc09w169lz-tar-1.32/bin:/gnu/store/chqjscapsg928dy8pg6yrdhw3ypk8c9x-gzip-1.10/bin:/gnu/store/k3n5jh5579g2b17qmd2w89z2fy45pmr3-bzip2-1.0.8/bin:/gnu/store/k8ksi57ghm301zr0v7aq2vl2fa8hxfqi-xz-5.2.4/bin:/gnu/store/5ckix15mw8r509g68fbm7rla51lmd2zq-file-5.38/bin:/gnu/store/m8fnsfqs18c3srjiaw4frqadb9rqsq16-diffutils-3.7/bin:/gnu/store/2cfnrxy8icrz3sxfn86k0klmvsnj1n82-patch-2.7.6/bin:/gnu/store/0bmzacdzdhi41kkjbsq7iakwjzxkv6fm-findutils-4.7.0/bin:/gnu/store/x9qzb42hmzszg9y16m1gbz3vv54yyi00-gawk-5.0.1/bin:/gnu/store/qy7gpiba7s7ylpfxaay6i76rk892j52n-sed-4.8/bin:/gnu/store/74d5jq5sj2fhy5j0j07jqdclf8nyxgqn-grep-3.4/bin:/gnu/store/wy177cwa387g9kaf3ss716d4fhzb21wx-coreutils-8.32/bin:/gnu/store/wsxnp4k7mp7b705kxp94j7hs8as5fmsl-make-4.3/bin:/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin:/gnu/store/y4iy1jvfq07gxynkb9jl1f69jmy349vi-ld-wrapper-0/bin:/gnu/store/1iwrsjwmhcdifc8i3v7qdr59k6gq4z24-binutils-2.34/bin:/gnu/store/z8954h4nvgxwcyy2in8c1l11g199m2yb-gcc-7.5.0/bin:/gnu/store/llkv94k15spryi6zf0gjm0fp7m8k3i8g-glibc-2.31/bin:/gnu/store/llkv94k15spryi6zf0gjm0fp7m8k3i8g-glibc-2.31/sbin'
environment variable `PKG_CONFIG_PATH' set to `/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/lib/pkgconfig:/gnu/store/k8ksi57ghm301zr0v7aq2vl2fa8hxfqi-xz-5.2.4/lib/pkgconfig:/gnu/store/36c64cqp24i8i8p9m5402ig0pclmcvld-gmp-6.2.0/lib/pkgconfig:/gnu/store/f8dk4p7wlggm2p6jjgpbvri31zacnp5i-libgc-8.0.4/lib/pkgconfig'
environment variable `GUILE_LOAD_PATH' unset
environment variable `GUILE_LOAD_COMPILED_PATH' unset
environment variable `BASH_LOADABLES_PATH' unset
environment variable `C_INCLUDE_PATH' set to `/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/include:/gnu/store/k3n5jh5579g2b17qmd2w89z2fy45pmr3-bzip2-1.0.8/include:/gnu/store/k8ksi57ghm301zr0v7aq2vl2fa8hxfqi-xz-5.2.4/include:/gnu/store/5ckix15mw8r509g68fbm7rla51lmd2zq-file-5.38/include:/gnu/store/x9qzb42hmzszg9y16m1gbz3vv54yyi00-gawk-5.0.1/include:/gnu/store/wsxnp4k7mp7b705kxp94j7hs8as5fmsl-make-4.3/include:/gnu/store/1iwrsjwmhcdifc8i3v7qdr59k6gq4z24-binutils-2.34/include:/gnu/store/z8954h4nvgxwcyy2in8c1l11g199m2yb-gcc-7.5.0/include:/gnu/store/llkv94k15spryi6zf0gjm0fp7m8k3i8g-glibc-2.31/include:/gnu/store/36c64cqp24i8i8p9m5402ig0pclmcvld-gmp-6.2.0/include:/gnu/store/f8dk4p7wlggm2p6jjgpbvri31zacnp5i-libgc-8.0.4/include:/gnu/store/il1kyhiljxf66lqy4b7sh03y7yl3i1a8-libltdl-2.4.6/include:/gnu/store/kykplfxdjnf44pxn154d8sg30vrpdp2c-libunistring-0.9.10/include:/gnu/store/72z9rxrrmfw1xx9gf27jm2s8h5h0fkh0-linux-libre-headers-5.4.20/include'
environment variable `CPLUS_INCLUDE_PATH' set to `/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/include:/gnu/store/k3n5jh5579g2b17qmd2w89z2fy45pmr3-bzip2-1.0.8/include:/gnu/store/k8ksi57ghm301zr0v7aq2vl2fa8hxfqi-xz-5.2.4/include:/gnu/store/5ckix15mw8r509g68fbm7rla51lmd2zq-file-5.38/include:/gnu/store/x9qzb42hmzszg9y16m1gbz3vv54yyi00-gawk-5.0.1/include:/gnu/store/wsxnp4k7mp7b705kxp94j7hs8as5fmsl-make-4.3/include:/gnu/store/1iwrsjwmhcdifc8i3v7qdr59k6gq4z24-binutils-2.34/include:/gnu/store/z8954h4nvgxwcyy2in8c1l11g199m2yb-gcc-7.5.0/include/c++:/gnu/store/z8954h4nvgxwcyy2in8c1l11g199m2yb-gcc-7.5.0/include:/gnu/store/llkv94k15spryi6zf0gjm0fp7m8k3i8g-glibc-2.31/include:/gnu/store/36c64cqp24i8i8p9m5402ig0pclmcvld-gmp-6.2.0/include:/gnu/store/f8dk4p7wlggm2p6jjgpbvri31zacnp5i-libgc-8.0.4/include:/gnu/store/il1kyhiljxf66lqy4b7sh03y7yl3i1a8-libltdl-2.4.6/include:/gnu/store/kykplfxdjnf44pxn154d8sg30vrpdp2c-libunistring-0.9.10/include:/gnu/store/72z9rxrrmfw1xx9gf27jm2s8h5h0fkh0-linux-libre-headers-5.4.20/include'
environment variable `LIBRARY_PATH' set to `/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/lib:/gnu/store/k3n5jh5579g2b17qmd2w89z2fy45pmr3-bzip2-1.0.8/lib:/gnu/store/k8ksi57ghm301zr0v7aq2vl2fa8hxfqi-xz-5.2.4/lib:/gnu/store/5ckix15mw8r509g68fbm7rla51lmd2zq-file-5.38/lib:/gnu/store/x9qzb42hmzszg9y16m1gbz3vv54yyi00-gawk-5.0.1/lib:/gnu/store/1iwrsjwmhcdifc8i3v7qdr59k6gq4z24-binutils-2.34/lib:/gnu/store/llkv94k15spryi6zf0gjm0fp7m8k3i8g-glibc-2.31/lib:/gnu/store/m4l52mw8m0amgy4j129z5j0syryb7pkg-glibc-2.31-static/lib:/gnu/store/vispxhcwmvasm225pm373jhfn21q1sa1-glibc-utf8-locales-2.31/lib:/gnu/store/36c64cqp24i8i8p9m5402ig0pclmcvld-gmp-6.2.0/lib:/gnu/store/f8dk4p7wlggm2p6jjgpbvri31zacnp5i-libgc-8.0.4/lib:/gnu/store/il1kyhiljxf66lqy4b7sh03y7yl3i1a8-libltdl-2.4.6/lib:/gnu/store/kykplfxdjnf44pxn154d8sg30vrpdp2c-libunistring-0.9.10/lib'
environment variable `GUIX_LOCPATH' set to `/gnu/store/vispxhcwmvasm225pm373jhfn21q1sa1-glibc-utf8-locales-2.31/lib/locale'
phase `set-paths' succeeded after 0.2 seconds
starting phase `install-locale'
using 'en_US.utf8' locale for category "LC_ALL"
phase `install-locale' succeeded after 0.0 seconds
starting phase `unpack'
guile-commonmark-0.1.2/
guile-commonmark-0.1.2/COPYING
guile-commonmark-0.1.2/COPYING.LESSER
guile-commonmark-0.1.2/Makefile.am
guile-commonmark-0.1.2/Makefile.in
guile-commonmark-0.1.2/README.md
guile-commonmark-0.1.2/aclocal.m4
guile-commonmark-0.1.2/build-aux/
guile-commonmark-0.1.2/build-aux/install-sh
guile-commonmark-0.1.2/build-aux/mdate-sh
guile-commonmark-0.1.2/build-aux/missing
guile-commonmark-0.1.2/build-aux/test-driver.scm
guile-commonmark-0.1.2/build-aux/texinfo.tex
guile-commonmark-0.1.2/commonmark/
guile-commonmark-0.1.2/commonmark/blocks.scm
guile-commonmark-0.1.2/commonmark/common.scm
guile-commonmark-0.1.2/commonmark/entities.scm
guile-commonmark-0.1.2/commonmark/inlines.scm
guile-commonmark-0.1.2/commonmark/node.scm
guile-commonmark-0.1.2/commonmark/sxml.scm
guile-commonmark-0.1.2/commonmark/utils.scm
guile-commonmark-0.1.2/commonmark.scm
guile-commonmark-0.1.2/configure
guile-commonmark-0.1.2/configure.ac
guile-commonmark-0.1.2/guile.am
guile-commonmark-0.1.2/m4/
guile-commonmark-0.1.2/m4/guile.m4
guile-commonmark-0.1.2/pre-inst-env.in
guile-commonmark-0.1.2/tests/
guile-commonmark-0.1.2/tests/blocks/
guile-commonmark-0.1.2/tests/blocks/atx-headings.scm
guile-commonmark-0.1.2/tests/blocks/block-quotes.scm
guile-commonmark-0.1.2/tests/blocks/code-blocks.scm
guile-commonmark-0.1.2/tests/blocks/fenced-code.scm
guile-commonmark-0.1.2/tests/blocks/link-reference-definitions.scm
guile-commonmark-0.1.2/tests/blocks/list-items.scm
guile-commonmark-0.1.2/tests/blocks/lists.scm
guile-commonmark-0.1.2/tests/blocks/paragraphs.scm
guile-commonmark-0.1.2/tests/blocks/setext-headings.scm
guile-commonmark-0.1.2/tests/blocks/thematic-breaks.scm
guile-commonmark-0.1.2/tests/inlines/
guile-commonmark-0.1.2/tests/inlines/autolinks.scm
guile-commonmark-0.1.2/tests/inlines/backslash-escape.scm
guile-commonmark-0.1.2/tests/inlines/code-spans.scm
guile-commonmark-0.1.2/tests/inlines/emphasis.scm
guile-commonmark-0.1.2/tests/inlines/entities.scm
guile-commonmark-0.1.2/tests/inlines/hardbreak.scm
guile-commonmark-0.1.2/tests/inlines/images.scm
guile-commonmark-0.1.2/tests/inlines/links.scm
guile-commonmark-0.1.2/tests/inlines/softbreak.scm
guile-commonmark-0.1.2/tests/node.scm
phase `unpack' succeeded after 0.0 seconds
starting phase `fix-tests-when-building-with-guile-3.0.5'
phase `fix-tests-when-building-with-guile-3.0.5' succeeded after 0.1 seconds
starting phase `bootstrap'
GNU build system bootstrapping not needed
phase `bootstrap' succeeded after 0.0 seconds
starting phase `patch-usr-bin-file'
phase `patch-usr-bin-file' succeeded after 0.0 seconds
starting phase `patch-source-shebangs'
patch-shebang: ./build-aux/install-sh: changing `/bin/sh' to `/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./build-aux/mdate-sh: changing `/bin/sh' to `/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./build-aux/missing: changing `/bin/sh' to `/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./configure: changing `/bin/sh' to `/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./pre-inst-env.in: changing `/bin/sh' to `/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/sh'
phase `patch-source-shebangs' succeeded after 0.0 seconds
starting phase `configure'
source directory: "/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2" (relative from build: ".")
build directory: "/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2"
configure flags: ("CONFIG_SHELL=/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/bash" "SHELL=/gnu/store/7zp9ifpgm3zj481nk6jg1im13g4mza2g-bash-minimal-5.0.16/bin/bash" "--prefix=/gnu/store/ilw8p1i31qfjcg2vbyaxh0kjvgvc48y9-guile2.0-commonmark-0.1.2" "--enable-fast-install" "--build=arm-unknown-linux-gnueabihf")
configure: WARNING: unrecognized options: --enable-fast-install
checking for a BSD-compatible install... /gnu/store/wy177cwa387g9kaf3ss716d4fhzb21wx-coreutils-8.32/bin/install -c
checking whether build environment is sane... yes
checking for a thread-safe mkdir -p... /gnu/store/wy177cwa387g9kaf3ss716d4fhzb21wx-coreutils-8.32/bin/mkdir -p
checking for gawk... gawk
checking whether make sets $(MAKE)... no
checking whether make supports nested variables... yes
checking for pkg-config... /gnu/store/3rs3zyc4886bdp0x4dmfyhpw18w0n9km-pkg-config-0.29.2/bin/pkg-config
checking pkg-config is at least version 0.9.0... yes
configure: checking for guile 3.0
configure: checking for guile 2.2
configure: checking for guile 2.0
configure: found guile 2.0
checking for guile-2.0... no
checking for guile2.0... no
checking for guile-2... no
checking for guile2... no
checking for guile... /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guile
checking for Guile version >= 2.0... 2.0.14
checking for guild... /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
checking for guile-config... /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guile-config
checking if (srfi srfi-64) is available... yes
checking that generated files are newer than configure... done
configure: creating ./config.status
config.status: creating Makefile
config.status: creating pre-inst-env
configure: WARNING: unrecognized options: --enable-fast-install
phase `configure' succeeded after 1.4 seconds
starting phase `patch-generated-file-shebangs'
phase `patch-generated-file-shebangs' succeeded after 0.0 seconds
starting phase `build'
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/utils.go" "commonmark/utils.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/common.go" "commonmark/common.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/entities.go" "commonmark/entities.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/node.go" "commonmark/node.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/blocks.go" "commonmark/blocks.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/inlines.go" "commonmark/inlines.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark/sxml.go" "commonmark/sxml.scm"
./pre-inst-env /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild compile -Wunbound-variable -Warity-mismatch -Wformat -o "commonmark.go" "commonmark.scm"
wrote `commonmark/utils.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark/common.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark/sxml.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark/node.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
commonmark/node.scm:342:44: warning: possibly unbound variable `<>'
wrote `commonmark/entities.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark/blocks.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
wrote `commonmark/inlines.go'
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild
;;; WARNING: compilation of /gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild failed:
;;; ERROR: failed to create path for auto-compiled file "/gnu/store/vr2mpd7vsjx7bgz53vf1mbswijln5q56-guile-2.0.14/bin/guild"
phase `build' succeeded after 1.3 seconds
starting phase `check'
make check-TESTS
make[1]: Entering directory '/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2'
make[2]: Entering directory '/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2'
PASS: tests/node.scm
PASS: tests/blocks/thematic-breaks.scm
PASS: tests/blocks/paragraphs.scm
PASS: tests/inlines/softbreak.scm
PASS: tests/blocks/code-blocks.scm
PASS: tests/blocks/setext-headings.scm
PASS: tests/blocks/link-reference-definitions.scm
SKIP: tests/inlines/hardbreak.scm
PASS: tests/blocks/fenced-code.scm
PASS: tests/blocks/atx-headings.scm
SKIP: tests/inlines/code-spans.scm
PASS: tests/inlines/backslash-escape.scm
PASS: tests/inlines/entities.scm
PASS: tests/inlines/autolinks.scm
PASS: tests/blocks/block-quotes.scm
PASS: tests/inlines/images.scm
PASS: tests/blocks/list-items.scm
SKIP: tests/blocks/lists.scm
SKIP: tests/inlines/links.scm
FAIL: tests/inlines/emphasis.scm
============================================================================
Testsuite summary for guile-commonmark 0.1.2
============================================================================
# TOTAL: 437
# PASS: 422
# SKIP: 0
# XFAIL: 11
# FAIL: 4
# XPASS: 0
# ERROR: 0
============================================================================
See ./test-suite.log
============================================================================
make[2]: *** [Makefile:659: test-suite.log] Error 1
make[2]: Leaving directory '/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2'
make[1]: *** [Makefile:767: check-TESTS] Error 2
make[1]: Leaving directory '/tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2'
make: *** [Makefile:959: check-am] Error 2
Test suite failed, dumping logs.
--- ./test-suite.log --------------------------------------------------------
==============================================
guile-commonmark 0.1.2: ./test-suite.log
==============================================
# TOTAL: 437
# PASS: 422
# SKIP: 0
# XFAIL: 11
# FAIL: 4
# XPASS: 0
# ERROR: 0
.. contents:: :depth: 2
SKIP: tests/blocks/lists
========================
test-name: parse-blocks, list changing bullet list delimiter starts a new list
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:27
source:
+ (test-assert
+ "parse-blocks, list changing bullet list delimiter starts a new list"
+ (match (call-with-input-string
+ (string-append "- foo\n" "- bar\n" "+ baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz"))))
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "bar")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list changing ordered list delimiter starts a new list
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:51
source:
+ (test-assert
+ "parse-blocks, list changing ordered list delimiter starts a new list"
+ (match (call-with-input-string
+ (string-append "1. foo\n" "2. bar\n" "3) baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz"))))
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "bar")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ (eq? (list-start list-data1) 3))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list can interrupt a paragraph
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:72
source:
+ (test-assert
+ "parse-blocks, list can interrupt a paragraph"
+ (match (call-with-input-string
+ (string-append "Foo\n" "- bar\n" "- baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "bar"))))
+ ('paragraph para-data3 ('text text-data3 "Foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list there can be blank lines between items, but two blank lines end a list
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:91
source:
+ (test-assert
+ "parse-blocks, list there can be blank lines between items, but two blank lines end a list"
+ (match (call-with-input-string
+ (string-append
+ "- foo\n"
+ "\n"
+ "- bar\n"
+ "\n"
+ "\n"
+ "- baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz"))))
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "bar")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list two blank lines between blocks within a list item also ends a list
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:115
source:
+ (test-assert
+ "parse-blocks, list two blank lines between blocks within a list item also ends a list"
+ (match (call-with-input-string
+ (string-append
+ "- foo\n"
+ "\n"
+ "\n"
+ " bar\n"
+ "- baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz"))))
+ ('paragraph para-data2 ('text text-data2 "bar"))
+ ('list
+ list-data2
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list two blank lines end all containing lists
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:137
source:
+ (test-assert
+ "parse-blocks, list two blank lines end all containing lists"
+ (match (call-with-input-string
+ (string-append
+ "- foo\n"
+ " - bar\n"
+ " - baz\n"
+ "\n"
+ "\n"
+ " bim")
+ parse-blocks)
+ (('document
+ doc-data
+ ('code-block code-data " bim")
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('list
+ list-data3
+ ('item
+ item-data3
+ ('paragraph para-data1 ('text text-data1 "baz"))))
+ ('paragraph para-data2 ('text text-data2 "bar"))))
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list two blank lines can separate consecutive lists of the same type
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:163
source:
+ (test-assert
+ "parse-blocks, list two blank lines can separate consecutive lists of the same type"
+ (match (call-with-input-string
+ (string-append
+ "- foo\n"
+ "- bar\n"
+ "\n"
+ "\n"
+ "- baz\n"
+ "- bim")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "bim")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "baz"))))
+ ('list
+ list-data2
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "bar")))
+ ('item
+ item-data4
+ ('paragraph para-data4 ('text text-data4 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list two blank lines can separate an indented code block that would be a paragraph
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:190
source:
+ (test-assert
+ "parse-blocks, list two blank lines can separate an indented code block that would be a paragraph"
+ (match (call-with-input-string
+ (string-append
+ "- foo\n"
+ "\n"
+ " notcode\n"
+ "\n"
+ "- foo\n"
+ "\n"
+ "\n"
+ " code")
+ parse-blocks)
+ (('document
+ doc-data
+ ('code-block code-data "code")
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "foo")))
+ ('item
+ item-data2
+ ('paragraph
+ para-data2
+ ('text text-data2 "notcode"))
+ ('paragraph para-data3 ('text text-data3 "foo")))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list need not be indented to the same level
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:216
source:
+ (test-assert
+ "parse-blocks, list need not be indented to the same level"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ " - b\n"
+ " - c\n"
+ " - d\n"
+ " - e\n"
+ " - f\n"
+ " - g\n"
+ " - h\n"
+ "- i")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "i")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "h")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "g")))
+ ('item
+ item-data4
+ ('paragraph para-data4 ('text text-data4 "f")))
+ ('item
+ item-data5
+ ('paragraph para-data5 ('text text-data5 "e")))
+ ('item
+ item-data6
+ ('paragraph para-data6 ('text text-data6 "d")))
+ ('item
+ item-data7
+ ('paragraph para-data7 ('text text-data7 "c")))
+ ('item
+ item-data8
+ ('paragraph para-data8 ('text text-data8 "b")))
+ ('item
+ item-data9
+ ('paragraph para-data9 ('text text-data9 "a")))))
+ #t)
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (list ((type . bullet) (tight . #t) (bullet . "-")) (item ((padding . 2)) (paragraph ((closed . #f)) (text ((closed . #t)) "i"))) (item ((closed . #t) (padding . 3)) (paragraph ((closed . #f)) (text ((closed . #t)) "h"))) (item ((closed . #t) (padding . 4)) (paragraph ((closed . #f)) (text ((closed . #t)) "g"))) (item ((closed . #t) (padding . 5)) (paragraph ((closed . #f)) (text ((closed . #t)) "f")))) (code-block ((closed . #t) (closed . #f)) "- e") (list ((closed . #t) (type . bullet) (tight . #t) (bullet . "-")) (item ((closed . #t) (padding . 5)) (paragraph ((closed . #f)) (text ((closed . #t)) "d"))) (item ((closed . #t) (padding . 4)) (paragraph ((closed . #f)) (text ((closed . #t)) "c"))) (item ((closed . #t) (padding . 3)) (paragraph ((closed . #f)) (text ((closed . #t)) "b"))) (item ((closed . #t) (padding . 2)) (paragraph ((closed . #f)) (text ((closed . #t)) "a"))))) #f)
actual-value: #f
result: XFAIL
test-name: parse-blocks, list need not be indented to the same level
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:260
source:
+ (test-assert
+ "parse-blocks, list need not be indented to the same level"
+ (match (call-with-input-string
+ (string-append
+ "1. a\n"
+ "\n"
+ " 2. b\n"
+ "\n"
+ " 3. c")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "c")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "b")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "a")))))
+ #t)
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (code-block ((closed . #f)) "3. c") (list ((tight . #f) (closed . #t) (type . ordered) (start . 1) (tight . #t) (delimiter . ".")) (item ((closed . #t) (padding . 5)) (paragraph ((closed . #f)) (text ((closed . #t)) "b"))) (item ((closed . #t) (padding . 3)) (paragraph ((closed . #f)) (text ((closed . #t)) "a"))))) #f)
actual-value: #f
result: XFAIL
test-name: parse-blocks, list with a blank line between items is loose
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:285
source:
+ (test-assert
+ "parse-blocks, list with a blank line between items is loose"
+ (match (call-with-input-string
+ (string-append "- a\n" "- b\n" "\n" "- c\n")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "c")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "b")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "a")))))
+ (not (list-tight? list-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list with a blank line between items is loose
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:307
source:
+ (test-assert
+ "parse-blocks, list with a blank line between items is loose"
+ (match (call-with-input-string
+ (string-append "* a\n" "*\n" "\n" "* c")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "c")))
+ ('item item-data2)
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "a")))))
+ (not (list-tight? list-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list with a list item with two block level elements is loose
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:326
source:
+ (test-assert
+ "parse-blocks, list with a list item with two block level elements is loose"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ "- b\n"
+ "\n"
+ " c\n"
+ "- d")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "d")))
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "c"))
+ ('paragraph para-data3 ('text text-data3 "b")))
+ ('item
+ item-data3
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (not (list-tight? list-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list with a list item with two block level elements is loose
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:350
source:
+ (test-assert
+ "parse-blocks, list with a list item with two block level elements is loose"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ "- b\n"
+ "\n"
+ " [ref]: /url\n"
+ "- d")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "d")))
+ ('item
+ item-data2
+ ('paragraph para-data3 ('text text-data3 "b")))
+ ('item
+ item-data3
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (not (list-tight? list-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list with blank lines in code block are tight
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:372
source:
+ (test-assert
+ "parse-blocks, list with blank lines in code block are tight"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ "- ```\n"
+ " b\n"
+ "\n"
+ "\n"
+ " ```\n"
+ "- c")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "c")))
+ ('item
+ item-data2
+ ('fenced-code code-data "b\n\n"))
+ ('item
+ item-data3
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (list-tight? list-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list is tight even if a sublist is loose
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:395
source:
+ (test-assert
+ "parse-blocks, list is tight even if a sublist is loose"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ " - b\n"
+ "\n"
+ " c\n"
+ "- d")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "d")))
+ ('item
+ item-data3
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "c"))
+ ('paragraph para-data3 ('text text-data3 "b"))))
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (list-tight? list-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list is tight if blank line is inside a block quote
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:420
source:
+ (test-assert
+ "parse-blocks, list is tight if blank line is inside a block quote"
+ (match (call-with-input-string
+ (string-append "* a\n" " > b\n" " >\n" "* c")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "c")))
+ ('item
+ item-data3
+ ('block-quote
+ quote-data
+ ('paragraph para-data2 ('text text-data2 "b")))
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (list-tight? list-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list is tight if the consecutive block elements are not separated by blank lines
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:441
source:
+ (test-assert
+ "parse-blocks, list is tight if the consecutive block elements are not separated by blank lines"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ " > b\n"
+ " ```\n"
+ " c\n"
+ " ```\n"
+ "- d")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "d")))
+ ('item
+ item-data3
+ ('fenced-code code-data "c")
+ ('block-quote
+ quote-data
+ ('paragraph para-data2 ('text text-data2 "b")))
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (list-tight? list-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list a single paragraph is tight
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:465
source:
+ (test-assert
+ "parse-blocks, list a single paragraph is tight"
+ (match (call-with-input-string "- a" parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "a")))))
+ (list-tight? list-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list a single paragraph is tight
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:477
source:
+ (test-assert
+ "parse-blocks, list a single paragraph is tight"
+ (match (call-with-input-string
+ (string-append "- a\n" " - b")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data1 "b"))))
+ ('paragraph para-data1 ('text text-data1 "a")))))
+ (and (list-tight? list-data1)
+ (list-tight? list-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, list is loose if blank line between two block elements
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:495
source:
+ (test-assert
+ "parse-blocks, list is loose if blank line between two block elements"
+ (match (call-with-input-string
+ (string-append
+ "1. ```\n"
+ " foo\n"
+ " ```\n"
+ "\n"
+ " bar")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "bar"))
+ ('fenced-code code-data "foo"))))
+ (not (list-tight? list-data1)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, outer list is loose and inner list tight
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:512
source:
+ (test-assert
+ "parse-blocks, outer list is loose and inner list tight"
+ (match (call-with-input-string
+ (string-append
+ "* foo\n"
+ " * bar\n"
+ "\n"
+ " baz")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('paragraph para-data1 ('text text-data1 "baz"))
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data1 ('text text-data1 "bar"))))
+ ('paragraph para-data1 ('text text-data1 "foo")))))
+ (and (not (list-tight? list-data1))
+ (list-tight? list-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-blocks, outer list is loose and inner list tight
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/blocks/lists.scm:535
source:
+ (test-assert
+ "parse-blocks, outer list is loose and inner list tight"
+ (match (call-with-input-string
+ (string-append
+ "- a\n"
+ " - b\n"
+ " - c\n"
+ "\n"
+ "- d\n"
+ " - e\n"
+ " - f")
+ parse-blocks)
+ (('document
+ doc-data
+ ('list
+ list-data1
+ ('item
+ item-data1
+ ('list
+ list-data2
+ ('item
+ item-data2
+ ('paragraph para-data2 ('text text-data2 "f")))
+ ('item
+ item-data3
+ ('paragraph para-data3 ('text text-data3 "e"))))
+ ('paragraph para-data1 ('text text-data1 "d")))
+ ('item
+ item-data4
+ ('list
+ list-data3
+ ('item
+ item-data5
+ ('paragraph para-data5 ('text text-data5 "c")))
+ ('item
+ item-data6
+ ('paragraph para-data6 ('text text-data6 "b"))))
+ ('paragraph para-data4 ('text text-data4 "a")))))
+ (and (not (list-tight? list-data1))
+ (list-tight? list-data2)
+ (list-tight? list-data3)))
+ (x (pk 'fail x #f))))
actual-value: #f
result: XFAIL
SKIP: tests/inlines/code-spans
==============================
test-name: parse-inlines, simple code span
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:34
source:
+ (test-assert
+ "parse-inlines, simple code span"
+ (match (parse-inlines (make-paragraph "`foo`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, two backs ticks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:43
source:
+ (test-assert
+ "parse-inlines, two backs ticks"
+ (match (parse-inlines
+ (make-paragraph "`` foo ` bar ``"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "foo ` bar")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans stripping leading and trailing spaces
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:52
source:
+ (test-assert
+ "parse-inlines, code spans stripping leading and trailing spaces"
+ (match (parse-inlines (make-paragraph "` `` `"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "``")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans line endings are treated like spaces
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:61
source:
+ (test-assert
+ "parse-inlines, code spans line endings are treated like spaces"
+ (match (parse-inlines (make-paragraph "``\nfoo\n``"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans interior spaces and line endings are collasped into single spaces
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:70
source:
+ (test-assert
+ "parse-inlines, code spans interior spaces and line endings are collasped into single spaces"
+ (match (parse-inlines
+ (make-paragraph "`foo bar\n baz`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "foo bar baz")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans with two ticks inside
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:79
source:
+ (test-assert
+ "parse-inlines, code spans with two ticks inside"
+ (match (parse-inlines (make-paragraph "`foo `` bar`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "foo `` bar")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, backslash escapes do not work in code spans
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:89
source:
+ (test-assert
+ "parse-inlines, backslash escapes do not work in code spans"
+ (match (parse-inlines (make-paragraph "`foo\\`bar`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "`")
+ ('text text-data "bar")
+ ('code-span code-data "foo\\")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans backticks have higher precedence, emphasized text
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:102
source:
+ (test-assert
+ "parse-inlines, code spans backticks have higher precedence, emphasized text"
+ (match (parse-inlines (make-paragraph "*foo`*`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "*")
+ ('text text-data "foo")
+ ('text text-data "*")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans backticks have higher precedence, link
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:115
source:
+ (test-assert
+ "parse-inlines, code spans backticks have higher precedence, link"
+ (match (parse-inlines
+ (make-paragraph "[not a `link](/foo`)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 ")")
+ ('code-span code-data "link](/foo")
+ ('text text-data "not a ")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, code spans have same precedence as HTML tags, code
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:129
source:
+ (test-assert
+ "parse-inlines, code spans have same precedence as HTML tags, code"
+ (match (parse-inlines
+ (make-paragraph "``"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "`")
+ ('text text-data2 "\">")
+ ('code-span code-data "`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "\">`")
+ ('code-span code-data "") (text ((closed . #t)) "a href=\"") (text ((closed . #t)) "<"))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, code spans have same precedence as autolink, code
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:155
source:
+ (test-assert
+ "parse-inlines, code spans have same precedence as autolink, code"
+ (match (parse-inlines
+ (make-paragraph "``"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "`")
+ ('text text-data2 "baz>")
+ ('code-span code-data "`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "`")
+ ('link
+ link-data
+ ('text text-data "http://foo.bar.`baz"))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, backticks with no matching backtick are literal backticks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:179
source:
+ (test-assert
+ "parse-inlines, backticks with no matching backtick are literal backticks"
+ (match (parse-inlines (make-paragraph "```foo``"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data3 "``")
+ ('text text-data2 "foo")
+ ('text text-data1 "```")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, backticks with no matching backtick are literal backticks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/code-spans.scm:192
source:
+ (test-assert
+ "parse-inlines, backticks with no matching backtick are literal backticks"
+ (match (parse-inlines (make-paragraph "`foo"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "foo")
+ ('text text-data1 "`")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
FAIL: tests/inlines/emphasis
============================
test-name: parse-inlines, simple emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:34
source:
+ (test-assert
+ "parse-inlines, simple emphasis"
+ (match (parse-inlines (make-paragraph "*foo bar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "foo bar"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because whitespace after *
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:43
source:
+ (test-assert
+ "parse-inlines, not emphasis because whitespace after *"
+ (match (parse-inlines (make-paragraph "a * foo bar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('text text-data2 " foo bar")
+ ('text text-data3 "*")
+ ('text text-data4 "a ")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because punctuation after alphanumeric before
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:54
source:
+ (test-assert
+ "parse-inlines, not emphasis because punctuation after alphanumeric before"
+ (match (parse-inlines (make-paragraph "a*\"foo\"*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('text text-data2 "\"foo\"")
+ ('text text-data3 "*")
+ ('text text-data4 "a")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because unicode nonbreaking spaces count as whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:65
source:
+ (test-assert
+ "parse-inlines, not emphasis because unicode nonbreaking spaces count as whitespace"
+ (match (parse-inlines (make-paragraph "*\xa0a\xa0*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('text text-data2 "\xa0a\xa0")
+ ('text text-data3 "*")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with intraword emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:75
source:
+ (test-assert
+ "parse-inlines, emphasis with intraword emphasis"
+ (match (parse-inlines (make-paragraph "foo*bar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data "bar"))
+ ('text text-data "foo")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with intraword emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:86
source:
+ (test-assert
+ "parse-inlines, emphasis with intraword emphasis"
+ (match (parse-inlines (make-paragraph "5*6*78"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "78")
+ ('emphasis emphasis-data ('text text-data "6"))
+ ('text text-data "5")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, simple _ emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:97
source:
+ (test-assert
+ "parse-inlines, simple _ emphasis"
+ (match (parse-inlines (make-paragraph "_foo bar_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "foo bar"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because punctuation after alphanumeric before
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:106
source:
+ (test-assert
+ "parse-inlines, not emphasis because punctuation after alphanumeric before"
+ (match (parse-inlines (make-paragraph "a_\"foo\"_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_")
+ ('text text-data2 "\"foo\"")
+ ('text text-data3 "_")
+ ('text text-data4 "a")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with _ is not allowed inside words
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:117
source:
+ (test-assert
+ "parse-inlines, emphasis with _ is not allowed inside words"
+ (match (parse-inlines (make-paragraph "foo_bar_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_")
+ ('text text-data2 "bar")
+ ('text text-data3 "_")
+ ('text text-data4 "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with _ is not allowed inside words
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:128
source:
+ (test-assert
+ "parse-inlines, emphasis with _ is not allowed inside words"
+ (match (parse-inlines (make-paragraph "5_6_78"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "78")
+ ('text text-data2 "_")
+ ('text text-data3 "6")
+ ('text text-data4 "_")
+ ('text text-data5 "5")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with _ is not allowed inside words
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:140
source:
+ (test-assert
+ "parse-inlines, emphasis with _ is not allowed inside words"
+ (match (parse-inlines
+ (make-paragraph
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c_\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_")
+ ('text
+ text-data2
+ "\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f")
+ ('text text-data3 "_")
+ ('text
+ text-data4
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #f
actual-error:
+ (out-of-range
+ #f
+ "Value out of range ~S to ~S: ~S"
+ (10 20 21)
+ (21))
result: FAIL
test-name: parse-inlines, emphasis with _ is not allowed to have delimiters to be both flanking
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:151
source:
+ (test-assert
+ "parse-inlines, emphasis with _ is not allowed to have delimiters to be both flanking"
+ (match (parse-inlines (make-paragraph "aa_\"bb\"_cc"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "cc")
+ ('text text-data2 "_")
+ ('text text-data3 "\"bb\"")
+ ('text text-data4 "_")
+ ('text text-data5 "aa")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis with _ is allowed when preceded by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:163
source:
+ (test-assert
+ "parse-inlines, emphasis with _ is allowed when preceded by punctuation"
+ (match (parse-inlines (make-paragraph "foo-_(bar)_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "(bar)"))
+ ('text text-data2 "foo-")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis delimiters must match
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:173
source:
+ (test-assert
+ "parse-inlines, emphasis delimiters must match"
+ (match (parse-inlines (make-paragraph "_foo*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('text text-data2 "foo")
+ ('text text-data3 "_")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis closing delimiter must not be preceded by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:183
source:
+ (test-assert
+ "parse-inlines, emphasis closing delimiter must not be preceded by whitespace"
+ (match (parse-inlines (make-paragraph "*foo bar *"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('text text-data2 "foo bar ")
+ ('text text-data3 "*")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because second * is not right-flanking delimiter run
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:193
source:
+ (test-assert
+ "parse-inlines, not emphasis because second * is not right-flanking delimiter run"
+ (match (parse-inlines (make-paragraph "*(*foo)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "foo)")
+ ('text text-data2 "*")
+ ('text text-data3 "(")
+ ('text text-data4 "*")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis example showing previous restriction benefits
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:204
source:
+ (test-assert
+ "parse-inlines, emphasis example showing previous restriction benefits"
+ (match (parse-inlines (make-paragraph "*(*foo*)*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 ")")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo"))
+ ('text text-data3 "("))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword emphasis with * is allowed
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:218
source:
+ (test-assert
+ "parse-inlines, emphasis intraword emphasis with * is allowed"
+ (match (parse-inlines (make-paragraph "*foo*bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "bar")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because the closing _ is preceded by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:228
source:
+ (test-assert
+ "parse-inlines, not emphasis because the closing _ is preceded by whitespace"
+ (match (parse-inlines (make-paragraph "_foo bar _"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_")
+ ('text text-data2 "foo bar ")
+ ('text text-data3 "_")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not emphasis because the second _ is preceded by punctuation and
followed by an alphanumeric
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:238
source:
+ (test-assert
+ "parse-inlines, not emphasis because the second _ is preceded by punctuation and\nfollowed by an alphanumeric"
+ (match (parse-inlines (make-paragraph "_(_foo)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "foo)")
+ ('text text-data2 "_")
+ ('text text-data3 "(")
+ ('text text-data4 "_")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis within emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:250
source:
+ (test-assert
+ "parse-inlines, emphasis within emphasis"
+ (match (parse-inlines (make-paragraph "_(_foo_)_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 ")")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo"))
+ ('text text-data3 "("))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, intraword emphasis is disallowed for _
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:264
source:
+ (test-assert
+ "parse-inlines, intraword emphasis is disallowed for _"
+ (match (parse-inlines (make-paragraph "_foo_bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "bar")
+ ('text text-data2 "_")
+ ('text text-data3 "foo")
+ ('text text-data4 "_")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, intraword emphasis is disallowed for _
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:275
source:
+ (test-assert
+ "parse-inlines, intraword emphasis is disallowed for _"
+ (match (parse-inlines
+ (make-paragraph
+ "_\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c_\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text
+ text-data1
+ "\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f")
+ ('text text-data2 "_")
+ ('text
+ text-data3
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c")
+ ('text text-data4 "_")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #f
actual-error:
+ (out-of-range
+ #f
+ "Value out of range ~S to ~S: ~S"
+ (11 20 22)
+ (22))
result: FAIL
test-name: parse-inlines, intraword emphasis is disallowed for _
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:287
source:
+ (test-assert
+ "parse-inlines, intraword emphasis is disallowed for _"
+ (match (parse-inlines (make-paragraph "_foo_bar_baz_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "baz")
+ ('text text-data2 "_")
+ ('text text-data3 "bar")
+ ('text text-data4 "_")
+ ('text text-data5 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis closing delimiter is followed by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:300
source:
+ (test-assert
+ "parse-inlines, emphasis closing delimiter is followed by punctuation"
+ (match (parse-inlines (make-paragraph "_(bar)_."))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 ".")
+ ('emphasis
+ emphasis-data
+ ('text text-data2 "(bar)"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 5
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:314
source:
+ (test-assert
+ "parse-inlines, emphasis rule 5"
+ (match (parse-inlines (make-paragraph "**foo bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "foo bar"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because opening delimiter
is followed by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:323
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because opening delimiter\nis followed by whitespace"
+ (match (parse-inlines (make-paragraph "** foo bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "**")
+ ('text text-data2 " foo bar")
+ ('text text-data3 "**")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because opening ** is preceded
by an alphanumeric and followed by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:334
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because opening ** is preceded\nby an alphanumeric and followed by punctuation"
+ (match (parse-inlines (make-paragraph "a**\"foo\"**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "**")
+ ('text text-data2 "\"foo\"")
+ ('text text-data3 "**")
+ ('text text-data4 "a")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis with ** is permitted
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:346
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis with ** is permitted"
+ (match (parse-inlines (make-paragraph "foo**bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "bar"))
+ ('text text-data2 "foo")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 6
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:356
source:
+ (test-assert
+ "parse-inlines, emphasis rule 6"
+ (match (parse-inlines (make-paragraph "__foo bar__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "foo bar"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because opening delimiter
is followed by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:365
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because opening delimiter\nis followed by whitespace"
+ (match (parse-inlines (make-paragraph "__ foo bar__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text text-data2 " foo bar")
+ ('text text-data3 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because newline counts as whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:376
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because newline counts as whitespace"
+ (match (parse-inlines (make-paragraph "__\nfoo bar__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text text-data2 "foo bar")
+ ('softbreak break-data)
+ ('text text-data3 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because the opening __ is preceded
by an alphanumeric and followed by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:387
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because the opening __ is preceded\nby an alphanumeric and followed by punctuation"
+ (match (parse-inlines (make-paragraph "a__\"foo\"__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text text-data2 "\"foo\"")
+ ('text text-data3 "__")
+ ('text text-data4 "a")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:399
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines (make-paragraph "foo__bar__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text text-data2 "bar")
+ ('text text-data3 "__")
+ ('text text-data4 "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:410
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines (make-paragraph "5__6__78"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "78")
+ ('text text-data2 "__")
+ ('text text-data3 "6")
+ ('text text-data4 "__")
+ ('text text-data4 "5")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:422
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines
+ (make-paragraph
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c__\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text
+ text-data2
+ "\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f")
+ ('text text-data3 "__")
+ ('text
+ text-data4
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c")))
+ #t)
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f__") (text ((closed . #t)) "_") (text ((closed . #t)) "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c_"))) #f)
actual-value: #f
result: FAIL
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:433
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines
+ (make-paragraph "__foo, __bar__, baz__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 ", baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo, "))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis is strong emphais because it is preceded by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:446
source:
+ (test-assert
+ "parse-inlines, emphasis is strong emphais because it is preceded by punctuation"
+ (match (parse-inlines (make-paragraph "foo-__(bar)__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "(bar)"))
+ ('text text-data2 "foo-")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because closing delimiter
is preceded by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:456
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because closing delimiter\nis preceded by whitespace"
+ (match (parse-inlines (make-paragraph "**foo bar **"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "**")
+ ('text text-data2 "foo bar ")
+ ('text text-data3 "**")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis not strong emphasis because the second ** is preceded
by punctuation and followed by an alphanumeric
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:467
source:
+ (test-assert
+ "parse-inlines, emphasis not strong emphasis because the second ** is preceded\nby punctuation and followed by an alphanumeric"
+ (match (parse-inlines (make-paragraph "**(**foo)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "foo)")
+ ('text text-data2 "**")
+ ('text text-data3 "(")
+ ('text text-data3 "**")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis restriction is appreciated with these examples
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:479
source:
+ (test-assert
+ "parse-inlines, emphasis restriction is appreciated with these examples"
+ (match (parse-inlines
+ (make-paragraph
+ "**Gomphocarpus (*Gomphocarpus physocarpus*, syn.\n*Asclepias physocarpa*)**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 ")")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "Asclepias physocarpa"))
+ ('softbreak break-data)
+ ('text text-data3 ", syn.")
+ ('emphasis
+ emphasis-data3
+ ('text text-data4 "Gomphocarpus physocarpus"))
+ ('text text-data5 "Gomphocarpus ("))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)
+ (em? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis restriction is appreciated with these examples
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:498
source:
+ (test-assert
+ "parse-inlines, emphasis restriction is appreciated with these examples"
+ (match (parse-inlines
+ (make-paragraph "**foo \"*bar*\" foo**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "\" foo")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo \""))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:511
source:
+ (test-assert
+ "parse-inlines, emphasis intraword emphasis"
+ (match (parse-inlines (make-paragraph "**foo**bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "bar")
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "foo"))))
+ (strong? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not strong emphasis because the closing delimiter is preceded
by whitespace
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:521
source:
+ (test-assert
+ "parse-inlines, not strong emphasis because the closing delimiter is preceded\nby whitespace"
+ (match (parse-inlines (make-paragraph "__foo bar __"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "__")
+ ('text text-data2 "foo bar ")
+ ('text text-data3 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, not strong emphasis because the second __ is preceded
by punctuation and followed by an alphanumeric
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:532
source:
+ (test-assert
+ "parse-inlines, not strong emphasis because the second __ is preceded\nby punctuation and followed by an alphanumeric"
+ (match (parse-inlines (make-paragraph "__(__foo)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "foo)")
+ ('text text-data2 "__")
+ ('text text-data3 "(")
+ ('text text-data3 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis restriction is appreciated with this examples
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:544
source:
+ (test-assert
+ "parse-inlines, emphasis restriction is appreciated with this examples"
+ (match (parse-inlines (make-paragraph "_(__foo__)_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 ")")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo"))
+ ('text text-data3 "("))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:557
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines (make-paragraph "__foo__bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "bar")
+ ('text text-data2 "__")
+ ('text text-data3 "foo")
+ ('text text-data4 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:568
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines
+ (make-paragraph
+ "__\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c__\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text
+ text-data1
+ "\u0441\u0442\u0440\u0435\u043c\u044f\u0442\u0441\u044f")
+ ('text text-data2 "__")
+ ('text
+ text-data3
+ "\u043f\u0440\u0438\u0441\u0442\u0430\u043d\u044f\u043c")
+ ('text text-data4 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #f
actual-error:
+ (out-of-range
+ #f
+ "Value out of range ~S to ~S: ~S"
+ (13 22 24)
+ (24))
result: FAIL
test-name: parse-inlines, emphasis intraword strong emphasis is forbidden with __
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:579
source:
+ (test-assert
+ "parse-inlines, emphasis intraword strong emphasis is forbidden with __"
+ (match (parse-inlines
+ (make-paragraph "__foo__bar__baz__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "baz")
+ ('text text-data2 "__")
+ ('text text-data3 "bar")
+ ('text text-data4 "__")
+ ('text text-data5 "foo"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, strong emphasis, even though the closing delimiter is both
left- and right-flanking, because it is followed by punctuation
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:592
source:
+ (test-assert
+ "parse-inlines, strong emphasis, even though the closing delimiter is both\nleft- and right-flanking, because it is followed by punctuation"
+ (match (parse-inlines (make-paragraph "__(bar)__."))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 ".")
+ ('emphasis
+ emphasis-data
+ ('text text-data2 "(bar)"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis any nonempty sequence of inline elements can
be the contents of an emphasized span.
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:606
source:
+ (test-assert
+ "parse-inlines, emphasis any nonempty sequence of inline elements can\nbe the contents of an emphasized span."
+ (match (parse-inlines
+ (make-paragraph "*foo [bar](/url)*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('link link-data ('text text-data "bar"))
+ ('text text-data2 "foo "))))
+ (and (em? emphasis-data)
+ (destination=? link-data "/url")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis any nonempty sequence of inline elements can
be the contents of an emphasized span.
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:619
source:
+ (test-assert
+ "parse-inlines, emphasis any nonempty sequence of inline elements can\nbe the contents of an emphasized span."
+ (match (parse-inlines (make-paragraph "*foo\nbar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "bar")
+ ('softbreak break-data)
+ ('text text-data "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, in particular, emphasis and strong emphasis can be nested
inside emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:631
source:
+ (test-assert
+ "parse-inlines, in particular, emphasis and strong emphasis can be nested\ninside emphasis"
+ (match (parse-inlines
+ (make-paragraph "_foo __bar__ baz_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data3 "bar"))
+ ('text text-data2 "foo "))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, in particular, emphasis and strong emphasis can be nested
inside emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:645
source:
+ (test-assert
+ "parse-inlines, in particular, emphasis and strong emphasis can be nested\ninside emphasis"
+ (match (parse-inlines
+ (make-paragraph "_foo _bar_ baz_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data2 "foo "))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, in particular, emphasis and strong emphasis can be nested
inside emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:659
source:
+ (test-assert
+ "parse-inlines, in particular, emphasis and strong emphasis can be nested\ninside emphasis"
+ (match (parse-inlines (make-paragraph "__foo_ bar_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo")))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, in particular, emphasis and strong emphasis can be nested
inside emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:672
source:
+ (test-assert
+ "parse-inlines, in particular, emphasis and strong emphasis can be nested\ninside emphasis"
+ (match (parse-inlines (make-paragraph "*foo *bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data1 "foo "))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, in particular, emphasis and strong emphasis can be nested
inside emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:685
source:
+ (test-assert
+ "parse-inlines, in particular, emphasis and strong emphasis can be nested\ninside emphasis"
+ (match (parse-inlines
+ (make-paragraph "*foo **bar** baz*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo "))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, internal delimiters can close emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:699
source:
+ (test-assert
+ "parse-inlines, internal delimiters can close emphasis"
+ (match (parse-inlines
+ (make-paragraph "*foo**bar**baz*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "baz"))
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('emphasis
+ emphasis-data3
+ ('text text-data3 "foo"))))
+ (and (em? emphasis-data1)
+ (em? emphasis-data2)
+ (em? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis in cases with spaces, they cannot
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:714
source:
+ (test-assert
+ "parse-inlines, emphasis in cases with spaces, they cannot"
+ (match (parse-inlines (make-paragraph "***foo** bar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo")))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis in cases with spaces, they cannot
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:726
source:
+ (test-assert
+ "parse-inlines, emphasis in cases with spaces, they cannot"
+ (match (parse-inlines (make-paragraph "*foo **bar***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data1 "foo "))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis no strong emphasis because the opening
delimiter is closed by the first * before bar
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:738
source:
+ (test-assert
+ "parse-inlines, emphasis no strong emphasis because the opening\ndelimiter is closed by the first * before bar"
+ (match (parse-inlines (make-paragraph "*foo**bar***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data3 "**")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "foo"))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis indefinite levels of nesting are possible
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:752
source:
+ (test-assert
+ "parse-inlines, emphasis indefinite levels of nesting are possible"
+ (match (parse-inlines
+ (make-paragraph "*foo **bar *baz* bim** bop*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bop")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 " bim")
+ ('emphasis
+ emphasis-data3
+ ('text text-data4 "baz"))
+ ('text text-data5 "bar "))
+ ('text text-data6 "foo "))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)
+ (em? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis indefinite levels of nesting are possible
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:769
source:
+ (test-assert
+ "parse-inlines, emphasis indefinite levels of nesting are possible"
+ (match (parse-inlines
+ (make-paragraph "*foo [*bar*](/url)*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('link
+ link-data
+ ('emphasis
+ emphasis-data2
+ ('text text-data5 "bar")))
+ ('text text-data6 "foo "))))
+ (and (em? emphasis-data1)
+ (em? emphasis-data2)
+ (destination=? link-data "/url")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, there can be no empty emphasis or strong emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:784
source:
+ (test-assert
+ "parse-inlines, there can be no empty emphasis or strong emphasis"
+ (match (parse-inlines
+ (make-paragraph "** is not an empty emphasis"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 " is not an empty emphasis")
+ ('text text-data2 "**")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, there can be no empty emphasis or strong emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:793
source:
+ (test-assert
+ "parse-inlines, there can be no empty emphasis or strong emphasis"
+ (match (parse-inlines
+ (make-paragraph
+ "**** is not an empty strong emphasis"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text
+ text-data1
+ " is not an empty strong emphasis")
+ ('text text-data2 "****")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, any nonempty sequence of inline elements can be the
contents of a strongly emphasized span
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:802
source:
+ (test-assert
+ "parse-inlines, any nonempty sequence of inline elements can be the\ncontents of a strongly emphasized span"
+ (match (parse-inlines
+ (make-paragraph "**foo [bar](/url)**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "foo "))))
+ (and (strong? emphasis-data1)
+ (destination=? link-data "/url")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, any nonempty sequence of inline elements can be the
contents of a strongly emphasized span
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:815
source:
+ (test-assert
+ "parse-inlines, any nonempty sequence of inline elements can be the\ncontents of a strongly emphasized span"
+ (match (parse-inlines (make-paragraph "**foo\nbar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "bar")
+ ('softbreak break-data)
+ ('text text-data "foo"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis and strong emphasis can be nested inside strong
emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:827
source:
+ (test-assert
+ "parse-inlines, emphasis and strong emphasis can be nested inside strong\nemphasis"
+ (match (parse-inlines
+ (make-paragraph "__foo _bar_ baz__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo "))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis and strong emphasis can be nested inside strong
emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:841
source:
+ (test-assert
+ "parse-inlines, emphasis and strong emphasis can be nested inside strong\nemphasis"
+ (match (parse-inlines
+ (make-paragraph "__foo __bar__ baz__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo "))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis and strong emphasis can be nested inside strong
emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:855
source:
+ (test-assert
+ "parse-inlines, emphasis and strong emphasis can be nested inside strong\nemphasis"
+ (match (parse-inlines
+ (make-paragraph "____foo__ bar__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo")))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis and strong emphasis can be nested inside strong
emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:868
source:
+ (test-assert
+ "parse-inlines, emphasis and strong emphasis can be nested inside strong\nemphasis"
+ (match (parse-inlines
+ (make-paragraph "**foo **bar****"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data1 "foo "))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis and strong emphasis can be nested inside strong
emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:881
source:
+ (test-assert
+ "parse-inlines, emphasis and strong emphasis can be nested inside strong\nemphasis"
+ (match (parse-inlines
+ (make-paragraph "**foo *bar* baz**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " baz")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "bar"))
+ ('text text-data3 "foo "))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, internal delimiters can close emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:895
source:
+ (test-assert
+ "parse-inlines, internal delimiters can close emphasis"
+ (match (parse-inlines
+ (make-paragraph "**foo*bar*baz**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "**")
+ ('text text-data1 "baz")
+ ('emphasis
+ emphasis-data1
+ ('text text-data2 "bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data3 "foo")))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, delimiters with spaces cannot close emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:909
source:
+ (test-assert
+ "parse-inlines, delimiters with spaces cannot close emphasis"
+ (match (parse-inlines (make-paragraph "***foo* bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data2 "foo")))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, delimiters with spaces cannot close emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:921
source:
+ (test-assert
+ "parse-inlines, delimiters with spaces cannot close emphasis"
+ (match (parse-inlines (make-paragraph "**foo *bar***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('text text-data1 "bar"))
+ ('text text-data2 "foo "))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis indefinite levels of nesting are possible
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:933
source:
+ (test-assert
+ "parse-inlines, emphasis indefinite levels of nesting are possible"
+ (match (parse-inlines
+ (make-paragraph "**foo *bar **baz**\nbim* bop**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data5 " bop")
+ ('emphasis
+ emphasis-data2
+ ('text text-data4 "bim")
+ ('softbreak break-data)
+ ('emphasis
+ emphasis-data3
+ ('text text-data3 "baz"))
+ ('text text-data1 "bar "))
+ ('text text-data2 "foo "))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)
+ (strong? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis indefinite levels of nesting are possible
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:951
source:
+ (test-assert
+ "parse-inlines, emphasis indefinite levels of nesting are possible"
+ (match (parse-inlines
+ (make-paragraph "**foo [*bar*](/url)**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('link
+ link-data
+ ('emphasis
+ emphasis-data2
+ ('text text-data1 "bar")))
+ ('text text-data2 "foo "))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)
+ (destination=? link-data "/url")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, there can be no empty emphasis or strong emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:965
source:
+ (test-assert
+ "parse-inlines, there can be no empty emphasis or strong emphasis"
+ (match (parse-inlines
+ (make-paragraph "__ is not an empty emphasis"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 " is not an empty emphasis")
+ ('text text-data2 "__")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, there can be no empty emphasis or strong emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:974
source:
+ (test-assert
+ "parse-inlines, there can be no empty emphasis or strong emphasis"
+ (match (parse-inlines
+ (make-paragraph
+ "____ is not an empty strong emphasis"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text
+ text-data1
+ " is not an empty strong emphasis")
+ ('text text-data2 "____")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:983
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo ***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "***")
+ ('text text-data2 "foo ")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:992
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo *\\**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "*"))
+ ('text text-data2 "foo ")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1002
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo *_*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "_"))
+ ('text text-data2 "foo ")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1012
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo *****"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*****")
+ ('text text-data2 "foo ")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1021
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo **\\***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "*"))
+ ('text text-data2 "foo ")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1031
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11"
+ (match (parse-inlines (make-paragraph "foo **_**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "_"))
+ ('text text-data2 "foo ")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1041
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "**foo*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "*")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1052
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "*foo**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "*")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1063
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "***foo**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "*")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1074
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "****foo*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "***")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1085
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "**foo***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "*")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 11 excess literal * characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1096
source:
+ (test-assert
+ "parse-inlines, emphasis rule 11 excess literal * characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "*foo****"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "***")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1107
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo ___"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "___")
+ ('text text-data2 "foo ")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1116
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo _\\__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "_"))
+ ('text text-data2 "foo ")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1126
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo _*_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "*"))
+ ('text text-data2 "foo ")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1136
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo _____"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_____")
+ ('text text-data2 "foo ")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1145
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo __\\___"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "_"))
+ ('text text-data2 "foo ")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1155
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12"
+ (match (parse-inlines (make-paragraph "foo __*__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis emphasis-data ('text text-data1 "*"))
+ ('text text-data2 "foo ")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1165
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "__foo_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "_")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1176
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "_foo__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "_")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1187
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "___foo__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "_")))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1198
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "____foo_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))
+ ('text text-data2 "___")))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1209
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "__foo___"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "_")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (strong? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 12 excess literal _ characters
will appear outside of the emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1220
source:
+ (test-assert
+ "parse-inlines, emphasis rule 12 excess literal _ characters\nwill appear outside of the emphasis"
+ (match (parse-inlines (make-paragraph "_foo____"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data2 "___")
+ ('emphasis
+ emphasis-data
+ ('text text-data1 "foo"))))
+ (em? emphasis-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 13 can be applied to arbitrarily
long sequences of delimiters
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1231
source:
+ (test-assert
+ "parse-inlines, emphasis rule 13 can be applied to arbitrarily\nlong sequences of delimiters"
+ (match (parse-inlines
+ (make-paragraph "******foo******"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('emphasis
+ emphasis-data3
+ ('text text-data1 "foo"))))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)
+ (strong? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 14
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1245
source:
+ (test-assert
+ "parse-inlines, emphasis rule 14"
+ (match (parse-inlines (make-paragraph "***foo***"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('text text-data1 "foo")))))
+ (and (strong? emphasis-data1)
+ (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 14
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1256
source:
+ (test-assert
+ "parse-inlines, emphasis rule 14"
+ (match (parse-inlines (make-paragraph "_____foo_____"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('emphasis
+ emphasis-data2
+ ('emphasis
+ emphasis-data3
+ ('text text-data1 "foo"))))))
+ (and (strong? emphasis-data1)
+ (strong? emphasis-data2)
+ (em? emphasis-data3)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 15
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1269
source:
+ (test-assert
+ "parse-inlines, emphasis rule 15"
+ (match (parse-inlines
+ (make-paragraph "*foo _bar* baz_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "_")
+ ('text text-data2 " baz")
+ ('emphasis
+ emphasis-data1
+ ('text text-data3 "bar")
+ ('text text-data4 "_")
+ ('text text-data5 "foo "))))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 15
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1282
source:
+ (test-assert
+ "parse-inlines, emphasis rule 15"
+ (match (parse-inlines (make-paragraph "**foo*bar**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data1 "*")
+ ('emphasis
+ emphasis-data1
+ ('text text-data2 "bar")
+ ('emphasis
+ emphasis-data2
+ ('text text-data3 "foo")))))
+ (and (em? emphasis-data1) (em? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 15
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1295
source:
+ (test-assert
+ "parse-inlines, emphasis rule 15"
+ (match (parse-inlines
+ (make-paragraph "*foo __bar *baz bim__ bam*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 " bam")
+ ('emphasis
+ emphasis-data2
+ ('text text-data3 "baz bim")
+ ('text text-data4 "*")
+ ('text text-data5 "bar "))
+ ('text text-data2 "foo "))))
+ (and (em? emphasis-data1)
+ (strong? emphasis-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 16
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1310
source:
+ (test-assert
+ "parse-inlines, emphasis rule 16"
+ (match (parse-inlines
+ (make-paragraph "**foo **bar baz**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "bar baz"))
+ ('text text-data2 "foo ")
+ ('text text-data3 "**")))
+ (strong? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 16
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1321
source:
+ (test-assert
+ "parse-inlines, emphasis rule 16"
+ (match (parse-inlines (make-paragraph "*foo *bar baz*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "bar baz"))
+ ('text text-data2 "foo ")
+ ('text text-data3 "*")))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1332
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines (make-paragraph "*[bar*](/url)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "*")
+ ('text text-data2 "bar"))
+ ('text text-data "*")))
+ (destination=? link-data "/url"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1343
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph "_foo [bar_](/url)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "_")
+ ('text text-data2 "bar"))
+ ('text text-data "foo ")
+ ('text text-data "_")))
+ (destination=? link-data "/url"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1356
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph
+ "*![](\"foo\" "\\"*\\"/")
"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "bar baz"))
+ ('text text-data2 "foo ")
+ ('text text-data3 "*")))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "\"/>") (emphasis ((type . em)) (text ((closed . #t)) "img src=\"foo\" title=\"") (text ((closed . #t)) "<")))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1367
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph "**"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "bar baz"))
+ ('text text-data2 "foo ")
+ ('text text-data3 "*")))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "\">") (emphasis ((type . strong)) (text ((closed . #t)) "a href=\"") (text ((closed . #t)) "<")))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1378
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph "__"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('text text-data1 "bar baz"))
+ ('text text-data2 "foo ")
+ ('text text-data3 "*")))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "\">") (emphasis ((type . strong)) (text ((closed . #t)) "a href=\"") (text ((closed . #t)) "<")))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1389
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines (make-paragraph "*a `*`*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('code-span code-data1 "*")
+ ('text text-data1 "a "))))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1399
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines (make-paragraph "_a `_`_"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data1
+ ('code-span code-data1 "_")
+ ('text text-data1 "a "))))
+ (em? emphasis-data1))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1409
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph "**a"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data1 "http://foo.bar/?q**"))
+ ('text text-data "a")
+ ('text text-data "**")))
+ (destination=? link-data "http://foo.bar/?q**"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, emphasis rule 17
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/emphasis.scm:1420
source:
+ (test-assert
+ "parse-inlines, emphasis rule 17"
+ (match (parse-inlines
+ (make-paragraph "__a"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data1 "http://foo.bar/?q=__"))
+ ('text text-data "a")
+ ('text text-data "__")))
+ (destination=? link-data "http://foo.bar/?q=__"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
SKIP: tests/inlines/hardbreak
=============================
test-name: parse-inlines, A line break that is preceded by two or more spaces
and does not occur at the end of a block is parsed as a hard line break
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:32
source:
+ (test-assert
+ "parse-inlines, A line break that is preceded by two or more spaces\nand does not occur at the end of a block is parsed as a hard line break"
+ (match (parse-inlines (make-paragraph "foo \nbaz"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "baz")
+ ('hardbreak break-data)
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, a backslash before the line ending may be used
instead of two spaces
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:43
source:
+ (test-assert
+ "parse-inlines, a backslash before the line ending may be used\ninstead of two spaces"
+ (match (parse-inlines (make-paragraph "foo\\\nbaz"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "baz")
+ ('hardbreak break-data)
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, hardbreak more than two spaces can be used
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:54
source:
+ (test-assert
+ "parse-inlines, hardbreak more than two spaces can be used"
+ (match (parse-inlines
+ (make-paragraph "foo \nbaz"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "baz")
+ ('hardbreak break-data)
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, hardbreak leading spaces at the beginning of the next
are ignored
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:64
source:
+ (test-assert
+ "parse-inlines, hardbreak leading spaces at the beginning of the next\nare ignored"
+ (match (parse-inlines
+ (make-paragraph "foo \n bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "bar")
+ ('hardbreak break-data)
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, hardbreak leading spaces at the beginning of the next
are ignored
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:75
source:
+ (test-assert
+ "parse-inlines, hardbreak leading spaces at the beginning of the next\nare ignored"
+ (match (parse-inlines
+ (make-paragraph "foo\\\n bar"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "bar")
+ ('hardbreak break-data)
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, line breaks can occur inside emphasis, links, and other
constructs that allow inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:86
source:
+ (test-assert
+ "parse-inlines, line breaks can occur inside emphasis, links, and other\nconstructs that allow inline content"
+ (match (parse-inlines (make-paragraph "*foo \nbar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "bar")
+ ('hardbreak break-data)
+ ('text text-data "foo"))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, line breaks can occur inside emphasis, links, and other
constructs that allow inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:98
source:
+ (test-assert
+ "parse-inlines, line breaks can occur inside emphasis, links, and other\nconstructs that allow inline content"
+ (match (parse-inlines (make-paragraph "*foo\\\nbar*"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('emphasis
+ emphasis-data
+ ('text text-data "bar")
+ ('hardbreak break-data)
+ ('text text-data "foo"))))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, line breaks do not occur inside code spans
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:110
source:
+ (test-assert
+ "parse-inlines, line breaks do not occur inside code spans"
+ (match (parse-inlines (make-paragraph "`code \nspan`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "code span")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, line breaks do not occur inside code spans
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:118
source:
+ (test-assert
+ "parse-inlines, line breaks do not occur inside code spans"
+ (match (parse-inlines (make-paragraph "`code\\\nspan`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "code\\ span")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, line breaks do not occur inside html tags
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:127
source:
+ (test-assert
+ "parse-inlines, line breaks do not occur inside html tags"
+ (match (parse-inlines
+ (make-paragraph ""))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "code span")))
+ #t)
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "bar\">") (hardbreak ((closed . #t))) (text ((closed . #t)) "a href=\"foo") (text ((closed . #t)) "<"))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, line breaks do not occur inside html tags
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:135
source:
+ (test-assert
+ "parse-inlines, line breaks do not occur inside html tags"
+ (match (parse-inlines
+ (make-paragraph ""))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "code\\ span")))
+ #t)
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "bar\">") (hardbreak ((closed . #t))) (text ((closed . #t)) "a href=\"foo") (text ((closed . #t)) "<"))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, hard line breaks do not work at the end of a paragraph or other
block element
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:143
source:
+ (test-assert
+ "parse-inlines, hard line breaks do not work at the end of a paragraph or other\nblock element"
+ (match (parse-inlines (make-paragraph "foo\\"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "\\")
+ ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, hard line breaks do not work at the end of a paragraph or other
block element
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/hardbreak.scm:153
source:
+ (test-assert
+ "parse-inlines, hard line breaks do not work at the end of a paragraph or other\nblock element"
+ (match (parse-inlines (make-paragraph "foo "))
+ (('document
+ doc-data
+ ('paragraph para-data ('text text-data "foo")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
SKIP: tests/inlines/links
=========================
test-name: parse-inlines, simple inline link
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:37
source:
+ (test-assert
+ "parse-inlines, simple inline link"
+ (match (parse-inlines
+ (make-paragraph "[link](/uri \"title\")"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link title may be omitted
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:47
source:
+ (test-assert
+ "parse-inlines, link title may be omitted"
+ (match (parse-inlines (make-paragraph "[link](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link both the title and the destination may be omitted
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:57
source:
+ (test-assert
+ "parse-inlines, link both the title and the destination may be omitted"
+ (match (parse-inlines (make-paragraph "[link]()"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link both the title and the destination may be omitted
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:67
source:
+ (test-assert
+ "parse-inlines, link both the title and the destination may be omitted"
+ (match (parse-inlines (make-paragraph "[link](<>)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link the destination cannot contain spaces, even if enclosed in
pointy brackets
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:77
source:
+ (test-assert
+ "parse-inlines, link the destination cannot contain spaces, even if enclosed in\npointy brackets"
+ (match (parse-inlines
+ (make-paragraph "[link](/my uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "link](/my uri)")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link the destination cannot contain spaces, even if enclosed in
pointy brackets
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:87
source:
+ (test-assert
+ "parse-inlines, link the destination cannot contain spaces, even if enclosed in\npointy brackets"
+ (match (parse-inlines
+ (make-paragraph "[link]()"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "/my uri>)")
+ ('text text-data "<")
+ ('text text-data "link](")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link the destination cannot contain line breaks, even if enclosed in
pointy brackets
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:99
source:
+ (test-assert
+ "parse-inlines, link the destination cannot contain line breaks, even if enclosed in\npointy brackets"
+ (match (parse-inlines
+ (make-paragraph "[link](foo\nbar)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "bar)")
+ ('softbreak break-data)
+ ('text text-data "link](foo")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link the destination cannot contain line breaks, even if enclosed in
pointy brackets
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:111
source:
+ (test-assert
+ "parse-inlines, link the destination cannot contain line breaks, even if enclosed in\npointy brackets"
+ (match (parse-inlines
+ (make-paragraph "[link]()"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "bar>)")
+ ('softbreak break-data)
+ ('text text-data "foo")
+ ('text text-data "<")
+ ('text text-data "link](")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link parentheses inside the link destination may be escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:125
source:
+ (test-assert
+ "parse-inlines, link parentheses inside the link destination may be escaped"
+ (match (parse-inlines
+ (make-paragraph "[link](\\(foo\\))"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "(foo)")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link one level of balanced parentheses is allowed without escaping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:135
source:
+ (test-assert
+ "parse-inlines, link one level of balanced parentheses is allowed without escaping"
+ (match (parse-inlines
+ (make-paragraph "[link]((foo)and(bar))"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "(foo)and(bar)")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link if you have parentheses within parentheses, you need to
escape or use the <...> form
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:145
source:
+ (test-assert
+ "parse-inlines, link if you have parentheses within parentheses, you need to\nescape or use the <...> form"
+ (match (parse-inlines
+ (make-paragraph "[link](foo(and(bar)))"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "link](foo(and(bar)))")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link if you have parentheses within parentheses, you need to
escape or use the <...> form
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:155
source:
+ (test-assert
+ "parse-inlines, link if you have parentheses within parentheses, you need to\nescape or use the <...> form"
+ (match (parse-inlines
+ (make-paragraph "[link](foo(and\\(bar\\)))"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "foo(and(bar))")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link if you have parentheses within parentheses, you need to
escape or use the <...> form
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:166
source:
+ (test-assert
+ "parse-inlines, link if you have parentheses within parentheses, you need to\nescape or use the <...> form"
+ (match (parse-inlines
+ (make-paragraph "[link]()"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "foo(and(bar))")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link parentheses and other symbols can also be escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:177
source:
+ (test-assert
+ "parse-inlines, link parentheses and other symbols can also be escaped"
+ (match (parse-inlines
+ (make-paragraph "[link](foo\\)\\:)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "foo):")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link can contain fragment identifiers and queries
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:187
source:
+ (test-assert
+ "parse-inlines, link can contain fragment identifiers and queries"
+ (match (parse-inlines
+ (make-paragraph "[link](#fragment)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "#fragment")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link can contain fragment identifiers and queries
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:197
source:
+ (test-assert
+ "parse-inlines, link can contain fragment identifiers and queries"
+ (match (parse-inlines
+ (make-paragraph
+ "[link](http://example.com#fragment)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=?
+ link-data
+ "http://example.com#fragment")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link can contain fragment identifiers and queries
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:207
source:
+ (test-assert
+ "parse-inlines, link can contain fragment identifiers and queries"
+ (match (parse-inlines
+ (make-paragraph
+ "[link](http://example.com?foo=3#frag)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=?
+ link-data
+ "http://example.com?foo=3#frag")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link backslash before a non-escapable character is just
a backslash
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:217
source:
+ (test-assert
+ "parse-inlines, link backslash before a non-escapable character is just\na backslash"
+ (match (parse-inlines
+ (make-paragraph "[link](foo\\bar)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "foo\\bar")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link url-escaping should be left alone and entity and
numerical character references in the destination will be parsed into the corresponding
Unicode code points
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:228
source:
+ (test-assert
+ "parse-inlines, link url-escaping should be left alone and entity and\nnumerical character references in the destination will be parsed into the corresponding\nUnicode code points"
+ (match (parse-inlines
+ (make-paragraph "[link](foo%20bä)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "foo%20bä")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link titles can often be parsed as destinations, if you
try to omit the destination and keep the title, you'll get unexpected results
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:240
source:
+ (test-assert
+ "parse-inlines, link titles can often be parsed as destinations, if you\ntry to omit the destination and keep the title, you'll get unexpected results"
+ (match (parse-inlines
+ (make-paragraph "[link](\"title\")"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "\"title\"")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link titles may be in double quotes
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:251
source:
+ (test-assert
+ "parse-inlines, link titles may be in double quotes"
+ (match (parse-inlines
+ (make-paragraph "[link](/url \"title\")"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link titles may be in single quotes
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:261
source:
+ (test-assert
+ "parse-inlines, link titles may be in single quotes"
+ (match (parse-inlines
+ (make-paragraph "[link](/url 'title')"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link titles may be in parentheses
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:271
source:
+ (test-assert
+ "parse-inlines, link titles may be in parentheses"
+ (match (parse-inlines
+ (make-paragraph "[link](/url (title))"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link backslash escapes and entity and numeric character
references may be used in titles
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:281
source:
+ (test-assert
+ "parse-inlines, link backslash escapes and entity and numeric character\nreferences may be used in titles"
+ (match (parse-inlines
+ (make-paragraph
+ "[link](/url \"title \\\""\")"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title \"\"")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link nested balanced quotes are not allowed without escaping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:292
source:
+ (test-assert
+ "parse-inlines, link nested balanced quotes are not allowed without escaping"
+ (match (parse-inlines
+ (make-paragraph
+ "[link](/url \"title \"and\" title\")"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text
+ text-data
+ "link](/url \"title \"and\" title\")")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link but it is easy to work around this by using a different quote type
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:301
source:
+ (test-assert
+ "parse-inlines, link but it is easy to work around this by using a different quote type"
+ (match (parse-inlines
+ (make-paragraph
+ "[link](/url 'title \"and\" title')"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title \"and\" title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link whitespace is allowed around the destination and title
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:311
source:
+ (test-assert
+ "parse-inlines, link whitespace is allowed around the destination and title"
+ (match (parse-inlines
+ (make-paragraph "[link]( /url\n \"title\" )"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "link"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link but it is not allowed between the link text and
the following parenthesis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:321
source:
+ (test-assert
+ "parse-inlines, link but it is not allowed between the link text and\nthe following parenthesis"
+ (match (parse-inlines (make-paragraph "[link] (/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "link] (/uri)")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:331
source:
+ (test-assert
+ "parse-inlines, link text may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-paragraph "[link [foo [bar]]](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar]]")
+ ('text text-data "[")
+ ('text text-data "foo ")
+ ('text text-data "[")
+ ('text text-data "link "))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:346
source:
+ (test-assert
+ "parse-inlines, link text may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-paragraph "[link] bar](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "link] bar](/uri)")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:356
source:
+ (test-assert
+ "parse-inlines, link text may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-paragraph "[link [bar](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "link ")
+ ('text text-data "[")))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:369
source:
+ (test-assert
+ "parse-inlines, link text may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-paragraph "[link \\[bar](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar")
+ ('text text-data "[")
+ ('text text-data "link "))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:388
source:
+ (test-assert
+ "parse-inlines, link text may contain inline content"
+ (match (parse-inlines
+ (make-paragraph "[link *foo **bar** `#`*](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('emphasis
+ em-data1
+ ('code-span code-data "#")
+ ('text text-data " ")
+ (emphasis em-data2 ('text text-data "bar"))
+ ('text text-data "foo "))
+ ('text text-data "link "))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)
+ (em? em-data1)
+ (strong? em-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text may contain inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:406
source:
+ (test-assert
+ "parse-inlines, link text may contain inline content"
+ (match (parse-inlines
+ (make-paragraph "[](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('image image-data ('text text-data "moon")))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)
+ (destination=? image-data "moon.jpg")
+ (title=? image-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, links may not contain other links at any level of nesting
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:419
source:
+ (test-assert
+ "parse-inlines, links may not contain other links at any level of nesting"
+ (match (parse-inlines
+ (make-paragraph "[foo [bar](/uri)](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "](/uri)")
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "foo ")
+ ('text text-data "[")))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, links may not contain other links at any level of nesting
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:432
source:
+ (test-assert
+ "parse-inlines, links may not contain other links at any level of nesting"
+ (match (parse-inlines
+ (make-paragraph
+ "[foo *[bar [baz](/uri)](/uri)*](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "](/uri)")
+ ('emphasis
+ em-data
+ ('text text-data "](/uri)")
+ ('link link-data ('text text-data "baz"))
+ ('text text-data "bar ")
+ ('text text-data "["))
+ ('text text-data "foo ")
+ ('text text-data "[")))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)
+ (em? em-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, links may not contain other links at any level of nesting
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:450
source:
+ (test-assert
+ "parse-inlines, links may not contain other links at any level of nesting"
+ (match (parse-inlines
+ (make-paragraph "](uri2)](uri3)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('image
+ image-data
+ ('text text-data "](uri2)")
+ ('link link-data ('text text-data "foo"))
+ ('text text-data "["))))
+ (and (destination=? link-data "uri1")
+ (title=? link-data #f)
+ (destination=? image-data "uri3")
+ (title=? image-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text have higher precedence over emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:465
source:
+ (test-assert
+ "parse-inlines, link text have higher precedence over emphasis"
+ (match (parse-inlines (make-paragraph "*[foo*](/uri)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "*")
+ ('text text-data "foo"))
+ ('text text-data "*")))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link text have higher precedence over emphasis
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:477
source:
+ (test-assert
+ "parse-inlines, link text have higher precedence over emphasis"
+ (match (parse-inlines
+ (make-paragraph "[foo *bar](baz*)"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar")
+ ('text text-data "*")
+ ('text text-data "foo "))))
+ (and (destination=? link-data "baz*")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, brackets that aren't part of links do not take
precedence
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:489
source:
+ (test-assert
+ "parse-inlines, brackets that aren't part of links do not take\nprecedence"
+ (match (parse-inlines
+ (make-paragraph "*foo [bar* baz]"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data " baz]")
+ ('emphasis
+ em-data
+ ('text text-data "bar")
+ ('text text-data "[")
+ ('text text-data "foo "))))
+ (em? em-data))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link these cases illustrate the precedence of HTML,
tags, code spans, and autolinks over link grouping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:504
source:
+ (test-assert
+ "parse-inlines, link these cases illustrate the precedence of HTML,\ntags, code spans, and autolinks over link grouping"
+ (match (parse-inlines
+ (make-paragraph "[foo "))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data " baz]")
+ ('emphasis
+ em-data
+ ('text text-data "bar")
+ ('text text-data "[")
+ ('text text-data "foo "))))
+ (em? em-data))
+ (x (pk 'fail x #f))))
;;; (fail (document ((closed . #f)) (paragraph ((closed . #f)) (text ((closed . #t)) "\">") (link ((destination . "baz") (title . #f)) (text ((closed . #t)) "bar attr=\"") (text ((closed . #t)) "<") (text ((closed . #t)) "foo ")))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, link these cases illustrate the precedence of HTML,
tags, code spans, and autolinks over link grouping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:517
source:
+ (test-assert
+ "parse-inlines, link these cases illustrate the precedence of HTML,\ntags, code spans, and autolinks over link grouping"
+ (match (parse-inlines (make-paragraph "[foo`](/uri)`"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "](/uri)")
+ ('text text-data "foo")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, link these cases illustrate the precedence of HTML,
tags, code spans, and autolinks over link grouping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:528
source:
+ (test-assert
+ "parse-inlines, link these cases illustrate the precedence of HTML,\ntags, code spans, and autolinks over link grouping"
+ (match (parse-inlines
+ (make-paragraph
+ "[foo"))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text
+ text-data
+ "http://example.com/?search=](uri)"))
+ ('text text-data "foo")
+ ('text text-data "[")))
+ (destination=?
+ link-data
+ "http://example.com/?search=](uri)"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link simple
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:549
source:
+ (test-assert
+ "parse-inlines, full reference link simple"
+ (match (parse-inlines
+ (make-document
+ "[foo][bar]"
+ '(("bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:560
source:
+ (test-assert
+ "parse-inlines, full reference link may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-document
+ "[link [foo [bar]]][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar]]")
+ ('text text-data "[")
+ ('text text-data "foo ")
+ ('text text-data "[")
+ ('text text-data "link "))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link may contain balanced brackets, but not
unbalanced ones, unless they are escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:575
source:
+ (test-assert
+ "parse-inlines, full reference link may contain balanced brackets, but not\nunbalanced ones, unless they are escaped"
+ (match (parse-inlines
+ (make-document
+ "[link \\[bar][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar")
+ ('text text-data "[")
+ ('text text-data "link "))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text may contain inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:588
source:
+ (test-assert
+ "parse-inlines, full reference link text may contain inline content"
+ (match (parse-inlines
+ (make-document
+ "[link *foo **bar** `#`*][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('emphasis
+ em-data1
+ ('code-span code-data "#")
+ ('text text-data " ")
+ ('emphasis em-data2 ('text text-data "bar"))
+ ('text text-data "foo "))
+ ('text text-data "link "))))
+ (and (destination=? link-data "/uri")
+ (em? em-data1)
+ (strong? em-data2)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text may contain inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:606
source:
+ (test-assert
+ "parse-inlines, full reference link text may contain inline content"
+ (match (parse-inlines
+ (make-document
+ "[][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('image image-data ('text text-data "moon")))))
+ (and (destination=? link-data "/uri")
+ (title=? link-data #f)
+ (destination=? image-data "moon.jpg")
+ (title=? image-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text may not contain other links,
at any level of nesting
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:620
source:
+ (test-assert
+ "parse-inlines, full reference link text may not contain other links,\nat any level of nesting"
+ (match (parse-inlines
+ (make-document
+ "[foo [bar](/uri)][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data2 ('text text-data "ref"))
+ ('text text-data "]")
+ ('link link-data1 ('text text-data "bar"))
+ ('text text-data "foo ")
+ ('text text-data "[")))
+ (and (destination=? link-data1 "/uri")
+ (destination=? link-data2 "/uri")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text may not contain other links,
at any level of nesting
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:637
source:
+ (test-assert
+ "parse-inlines, full reference link text may not contain other links,\nat any level of nesting"
+ (match (parse-inlines
+ (make-document
+ "[foo *bar [baz][ref]*][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data2 ('text text-data "ref"))
+ ('text text-data "]")
+ ('emphasis
+ em-data
+ ('link link-data ('text text-data "baz"))
+ ('text text-data "bar "))
+ ('text text-data "foo ")
+ ('text text-data "[")))
+ (and (destination=? link-data "/uri")
+ (em? em-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text precedence over emphasis grouping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:656
source:
+ (test-assert
+ "parse-inlines, full reference link text precedence over emphasis grouping"
+ (match (parse-inlines
+ (make-document
+ "*[foo*][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "*")
+ ('text text-data "foo"))
+ ('text text-data "*")))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text precedence over emphasis grouping
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:668
source:
+ (test-assert
+ "parse-inlines, full reference link text precedence over emphasis grouping"
+ (match (parse-inlines
+ (make-document
+ "[foo *bar][ref]"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar")
+ ('text text-data "*")
+ ('text text-data "foo "))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text precedence lower than HTML tags,
code spans, and autolinks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:681
source:
+ (test-assert
+ "parse-inlines, full reference link text precedence lower than HTML tags,\ncode spans, and autolinks"
+ (match (parse-inlines
+ (make-document
+ "[foo "
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "bar")
+ ('text text-data "*")
+ ('text text-data "foo "))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
;;; (fail (document ((link-references ("ref" "/uri" #f))) (paragraph ((closed . #f)) (text ((closed . #t)) "\">") (link ((destination . "/uri") (title . #f)) (text ((closed . #t)) "bar attr=\"") (text ((closed . #t)) "<") (text ((closed . #t)) "foo ")))) #f)
actual-value: #f
result: XFAIL
test-name: parse-inlines, full reference link text precedence lower than HTML tags,
code spans, and autolinks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:694
source:
+ (test-assert
+ "parse-inlines, full reference link text precedence lower than HTML tags,\ncode spans, and autolinks"
+ (match (parse-inlines
+ (make-document
+ "[foo`][ref]`"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('code-span code-data "][ref]")
+ ('text text-data "foo")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link text precedence lower than HTML tags,
code spans, and autolinks
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:706
source:
+ (test-assert
+ "parse-inlines, full reference link text precedence lower than HTML tags,\ncode spans, and autolinks"
+ (match (parse-inlines
+ (make-document
+ "[foo"
+ '(("ref" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text
+ text-data
+ "http://example.com/?search=][ref]"))
+ ('text text-data "foo")
+ ('text text-data "[")))
+ (and (destination=?
+ link-data
+ "http://example.com/?search=][ref]")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link matching is case-insensitive
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:719
source:
+ (test-assert
+ "parse-inlines, full reference link matching is case-insensitive"
+ (match (parse-inlines
+ (make-document "[foo][BaR]" '(("bar" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link unicode case fold is used
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:730
source:
+ (test-assert
+ "parse-inlines, full reference link unicode case fold is used"
+ (match (parse-inlines
+ (make-document
+ "[Толпой][ТОЛПОЙ] is a Russian word."
+ '(("толпой" "/url" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data " is a Russian word.")
+ ('link link-data ('text text-data "Толпой"))))
+ (destination=? link-data "/url"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link no whitespace is allowed between the link text
and the link label
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:741
source:
+ (test-assert
+ "parse-inlines, full reference link no whitespace is allowed between the link text\nand the link label"
+ (match (parse-inlines
+ (make-document
+ "[foo] [bar]"
+ '(("bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "foo] ")
+ ('text text-data "[")))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link no whitespace is allowed between the link text
and the link label
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:755
source:
+ (test-assert
+ "parse-inlines, full reference link no whitespace is allowed between the link text\nand the link label"
+ (match (parse-inlines
+ (make-document
+ "[foo]\n[bar]"
+ '(("bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))
+ ('softbreak break-data)
+ ('text text-data "foo]")
+ ('text text-data "[")))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link when there are multiple matching link
reference definitions, the first is used
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:770
source:
+ (test-assert
+ "parse-inlines, full reference link when there are multiple matching link\nreference definitions, the first is used"
+ (match (parse-inlines
+ (make-document
+ "[bar][foo]"
+ '(("foo" "/url1" #f) ("foo" "/url2" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))))
+ (destination=? link-data "/url1"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link matching is performed on normalized strings,
not parsed inline content
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:782
source:
+ (test-assert
+ "parse-inlines, full reference link matching is performed on normalized strings,\nnot parsed inline content"
+ (match (parse-inlines
+ (make-document
+ "[bar][foo\\!]"
+ '(("foo!" "/url" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "]")
+ ('text text-data "!")
+ ('text text-data "foo")
+ ('text text-data "[")
+ ('text text-data "bar]")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, full reference link labels cannot contain brackets, unless
they are backslash-escaped
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:797
source:
+ (test-assert
+ "parse-inlines, full reference link labels cannot contain brackets, unless\nthey are backslash-escaped"
+ (match (parse-inlines
+ (make-document
+ "[foo][ref\\[]"
+ '(("ref\\[" "/uri" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (destination=? link-data "/uri"))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, simple collapsed reference link
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:810
source:
+ (test-assert
+ "parse-inlines, simple collapsed reference link"
+ (match (parse-inlines
+ (make-document
+ "[foo][]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, simple collapsed reference link
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:821
source:
+ (test-assert
+ "parse-inlines, simple collapsed reference link"
+ (match (parse-inlines
+ (make-document
+ "[*foo* bar][]"
+ '(("*foo* bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data " bar")
+ ('emphasis em-data ('text text-data "foo")))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")
+ (em? em-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, collapsed reference link labels are case-insensitive
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:835
source:
+ (test-assert
+ "parse-inlines, collapsed reference link labels are case-insensitive"
+ (match (parse-inlines
+ (make-document
+ "[Foo][]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "Foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, collapsed reference link, whitespace is not allowed between
the two sets of brackets
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:846
source:
+ (test-assert
+ "parse-inlines, collapsed reference link, whitespace is not allowed between\nthe two sets of brackets"
+ (match (parse-inlines
+ (make-document
+ "[foo] \n[]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "]")
+ ('text text-data "[")
+ ('softbreak break-data)
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link simple
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:863
source:
+ (test-assert
+ "parse-inlines, shortcut reference link simple"
+ (match (parse-inlines
+ (make-document
+ "[foo]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link simple
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:874
source:
+ (test-assert
+ "parse-inlines, shortcut reference link simple"
+ (match (parse-inlines
+ (make-document
+ "[*foo* bar]"
+ '(("*foo* bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data " bar")
+ ('emphasis em-data ('text text-data "foo")))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")
+ (em? em-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link simple
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:888
source:
+ (test-assert
+ "parse-inlines, shortcut reference link simple"
+ (match (parse-inlines
+ (make-document
+ "[[*foo* bar]]"
+ '(("*foo* bar" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "]")
+ ('link
+ link-data
+ ('text text-data " bar")
+ ('emphasis em-data ('text text-data "foo")))
+ ('text text-data "[")))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")
+ (em? em-data)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link simple
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:904
source:
+ (test-assert
+ "parse-inlines, shortcut reference link simple"
+ (match (parse-inlines
+ (make-document
+ "[[bar [foo]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))
+ ('text text-data "bar ")
+ ('text text-data "[")
+ ('text text-data "[")))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link labels are case-insensitive
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:918
source:
+ (test-assert
+ "parse-inlines, shortcut reference link labels are case-insensitive"
+ (match (parse-inlines
+ (make-document
+ "[Foo]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "Foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link a space after the link text should
be preserved
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:929
source:
+ (test-assert
+ "parse-inlines, shortcut reference link a space after the link text should\nbe preserved"
+ (match (parse-inlines
+ (make-document
+ "[foo] bar"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data " bar")
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url")
+ (title=? link-data "title")))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link backslash-escape the opening bracket
to avoid links
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:942
source:
+ (test-assert
+ "parse-inlines, shortcut reference link backslash-escape the opening bracket\nto avoid links"
+ (match (parse-inlines
+ (make-document
+ "\\[foo]"
+ '(("foo" "/url" "\"title\""))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('text text-data "foo]")
+ ('text text-data "[")))
+ #t)
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link note that this is a link,
because a link label ends with the first following closing bracket
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:953
source:
+ (test-assert
+ "parse-inlines, shortcut reference link note that this is a link,\nbecause a link label ends with the first following closing bracket"
+ (match (parse-inlines
+ (make-document "*[foo*]" '(("foo*" "/url" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link
+ link-data
+ ('text text-data "*")
+ ('text text-data "foo"))
+ ('text text-data "*")))
+ (and (destination=? link-data "/url")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link, full references take precedence
over shortcut references
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:967
source:
+ (test-assert
+ "parse-inlines, shortcut reference link, full references take precedence\nover shortcut references"
+ (match (parse-inlines
+ (make-document
+ "[foo][bar]"
+ '(("foo" "/url1" #f) ("bar" "/url2" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "foo"))))
+ (and (destination=? link-data "/url2")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link, in the following case [bar][baz]
is parsed as a reference, [foo] as normal text
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:980
source:
+ (test-assert
+ "parse-inlines, shortcut reference link, in the following case [bar][baz]\nis parsed as a reference, [foo] as normal text"
+ (match (parse-inlines
+ (make-document
+ "[foo][bar][baz]"
+ '(("baz" "/url" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "foo]")
+ ('text text-data "[")))
+ (and (destination=? link-data "/url")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link, here [foo][bar] is parsed as a reference
since [bar] is defined
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:994
source:
+ (test-assert
+ "parse-inlines, shortcut reference link, here [foo][bar] is parsed as a reference\nsince [bar] is defined"
+ (match (parse-inlines
+ (make-document
+ "[foo][bar][baz]"
+ '(("baz" "/url1" #f) ("bar" "/url2" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data2 ('text text-data "baz"))
+ ('link link-data1 ('text text-data "foo"))))
+ (and (destination=? link-data1 "/url2")
+ (title=? link-data1 #f)
+ (destination=? link-data2 "/url1")
+ (title=? link-data2 #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
test-name: parse-inlines, shortcut reference link, here [foo] is not parsed as a shortcut
reference, because it is followed by a link label (even though [bar] is not defined)
location: /tmp/guix-build-guile2.0-commonmark-0.1.2.drv-0/guile-commonmark-0.1.2/tests/inlines/links.scm:1011
source:
+ (test-assert
+ "parse-inlines, shortcut reference link, here [foo] is not parsed as a shortcut\nreference, because it is followed by a link label (even though [bar] is not defined)"
+ (match (parse-inlines
+ (make-document
+ "[foo][bar][baz]"
+ '(("baz" "/url1" #f) ("foo" "/url2" #f))))
+ (('document
+ doc-data
+ ('paragraph
+ para-data
+ ('link link-data ('text text-data "bar"))
+ ('text text-data "foo]")
+ ('text text-data "[")))
+ (and (destination=? link-data "/url1")
+ (title=? link-data #f)))
+ (x (pk 'fail x #f))))
actual-value: #t
result: PASS
command "make" "check" "-j" "16" failed with status 2