guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SRFI-64 module and SRFI-78 module -- archive file attached


From: Sunjoong Lee
Subject: SRFI-64 module and SRFI-78 module -- archive file attached
Date: Thu, 26 Apr 2012 17:27:48 +0900

Hello,

I've attatched a file archiving modules of my recent version of SRFI-64 implementation and SRFI-78.

SRFI-64 is "A Scheme API for test suites."
SRFI-78 is "Lightweight testing."

If you want to test your code, there are 5 options; using SRFI-64, SRFI-78, unit-test of guile-lib, lib of test-suite in Guile source archive or your own test suite. Here is four examples:

;;; filename: srfi-64-example.scm
(use-modules (srfi srfi-64))
(test-begin "vec-test")
(define v (make-vector 5 99))
(test-assert (vector? v))
(test-eqv 99 (vector-ref v 2))
(vector-set! v 2 7)
(test-eqv 7 (vector-ref v 2))
(test-end "vec-test")

;;; filename: srfi-78-example.scm
(use-modules (srfi srfi-78))
(define v (make-vector 5 99))
(check (vector? v) => #t)
(check (vector-ref v 2) => 99)
(vector-set! v 2 7)
(check (vector-ref v 2) => 7)

;;; filename: unit-test-example.scm
(use-modules (unit-test) (oop goops))
(define v (make-vector 5 99))
(define-class <vec-test> (<test-case>))
(define-method (test-vector? (self <vec-test>))
  (assert-true (vector? v)))
(define-method (test-99 (self <vec-test>))
  (assert-equal 99 (vector-ref v 2)))
(define-method (test-7 (self <vec-test>))
  (vector-set! v 2 7)
  (assert-equal 7 (vector-ref v 2)))
(exit-with-summary (run-all-defined-test-cases))

;;; filename: test-suite-example.scm
(use-modules (test-suite lib))
(define v (make-vector 5 99))
(pass-if "vector?" (vector? v))
(pass-if "99" (eqv? 99 (vector-ref v 2)))
(vector-set! v 2 7)
(pass-if "7" (eqv? 7 (vector-ref v 2)))


Attachment: srfi-64_and_srfi-78.tar.gz
Description: GNU Zip compressed data


reply via email to

[Prev in Thread] Current Thread [Next in Thread]