Re: Guile and MSWindows

[Ludovic Courtès]

Hello,

"objc" <address@hidden> 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’.