Hi Ludo,
Some tests as requested.
---------------------------------------------------------------------------
FAIL: tests/alist.test: sloppy-assq not
;;; <stdin>:242:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:246:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:250:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:257:4: warning: possibly unbound variable `pass-if-exception'
;;; <stdin>:257:4: warning: possibly unbound variable
`exception:wrong-type-arg'
;;; <stdin>:262:4: warning: possibly unbound variable `pass-if-exception'
;;; <stdin>:262:4: warning: possibly unbound variable
`exception:wrong-type-arg'
;;; <stdin>:267:4: warning: possibly unbound variable `pass-if-exception'
;;; <stdin>:267:4: warning: possibly unbound variable
`exception:wrong-type-arg'
<unnamed port>:242:2: In procedure #<procedure 205cbce0 at <current
input>:239:0 ()>:
<unnamed port>:242:2: In procedure module-lookup: Unbound variable:
pass-if
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [4]> ,bt
In current input:
242:2 0 (#<procedure 205cbce0 at <current input>:239:0 ()>)
---------------------------------------------------------------------------
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
;;; <stdin>:470:0: warning: possibly unbound variable `with-test-prefix'
;;; <stdin>:472:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:473:4: warning: possibly unbound variable `delete-if-not!'
;;; <stdin>:475:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:476:9: warning: possibly unbound variable `delete-if-not!'
;;; <stdin>:478:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:479:9: warning: possibly unbound variable `delete-if-not!'
;;; <stdin>:481:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:482:9: warning: possibly unbound variable `delete-if-not!'
;;; <stdin>:484:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:485:12: warning: possibly unbound variable `delete-if-not!'
;;; <stdin>:487:2: warning: possibly unbound variable `pass-if'
;;; <stdin>:488:12: warning: possibly unbound variable `delete-if-not!'
<unnamed port>:470:0: In procedure #<procedure 20760a80 at <current
input>:470:0 ()>:
<unnamed port>:470:0: In procedure module-lookup: Unbound variable:
with-test-prefix
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [6]> ,bt
In current input:
470:0 0 (#<procedure 20760a80 at <current input>:470:0 ()>)
scheme@(guile-user) [6]>
---------------------------------------------------------------------------
These ones are scary. Can you try to type them at the REPL, to see what
happens?
---------------------------------------------------------------------------
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?
- libiconv /usr/local/bin/cygiconv-2.dll (0x470000) vers
1.14-2
-1 in errno.h
=============
-1 not defined in /usr/include/sys/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:
$ guile
%load-path=(/usr/local/lib/guile/2.0 /usr/local/share/guile/2.0
/usr/local/lib /usr/local/share/guile /usr/local/lib/guile
/usr/local/lib/guile/2.0/ccache /usr/local/share/guile/site .
/usr/local/share/guile/2.0 /usr/local/share/guile/site/2.0
/usr/local/share/guile/site /usr/local/share/guile)
%load-compiled-path=(/usr/local/lib/guile/2.0
/usr/local/lib/guile/2.0/ccache /usr/local/lib/guile/2.0/site-ccache)
%load-extensions=(.scm )
PATH=/usr/local/lib/guile/2.0/ccache
GNU Guile 2.0.7.18-03a2f
Copyright (C) 1995-2012 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.
Enter `,help' for help.
scheme@(guile-user)> (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))))))
$1 = #t
scheme@(guile-user)>
---------------------------------------------------------------------------
Regards,
John Goodwin
--------------------------------------------------
From: "Ludovic "Courtès"" <address@hidden>
Sent: Friday, February 01, 2013 5:13 PM
To: "objc" <address@hidden>
Cc: <address@hidden>
Subject: Re: Guile and MSWindows
Hi,
"objc" <address@hidden> 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 <address@hidden>
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’.