mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
65a1eba878
Tested with gauche. It's mostly about not importing (chibi test) unconditionally, and importing (scheme write). And in one case I need to exclude some tests because gauche catches invalid call forms at compile time. I'm not sure if that can be caught...
47 lines
1.7 KiB
Scheme
47 lines
1.7 KiB
Scheme
|
|
(define-library (chibi diff-test)
|
|
(import (scheme base) (chibi diff))
|
|
(export run-tests)
|
|
(cond-expand
|
|
(chibi (import (chibi test)))
|
|
(else
|
|
(import (scheme write))
|
|
;; inline (chibi test) to avoid circular dependencies in snow
|
|
;; installations
|
|
(begin
|
|
(define-syntax test
|
|
(syntax-rules ()
|
|
((test expect expr)
|
|
(test 'expr expect expr))
|
|
((test name expect expr)
|
|
(guard (exn (else (display "!\nERROR: ") (write name) (newline)
|
|
(write exn) (newline)))
|
|
(let* ((res expr)
|
|
(pass? (equal? expect expr)))
|
|
(display (if pass? "." "x"))
|
|
(cond
|
|
((not pass?)
|
|
(display "\nFAIL: ") (write name) (newline))))))))
|
|
(define (test-begin name)
|
|
(display name))
|
|
(define (test-end)
|
|
(newline)))))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "diff")
|
|
(test '((#\A 1 0) (#\C 2 2))
|
|
(lcs-with-positions '(#\G #\A #\C) '(#\A #\G #\C #\A #\T)))
|
|
(test '(#\A #\C)
|
|
(lcs '(#\G #\A #\C) '(#\A #\G #\C #\A #\T)))
|
|
(test '((#\G #\A #\C) (#\A #\G #\C #\A #\T) ((#\A 1 0) (#\C 2 2)))
|
|
(diff "GAC" "AGCAT" read-char))
|
|
(let ((d (diff "GAC" "AGCAT" read-char)))
|
|
(test " »G« AC"
|
|
(edits->string (car d) (car (cddr d)) 1))
|
|
(test "A «G» C «AT» "
|
|
(edits->string (cadr d) (car (cddr d)) 2))
|
|
(test "\x1b;[31mG\x1b;[39mAC"
|
|
(edits->string/color (car d) (car (cddr d)) 1))
|
|
(test "A\x1b;[32mG\x1b;[39mC\x1b;[32mAT\x1b;[39m"
|
|
(edits->string/color (cadr d) (car (cddr d)) 2)))
|
|
(test-end))))
|