Hi, "objc" <objcj...@hotmail.com> skribis:
> I just built guile-2.0.7.18-03a2f > Check out http://branch-twigg.webs.com/ for what I done with it. > currently playing with BioSchematics - L-System Parser and Drawing tool by - > Xavier Raynaud <x.rayn...@wanadoo.fr> Interesting. > FAIL: tests/alist.test: sloppy-assq not > FAIL: tests/alist.test: sloppy-assv not > FAIL: tests/alist.test: assv not > FAIL: tests/alist.test: assq-ref not > FAIL: tests/alist.test: assv-ref not > FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove some These ones are scary. Can you try to type them at the REPL, to see what happens? > $ cat guile.log | grep ERR > ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 - > arguments: ((system-error "string->utf16" "failed to convert string: ~A" > ("hello, world") (-1))) Is GNU libiconv installed? What’s -1 in errno.h? > ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec - > arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A > (expecting ~A): ~S" (1 "pair" #f) (#f) > )) Can you try to get a backtrace? That is, at the REPL, you type: (use-modules (system vm coverage) (system vm vm) (system base compile) (srfi srfi-11)) (define-syntax code (syntax-rules () ((_ filename snippet) (let ((input (open-input-string snippet))) (set-port-filename! input filename) (read-enable 'positions) (compile (read input)))))) (define %test-vm (make-vm)) (let ((proc (code "foo.scm" "(lambda (x y) ;; 0 (+ x y)) ;; 1"))) (let-values (((data result) (with-code-coverage %test-vm (lambda () (proc 1 2))))) (and (coverage-data? data) (= 3 result) (let-values (((instr exec) (instrumented/executed-lines data "foo.scm"))) (and (= 2 instr) (= 2 exec)))))) and report what happens. > ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer - arguments: > ((misc-error "dynamic-pointer" "Symbol not found: ~a" ("scm_is_pair") #f)) Nothing to worry about, I just committed a workaround. Thanks! Ludo’.
