made tests green

This commit is contained in:
Araq 2014-09-22 01:25:13 +02:00
commit 1a3b730bf5
8 changed files with 56 additions and 53 deletions

View file

@ -12,7 +12,7 @@ if paramCount() < 1:
quit("Usage: htmlrefs filename[.html]")
var links = 0 # count the number of links
var filename = addFileExt(ParamStr(1), "html")
var filename = addFileExt(paramStr(1), "html")
var s = newFileStream(filename, fmRead)
if s == nil: quit("cannot open the file " & filename)
var x: XmlParser
@ -43,12 +43,12 @@ block mainLoop:
while x.kind == xmlCharData:
desc.add(x.charData)
x.next()
Echo(desc & ": " & link)
echo(desc & ": " & link)
else:
x.next()
of xmlEof: break # end of file reached
of xmlError:
Echo(errorMsg(x))
echo(errorMsg(x))
x.next()
else: x.next() # skip other events