* riece-yank.el (riece-yank-strip-space): New function split from
[riece] / lisp / test / test-riece-yank.el
1 (require 'riece-yank)
2
3 (luna-define-class test-riece-yank (lunit-test-case))
4
5 (luna-define-method test-riece-yank-strip-space ((case test-riece-yank))
6   (lunit-assert
7    (equal
8     (riece-yank-strip-space "\
9   def a
10     0.times do
11       0.times do
12         p 1 # this line begins with a TAB
13       end
14     end
15   end
16
17 ")
18     "\
19 def a
20   0.times do
21     0.times do
22       p 1 # this line begins with a TAB
23     end
24   end
25 end")))