xitomatl tests not working under Ypsilon

[GoogleCodeExporter]

Using Ypsilon 0.9.6 revision 144, these tests from my xitomatl/tests/
(revision 111) fail (they pass on Ikarus and MzScheme):

---------------------
coroutines-tests.sps:
---------------------

error in library: duplicate definitions
  >  (define &coroutine-finished-coroutine
       (record-accessor (record-type-rtd &coroutine-finished) 0))
  ..."/home/d/zone/scheme/xitomatl/coroutines.sls"
  @  (define &coroutine-finished-coroutine
       (condition-accessor
         (record-type-descriptor &coroutine-finished)
         &coroutine-finished-coroutine))
  ..."/home/d/zone/scheme/xitomatl/coroutines.sls"

expanding:
  >  (syntax (define name (case-coroutine/lexical-context name (frmls b0 b
...))))
  ..."/home/d/zone/scheme/xitomatl/coroutines.sls" line 96


----------------
fuego-tests.sps:
----------------

error in library: duplicate definitions
  >  (define &fuego-object (record-accessor (record-type-rtd &fuego) 0))
  ..."/home/d/zone/scheme/xitomatl/fuego.sls"
  @  (define &fuego-object
       (condition-accessor (record-type-descriptor &fuego) &fuego-object))
  ..."/home/d/zone/scheme/xitomatl/fuego.sls"

