| Bram Moolenaar | 6cd1345 | 2015-12-03 16:54:53 +0100 | [diff] [blame] | 1 | " Tests for 'lispwords' settings being global-local |
| 2 | |
| 3 | set nocompatible viminfo+=nviminfo |
| 4 | |
| 5 | func Test_global_local_lispwords() |
| 6 | setglobal lispwords=foo,bar,baz |
| 7 | setlocal lispwords-=foo | setlocal lispwords+=quux |
| 8 | call assert_equal('foo,bar,baz', &g:lispwords) |
| 9 | call assert_equal('bar,baz,quux', &l:lispwords) |
| 10 | call assert_equal('bar,baz,quux', &lispwords) |
| 11 | |
| 12 | setlocal lispwords< |
| 13 | call assert_equal('foo,bar,baz', &g:lispwords) |
| 14 | call assert_equal('foo,bar,baz', &l:lispwords) |
| 15 | call assert_equal('foo,bar,baz', &lispwords) |
| 16 | endfunc |
| Bram Moolenaar | db51007 | 2017-09-28 21:52:17 +0200 | [diff] [blame] | 17 | |
| 18 | func Test_lisp_indent() |
| 19 | enew! |
| 20 | |
| 21 | call append(0, [ |
| 22 | \ '(defun html-file (base)', |
| 23 | \ '(format nil "~(~A~).html" base))', |
| 24 | \ '', |
| 25 | \ '(defmacro page (name title &rest body)', |
| 26 | \ '(let ((ti (gensym)))', |
| 27 | \ '`(with-open-file (*standard-output*', |
| 28 | \ '(html-file ,name)', |
| 29 | \ ':direction :output', |
| 30 | \ ':if-exists :supersede)', |
| 31 | \ '(let ((,ti ,title))', |
| 32 | \ '(as title ,ti)', |
| 33 | \ '(with center ', |
| 34 | \ '(as h2 (string-upcase ,ti)))', |
| 35 | \ '(brs 3)', |
| 36 | \ ',@body))))', |
| 37 | \ '', |
| 38 | \ ';;; Utilities for generating links', |
| 39 | \ '', |
| 40 | \ '(defmacro with-link (dest &rest body)', |
| 41 | \ '`(progn', |
| 42 | \ '(format t "<a href=\"~A\">" (html-file ,dest))', |
| 43 | \ ',@body', |
| 44 | \ '(princ "</a>")))' |
| 45 | \ ]) |
| 46 | set lisp |
| 47 | set lispwords& |
| 48 | let save_copt = &cpoptions |
| 49 | set cpoptions+=p |
| 50 | normal 1G=G |
| 51 | |
| 52 | call assert_equal([ |
| 53 | \ '(defun html-file (base)', |
| 54 | \ ' (format nil "~(~A~).html" base))', |
| 55 | \ '', |
| 56 | \ '(defmacro page (name title &rest body)', |
| 57 | \ ' (let ((ti (gensym)))', |
| 58 | \ ' `(with-open-file (*standard-output*', |
| 59 | \ ' (html-file ,name)', |
| 60 | \ ' :direction :output', |
| 61 | \ ' :if-exists :supersede)', |
| 62 | \ ' (let ((,ti ,title))', |
| 63 | \ ' (as title ,ti)', |
| 64 | \ ' (with center ', |
| 65 | \ ' (as h2 (string-upcase ,ti)))', |
| 66 | \ ' (brs 3)', |
| 67 | \ ' ,@body))))', |
| 68 | \ '', |
| 69 | \ ';;; Utilities for generating links', |
| 70 | \ '', |
| 71 | \ '(defmacro with-link (dest &rest body)', |
| 72 | \ ' `(progn', |
| 73 | \ ' (format t "<a href=\"~A\">" (html-file ,dest))', |
| 74 | \ ' ,@body', |
| 75 | \ ' (princ "</a>")))', |
| 76 | \ '' |
| 77 | \ ], getline(1, "$")) |
| 78 | |
| 79 | enew! |
| 80 | let &cpoptions=save_copt |
| 81 | endfunc |