badrihippo
/
guile-strickenmark
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add some link tests and fix link dest regexp

This commit is contained in:
Erik Edrosa 2016-06-07 13:39:38 -04:00
parent a68c2c42d7
commit 06bb39e9e5
3 changed files with 136 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile.am
View File

@ -28,7 +28,8 @@ TESTS = \
tests/inlines/emphasis.scm \
tests/inlines/backslash-escape.scm \
tests/inlines/softbreak.scm \
tests/inlines/hardbreak.scm
tests/inlines/hardbreak.scm \
tests/inlines/links.scm
TEST_EXTENSIONS = .scm

1
commonmark/common.scm
View File

@ -32,7 +32,6 @@
(define in-parens-no-space (string-append "\\((" regular-characters "|" escaped-characters "|\\\\)*\\)"))
(define link-destination (string-append "((" regular-characters "+|"
escaped-characters "|"
"\\\\|"
in-parens-no-space ")+)"))
(define link-title (string-append "((\"(" escaped-characters "|[^\"])*\"|"
"'(" escaped-characters "|[^'])*'))"))

134
tests/inlines/links.scm Normal file
View File

@ -0,0 +1,134 @@
;; Copyright (C) 2016 Erik Edrosa <erik.edrosa@gmail.com>
;;
;; This file is part of guile-commonmark
;;
;; guile-commonmark is free software: you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.
;;
;; guile-commonmark is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public License
;; along with guile-commonmark. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-inlines links)
#:use-module (srfi srfi-64)
#:use-module (ice-9 match)
#:use-module (commonmark inlines)
#:use-module (commonmark node))
(test-begin "inlines links")
(define (make-paragraph text)
(make-node 'document #f
(list (make-node 'paragraph #f
(list (make-node 'text #f (list text)))))))
(define (link-destination=? node-data destination)
(equal? (assq-ref node-data 'destination) destination))
(define (link-title=? node-data title)
(equal? (assq-ref node-data 'title) title))
(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 (link-destination=? link-data "/uri")
(link-title=? link-data "title")))
(x (pk 'fail x #f))))
(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 (link-destination=? link-data "/uri")
(link-title=? link-data #f)))
(x (pk 'fail x #f))))
(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 (link-destination=? link-data "")
(link-title=? link-data #f)))
(x (pk 'fail x #f))))
(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 (link-destination=? link-data "")
(link-title=? link-data #f)))
(x (pk 'fail x #f))))
(test-assert "parse-inlines, link the destination cannot contain spaces, even if enclosed in
pointy 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))))
(test-assert "parse-inlines, link the destination cannot contain spaces, even if enclosed in
pointy 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))))
(test-assert "parse-inlines, link the destination cannot contain line breaks, even if enclosed in
pointy 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))))
(test-assert "parse-inlines, link the destination cannot contain line breaks, even if enclosed in
pointy 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))))
(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 (link-destination=? link-data "\\(foo\\)")
(link-title=? link-data #f)))
(x (pk 'fail x #f))))
(test-end)
(exit (= (test-runner-fail-count (test-runner-current)) 0))