aha
parent
6047bd2452
commit
5bcfae5aed
@ -1,6 +1,6 @@
|
|||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require "utils.rkt" "wrap.rkt" "quads-typed.rkt" "world.rkt" racket/list racket/format)
|
(require "utils-typed.rkt" "quads-typed.rkt" "world-typed.rkt" racket/list racket/format)
|
||||||
(require rackunit)
|
(require rackunit)
|
||||||
|
|
||||||
(check-equal? (join-attrs (list (box '(width 10)) (box #f "foobar") (hash 'x 10) (list 'width 20)))
|
(check-equal? (join-attrs (list (box '(width 10)) (quad-attrs (box '(x 10))) (list 'width 20)))
|
||||||
(list (cons 'width 10) (cons 'x 10) (cons 'width 20)))
|
(list (cons 'width 10) (cons 'x 10) (cons 'width 20)))
|
||||||
|
Loading…
Reference in New Issue