You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
359 B
OpenEdge ABL
13 lines
359 B
OpenEdge ABL
#lang racket/base
|
|
|
|
(require (planet mb/pollen/map))
|
|
|
|
;
|
|
;(require "test-pmap.p")
|
|
;(require "pollen-lang-test.p")
|
|
|
|
(let ([left (make-page-sequence (main->tree (dynamic-require "test.pmap" 'main)))]
|
|
[right (make-page-sequence (main->tree (dynamic-require "test-pmap.p" 'main)))])
|
|
(print left)
|
|
(print right)
|
|
(andmap (λ(l r) (equal? l r)) left right)) |