File: scheme-user-defined-define

package info (click to toggle)
cgit 1.2.3%2Bgit20240802.70.09d24d7%2Bgit2.46.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 56,184 kB
  • sloc: ansic: 301,641; sh: 254,574; perl: 29,353; tcl: 22,151; makefile: 4,198; python: 3,594; javascript: 810; csh: 45; ruby: 43; lisp: 12
file content (6 lines) | stat: -rw-r--r-- 249 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
 
(define-test-suite record\ case-tests RIGHT
  (record-case-1 (lambda (fail)
                   (let ((a (make-foo 1 2)))
                     (record-case a
                       ((bar x) (ChangeMe))
                       ((foo a b) (+ a b)))))))