:- ensure_loaded(qtest_header).
:- ensure_loaded(qtest).
:- use_module(html).
:- use_module(write_to_atom).

go :- run_qtests.

qtest :-
	write_to_atom(A, write_html('Hello, World!')),
	A = 'Hello, World!'.

qtest(quoting_of_lt_and_amp) :-
	write_to_atom(A, write_html('Hello, <person&person>')),
	A = 'Hello, &lt;person&amp;person'.

qtest :-
	write_to_atom(A, write_html(p('Hello, World!'))),
	A = '\n<p>Hello, World!</p>\n'.

