mirror of
https://github.com/Orc/discount.git
synced 2026-09-25 04:10:00 +03:00
David Parsons
3aa4343255
which gives me the ability to do verbose and nonverbose test suite running (`VERBOSE=1 make test` is the traditional output now, and `make test` just gives pass/fail on each .t file)
28 lines
803 B
Raku
28 lines
803 B
Raku
. tests/functions.sh
|
|
|
|
title 'Reddit-style automatic links'
|
|
rc=0
|
|
|
|
try -fautolink 'single link' \
|
|
'http://www.pell.portland.or.us/~orc/Code/discount' \
|
|
'<p><a href="http://www.pell.portland.or.us/~orc/Code/discount">http://www.pell.portland.or.us/~orc/Code/discount</a></p>'
|
|
|
|
try -fautolink '[!](http://a.com "http://b.com")' \
|
|
'[!](http://a.com "http://b.com")' \
|
|
'<p><a href="http://a.com" title="http://b.com">!</a></p>'
|
|
|
|
try -fautolink 'link surrounded by text' \
|
|
'here http://it is?' \
|
|
'<p>here <a href="http://it">http://it</a> is?</p>'
|
|
|
|
try -fautolink 'naked @' '@' '<p>@</p>'
|
|
|
|
try -fautolink 'parenthesised (url)' \
|
|
'(http://here)' \
|
|
'<p>(<a href="http://here">http://here</a>)</p>'
|
|
|
|
try -fautolink 'token with trailing @' 'orc@' '<p>orc@</p>'
|
|
|
|
summary $0
|
|
exit $rc
|