cgit.sxemacs.org Git - riece/blob - 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")))