Re: [Geiser-users] Running racket tests in geiser

[Garjola]

Hi,

Thanks for your quick answer!

"Jose A. Ortega Ruiz" <address@hidden> wrote:
>>
>> -----------------------------------------
>> #reader(lib "htdp-beginner-reader.ss" "lang")
>> ((modname my-example)
>>  (read-case-sensitive #t)
>>  (teachpacks ())
>>  (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
>
> The usual way of using a language would be to use:
>
>   #lang htpd/bsl
>
> instead of the above.
>

It does not work for me. I get the following error when I compile:

Compiling /home/garjola/stok/Videos/Coursera/mre.rkt ...


Error: struct:exn:fail

 [re-loading /home/garjola/stok/Videos/Coursera/mre.rkt]
standard-module-name-resolver: collection not found
  collection: "htpd"
  in collection directories:
   /home/garjola/.racket/5.3.5/collects
   /home/garjola/local/lib/racket/collects
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/


   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/enter.rkt:93:19: 
((checked-procedure-check-and-extract struct:keyword-procedure
   code keyword-procedure-extract (quote (#:notify)) (quote 6)) (quote 
(#:notify)) (list temp11) path7 temp8 temp9 temp10)
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/enter.rkt:93:6: 
(let-values (((code) (let-values (((code) lifted.1) ((....) ....)
   (....) ....) ((checked-procedure-check-and-extract ....) (....) ....)))) 
(let-values (((dir) (let-values (....) ....))) (let-values
   (((....) ....)) (let-values ....))))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/modules.rkt:49:2: 
(with-continuation-mark parameterization-key
   (extend-parameterization (continuation-mark-set-first (quote #f) 
parameterization-key) current-error-port (let-values ((....)) (....)))
   (let-values () (enter-module (ensure-module-spec ....)) (if (....) ....)))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:58:12: (eval 
form (module-spec->namespace spec lang))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:52:17: 
(call-with-values thunk set-last-result)
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:51:15: 
(let-values (((with-handlers-predicate1) exn?)
   ((with-handlers-handler2) set-last-error)) (let-values (((bpz) 
(continuation-mark-set-first (....) ....))) (call-handled-body bpz
   (lambda ....) (....))))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:48:9: 
(with-output-to-string (lambda () (with-continuation-mark
   parameterization-key (extend-parameterization (....) ....) (let-values 
....))))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:47:2: 
(let-values (((output) (with-output-to-string (lambda ()
   (....))))) (append last-result (list (list* (....) ....))))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/eval.rkt:56:2: (write 
(call-with-result (lambda () (eval form (....)))))
   /home/garjola/.emacs.d/elpa/geiser-0.2.2/racket/geiser/main.rkt:38:
4: (eval-in form spec lang)
>
> You can either evaluate individual tests with, e.g. C-M-x, or reload the
> file after it's modified with C-cC-k...
>

C-M-x returns "=> #<void>" both for passing and failing tests. 

I am using Racket v5.3.5.

Thanks.

Garjola
>
> HTH,
> jao