[honu] fix tests
This commit is contained in:
parent
42d21a9918
commit
99daf6a9d1
|
@ -5,7 +5,7 @@ require "linq.rkt";
|
||||||
|
|
||||||
class Xml(data){
|
class Xml(data){
|
||||||
Descendants(name){
|
Descendants(name){
|
||||||
[new Xml(element): element <- find_descendants(data, name)]
|
[new Xml(element): element = find_descendants(data, name)]
|
||||||
}
|
}
|
||||||
|
|
||||||
Element(name){
|
Element(name){
|
||||||
|
@ -25,7 +25,7 @@ read_xml(){
|
||||||
}
|
}
|
||||||
|
|
||||||
loadXml(file){
|
loadXml(file){
|
||||||
with_input_from_file(file){
|
withInputFromFile(file){
|
||||||
new Xml(read_xml())
|
new Xml(read_xml())
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
|
|
||||||
(require honu/core/private/macro2
|
(require honu/core/private/syntax
|
||||||
honu/core/private/honu-typed-scheme
|
honu/core/private/honu-typed-scheme
|
||||||
honu/core/private/literals
|
honu/core/private/literals
|
||||||
racket/list
|
racket/list
|
||||||
|
|
Loading…
Reference in New Issue
Block a user