! Copyright (C) 2005, 2009 Daniel Ehrenberg
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
IN: xml.tests
USING: kernel xml tools.test io namespaces make sequences
xml.errors xml.entities.html parser strings xml.data io.files
{ "1.0" } [ xml-file get prolog>> version>> ] unit-test
{ f } [ xml-file get prolog>> standalone>> ] unit-test
{ "a" } [ xml-file get space>> ] unit-test
-{ "http://www.hello.com" } [ xml-file get url>> ] unit-test
+{ "https://www.hello.com" } [ xml-file get url>> ] unit-test
{ "that" } [
- xml-file get T{ name f "" "this" "http://d.de" } attr
+ xml-file get T{ name f "" "this" "https://d.de" } attr
] unit-test
{ t } [ xml-file get children>> second contained-tag? ] unit-test
[ "<a></b>" string>xml ] [ xml-error? ] must-fail-with