Hello,
"objc" <objcj...@hotmail.com> skribis:
>>> FAIL: tests/alist.test: sloppy-assq not
>>
>> ;;; <stdin>:242:2: warning: possibly unbound variable `pass-if'
Actually you need to type in just the body of the ‘pass-if’ or
‘pass-if-exception’ forms. Could you try that?
>> ;;; <stdin>:473:4: warning: possibly unbound variable `delete-if-not!'
For this one, you must in addition first type:
(use-modules (ice-9 common-list))
>>> 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
Hmm no idea what’s going on here.
>> 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?
[...]
>> 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
So this one actually works here. No idea why it was initially failing
when run from ./check-guile, but you can probably ignore it, then.
Ludo’.
