A few more stray "racunit"s.
This commit is contained in:
parent
28dce6996a
commit
5c702976c2
|
@ -216,7 +216,7 @@
|
|||
=> '(#"1 test passed\n" #"2 tests passed\n")
|
||||
)
|
||||
|
||||
;; RacUnit stuff
|
||||
;; RackUnit stuff
|
||||
;; (examples that should fail modified to ones that shouldn't)
|
||||
#|
|
||||
|
||||
|
|
|
@ -22,7 +22,7 @@
|
|||
|
||||
(define all-rackunit-tests
|
||||
(test-suite
|
||||
"All RacUnit Tests"
|
||||
"All RackUnit Tests"
|
||||
check-tests
|
||||
base-tests
|
||||
check-info-tests
|
||||
|
|
|
@ -2,22 +2,22 @@
|
|||
;;; <check-util-test.rkt> ---- Tests for check-util
|
||||
;;; Time-stamp: <2009-06-11 17:03:21 noel>
|
||||
;;;
|
||||
;;; Copyright (C) 2003 by Noel Welsh.
|
||||
;;; Copyright (C) 2003 by Noel Welsh.
|
||||
;;;
|
||||
;;; This file is part of RacUnit.
|
||||
;;; This file is part of RackUnit.
|
||||
|
||||
;;; RacUnit is free software; you can redistribute it and/or
|
||||
;;; RackUnit is free software; you can redistribute it and/or
|
||||
;;; modify it under the terms of the GNU Lesser General Public
|
||||
;;; License as published by the Free Software Foundation; either
|
||||
;;; version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
;;; RacUnitis distributed in the hope that it will be useful,
|
||||
;;; RackUnit is distributed in the hope that it will be useful,
|
||||
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
;;; Lesser General Public License for more details.
|
||||
|
||||
;;; You should have received a copy of the GNU Lesser General Public
|
||||
;;; License along with RacUnit; if not, write to the Free Software
|
||||
;;; License along with RackUnit; if not, write to the Free Software
|
||||
;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
;;; Author: Noel Welsh <noelwelsh@yahoo.com>
|
||||
|
|
|
@ -10,7 +10,7 @@
|
|||
;; really badly wrong.
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
scheme/unsafe/ops)
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
|
@ -11,7 +11,7 @@
|
|||
;; really badly wrong.
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
Loading…
Reference in New Issue
Block a user