Re: [bug-serveez] SEGV in guile_error

[Thien-Thi Nguyen]

() Thien-Thi Nguyen <address@hidden>
() Sun, 24 Feb 2013 18:10:11 +0100

   [test case]

Here's something i cooked up:

 test/t006 |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/test/t006 b/test/t006
index 26109d3..35d477b 100644
--- a/test/t006
+++ b/test/t006
@@ -551,6 +551,17 @@
        (pass-if "Invalid boolean"
          (not (serveez-exceptions 'foo))))))

+(!! 'freaky
+    '(;; Load the test suite module.
+      (use-modules (test-suite))
+
+      (begin
+        (close-port (current-load-port))
+        (error "die"))
+
+      (pass-if "still going"
+        #t)))
+
 (exit #t)

 ;;; Local variables:

Unfortunately, under Guile 1.8.7, it doesn't segfault, but instead shows
"undefined:0:0" (w/o the change to use ‘SCM_OPINPORTP’).  Likewise, w/
the patch applied.

-- 
Thien-Thi Nguyen ..................................... GPG key: 4C807502
.                  NB: ttn at glug dot org is not me                   .
.                 (and has not been since 2007 or so)                  .
.                        ACCEPT NO SUBSTITUTES                         .
........... please send technical questions to mailing lists ...........

pgpL5RmLlxuPC.pgp
Description: PGP signature