From: "objc" <objcjohn@hotmail.com>
To: "Ludovic \"Courtès\"" <ludo@gnu.org>
Cc: guile-user@gnu.org
Subject: Re: Guile and MSWindows
Date: Tue, 5 Feb 2013 09:04:02 -0000 [thread overview]
Message-ID: <SNT127-DS13CEBFFC06EDCF6E59821DC8000@phx.gbl> (raw)
> 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"" <ludo@gnu.org>
> Sent: Friday, February 01, 2013 5:13 PM
> To: "objc" <objcjohn@hotmail.com>
> Cc: <guile-user@gnu.org>
> Subject: Re: Guile and MSWindows
>
>> Hi,
>>
>> "objc" <objcjohn@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.raynaud@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’.
>>
next reply other threads:[~2013-02-05 9:04 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-02-05 9:04 objc [this message]
2013-02-05 15:41 ` Guile and MSWindows Ludovic Courtès
-- strict thread matches above, loose matches on Subject: below --
2013-02-02 12:23 objc
2013-02-04 12:28 ` Ludovic Courtès
2013-01-29 15:12 objc
2013-02-01 17:13 ` Ludovic Courtès
2013-02-02 6:53 ` objc
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=SNT127-DS13CEBFFC06EDCF6E59821DC8000@phx.gbl \
--to=objcjohn@hotmail.com \
--cc=guile-user@gnu.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).