test.el
code:test.el
(require 'again)
;;
;; again.elのテスト
;;
(and
(string= (get-postfix "xx" "yy") "")
(string= (get-postfix "xyz" "yzwu") "wu")
(string= (get-postfix "xyzabc" "abcdefg") "defg")
(string= (get-postfix "abc" "abcdefg") "defg")
(string= (get-postfix "abckkk" "abcdefg") "")
(string= (get-postfix "xxabcdef" "abcdefghi") "ghi")
(string= (get-postfix "abcdef" "abcdefghi") "ghi")
(string= (chomp "") "")
(string= (chomp "xyz") "xy")
(string= (chomp "") "")
(let* (
(s2 "abcde")
(s3 "kkkkk")
(in (concat s1 s2))
(out (concat s2 s3))
)
(string= (get-postfix in out) s3)
)
(let* (
(s2 "")
(s3 "register")
(in (concat s1 s2))
(out (concat s2 s3))
)
(string= (get-postfix in out) s3)
)
)
;;;;