tcldomutils.tcl

Go to the documentation of this file.
00001 /*  tcldomutils.tcl --*/
00002 /* */
00003 /*  This script prepares the testing environment for TclXML.*/
00004 /* */
00005 /*  Copyright (c) 2008 Explain*/
00006 /*  http://www.explain.com.au/*/
00007 /*  Copyright (c) 2003 Zveno Pty Ltd.*/
00008 /* */
00009 /*  $Id: tclxmlutils.tcl,v 1.2 2003/12/03 20:06:37 balls Exp $*/
00010 
00011 package require tcltest
00012 
00013 source [file join [tcltest::workingDirectory] .. testutils.tcl]
00014 
00015 eval tcltest::configure $argv
00016 
00017 if {[catch {package require dom::libxml2}]} {
00018     tcltest::testConstraint dom_tcl 1
00019 } else {
00020     tcltest::testConstraint dom_libxml2 1
00021 }
00022