From: lisp linux
Subject: fiveam runs test but says did not
Date: Tue, 11 Mar 2008 06:30:23 +0000
Message-ID: <YsidncY34KybukvanZ2dnUVZ_uWlnZ2d@comcast.com>

Hi

Using sbcl/slime I do the following
(require 'fiveam)
compile and load the file below

Following is the repl interaction
CL-USER> (fiveam-issue:test-issue)
  Didn't run anything...huh?
NIL
CL-USER> (trace fiveam-issue::my-square)
(FIVEAM-ISSUE::MY-SQUARE)
CL-USER> (fiveam-issue:test-issue)
   0: (MY-SQUARE 4)
   0: MY-SQUARE returned 16
   0: (MY-SQUARE 5)
   0: MY-SQUARE returned 25
   0: (MY-SQUARE 1)
   0: MY-SQUARE returned 1
   0: (MY-SQUARE 2)
   0: MY-SQUARE returned 4
   0: (MY-SQUARE 3)
   0: MY-SQUARE returned 9
  Didn't run anything...huh?
NIL

Why does fiveam run the stuff and say nothing ran.

Following is the test file

(defpackage :fiveam-issue
   (:use :common-lisp :it.bese.FiveAM)
   (:export "TEST-ISSUE"))

(in-package :fiveam-issue)

(defun my-square (x)
   (* x x))

(def-suite mysuite)
(in-suite mysuite)

(test foo
   (let ((data (list 4 5 1 2 3)))
     (dolist (item data)
       (= (* item item) (my-square item)))))


(defun test-issue ()
   (run! 'mysuite))

-Antony

From: Stanisław Halik
Subject: Re: fiveam runs test but says did not
Date: Tue, 11 Mar 2008 06:47:30 +0000
Message-ID: <fr59u2$bor$1@news2.task.gda.pl>

thus spoke lisp linux <·········@lisp.linux>:

Try this:

> (test foo
>   (let ((data (list 4 5 1 2 3)))
>     (dolist (item data)
-      (= (* item item) (my-square item)))))
+      (is (= (* item item) (my-square item))))))

-- 
Nawet świnka wejdzie na drzewo kiedy ją chwalą.