expanding:
  >  (quote
         ((method (datum->syntax (syntax kw) 'method))
          (value (datum->syntax (syntax kw) 'value))
          (parent (datum->syntax (syntax kw) 'parent))))
  ..."/home/d/zone/scheme/xitomatl/fuego.sls"

-------------------
generics-tests.sps:
-------------------

error in "syntax template": subforms have different size of matched input

irritants:
  (template: ((cons* p ... pr) (a ... . ar)))
  (subforms: (pr (#<syntax lambda> #<syntax a> #t)) (ar #<syntax x>)
(pred-frmls (() ((x symbol?)) ((x symbol? ...) ...) ...) ...) (b ((1)
((symbol->string x)) ((symbol=? x ...) ...) ...) ...) (name g2))

expanding:
  >  (define-generic/temporal
         g2
         (() 1)
         (((x symbol?)) (symbol->string x))
         (((x symbol?) (y symbol?)) (symbol=? x y))
         (((x (lambda (x) (or (symbol? x) (string? x)))) (y number?))
          (make-vector y x))
         (((x char?) . #(y (lambda r (for-all char-alphabetic? r))))
          (apply string x y))
         (#(x (lambda a #t)) (reverse x)))
         ...
  ..."/home/d/zone/scheme/xitomatl/tests/generics-tests.sps" line 95

backtrace:
  0  (((a p) ...) (syntax ((list p ...) (a ...))))
  ..."/home/d/zone/scheme/xitomatl/generics.sls" line 160
  1  (pf)
  ..."/home/d/zone/scheme/xitomatl/generics.sls" line 158
  2  (lambda (stx) (syntax-case stx () ((_ name (pred-frmls . b) ...)
(identifier? ...) ...) ...) ...)
  ..."/home/d/zone/scheme/xitomatl/generics.sls" line 153


-------------------
IU-match-tests.sps:
-------------------
[I think this might be related to bug #32 I submitted.]

[... first tests running ...]

error: attempt call non-procedure: (#<unspecified> 2)

backtrace:
  0  (g x)
  ..."/home/d/zone/scheme/xitomatl/tests/IU-match-tests.sps" line 150
  1  (library (xitomatl srfi lightweight-testing) (export check check-ec
check-report ...) ...)
  ..."/home/d/zone/scheme/xitomatl/srfi/lightweight-testing.sls" line 2
  2  (import (rnrs) (rnrs eval) (xitomatl IU-match extras) (xitomatl srfi
lightweight-testing ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/IU-match-tests.sps" line 2


-----------------------
keyword-args-tests.sps:
-----------------------

[I spent a while trying to narrow down this bug, but couldn't.]

(fde0 (:- (a 'foo))) => 
error in fde0: not a keyword arguments group

irritants:
  #<record kw-args-grp ((a . foo))>

backtrace:
  0  (library (xitomatl srfi lightweight-testing) (export check check-ec
check-report ...) ...)
  ..."/home/d/zone/scheme/xitomatl/srfi/lightweight-testing.sls" line 2
  1  (fde0 (:- (a 'foo)))
  ..."/home/d/zone/scheme/xitomatl/tests/keyword-args-tests.sps" line 40

-----------------------
This one takes an extremely long time, but it's fast on Ikarus and
MzScheme, and all the other IrRegex tests are fast on Ypsilon.
(See comment in regex-dna.sps for where to download regexdna-input.txt)

[d@eep:~/zone/scheme/xitomatl/tests/irregex]-> ypsilon regex-dna.sps
<regexdna-input.txt 
agggtaaa|tttaccct 0
[cgt]gggtaaa|tttaccc[acg] 3
a[act]ggtaaa|tttacc[agt]t 9
ag[act]gtaaa|tttac[agt]ct 8
agg[act]taaa|ttta[agt]cct 10
aggg[acg]aaa|ttt[cgt]ccct 3
agggt[cgt]aa|tt[acg]accct 4
agggta[cgt]a|t[acg]taccct 3
agggtaa[cgt]|[acg]ttaccct 5

101745
100000
133640
[d@eep:~/zone/scheme/xitomatl/tests/irregex]-> 
-----------------------

-------------------------
sxml-match/run-tests.sps:
-------------------------
[NOTE: There is a provided `void' it should be seeing.]

[... first tests running ...]

Running: test of non-null tail pattern following ellipses:

((compile-match (e ,i ... ,a ,b) i) '(e 3 4 5 6 7)) => 
error: unbound variable void

backtrace:
  0  (import (rnrs) (xitomatl sxml-match) (xitomatl include) (xitomatl srfi
lightweight-testing ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/sxml-match/run-tests.sps" line 2
  1  (import (rnrs) (xitomatl sxml-match) (xitomatl include) (xitomatl srfi
lightweight-testing ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/sxml-match/run-tests.sps" line 2
  2  (import (rnrs) (xitomatl sxml-match) (xitomatl include) (xitomatl srfi
lightweight-testing ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/sxml-match/run-tests.sps" line 2
  3  (library (xitomatl srfi lightweight-testing) (export check check-ec
check-report ...) ...)
  ..."/home/d/zone/scheme/xitomatl/srfi/lightweight-testing.sls" line 2
  4  (import (rnrs) (xitomatl sxml-match) (xitomatl include) (xitomatl srfi
lightweight-testing ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/sxml-match/run-tests.sps" line 2


-----------------------
ssax/parsing-tests.sps:
-----------------------
[NOTE also the weird \x60;16\x60;645 below.]

error: expression is not a proper list
  >  (find k-args (DOCTYPE . default) DOCTYPE val . others)
  ..."/home/d/zone/scheme/xitomatl/tests/ssax/parsing-tests.sps"

  #<condition
    &syntax (&violation &serious)
     form: (find\x60;16\x60;645 k-args\x60;16\x60;645 (DOCTYPE\x60;645 .
default\x60;16\x60;645) DOCTYPE\x60;645 val\x60;16\x60;645 .
others\x60;16\x60;645)
     subform: #f
    &message: "expression is not a proper list"
   >

expanding:
  >  (find k-args (DOCTYPE . default) DOCTYPE val . others)
  ..."/home/d/zone/scheme/xitomatl/tests/ssax/parsing-tests.sps"
  *  (ssax:make-parser
         NEW-LEVEL-SEED
         (lambda (elem-gi attributes namespaces expected-content seed) '())
         FINISH-ELEMENT
         (lambda (elem-gi attributes namespaces parent-seed seed)
           (let ((seed
                   (if (null? namespaces)
                       (reverse seed)
                       (cons (list '*NAMESPACES* namespaces) (reverse seed)))))
             (let ((seed
         ...
  ..."/home/d/zone/scheme/xitomatl/tests/ssax/parsing-tests.sps"


-----------------------
sxml-tools/vtxpath.sps:
-----------------------

-- (sxml:xpath .)
("Text node")

error in car: expected pair, but got #f

  #<condition
    &assertion (&violation &serious)
    &who: car
    &message: "expected pair, but got #f"
    &irritants: ()
   >

backtrace:
  0  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  1  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  2  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  3  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  4  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  5  (library (xitomatl sxml-tools xpath-parser (2008 6 27)) (export
txp:param-value ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/xpath-parser.sls" line 2
  6  (library (xitomatl sxml-tools txpath (2008 6 27)) (export
sxml:xpointer-runtime-error ...) ...)
  ..."/home/d/zone/scheme/xitomatl/sxml-tools/txpath.sls" line 2
  7  (import (rnrs) (xitomatl sxml-tools txpath) (xitomatl include)
(xitomatl sxml-tools ...) ...)
  ..."/home/d/zone/scheme/xitomatl/tests/sxml-tools/vtxpath.sps" line 2

Let me know if you want me to explain why my code does something or why
it's supposed to work.

-- 
: Derick
----------------------------------------------------------------

Original issue reported on code.google.com by derick.e...@gmail.com on 2 Aug 2008 at 2:16

[GoogleCodeExporter]

This report is duplicated by server error of google code.

Original comment by y.fujita...@gmail.com on 2 Aug 2008 at 4:56

• Changed state: Invalid