basis/xml/utilities/utilities-tests.factor

   1 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: xml xml.utilities tools.test xml.data ;
   4 IN: xml.utilities.tests
   5
   6 [ "bar" ] [ "<foo>bar</foo>" string>xml children>string ] unit-test
   7
   8 [ "" ] [ "<foo></foo>" string>xml children>string ] unit-test
   9
  10 [ "" ] [ "<foo/>" string>xml children>string ] unit-test
  11
  12 XML-NS: foo http://blah.com
  13
  14 [ T{ name { main "bling" } { url "http://blah.com" } } ] [ "bling" foo ] unit-test