# -*- tcl -*- # pt_tclparam_config_nx.test: tests for the pt::peg::to::tclparam # converter package configured for NX. # # Copyright (c) 2009 by Andreas Kupries # Copyright (c) 2016 by Stefan Sobernig # All rights reserved. # # ------------------------------------------------------------------------- source [file join [ file dirname [file dirname [file join [pwd] [info script]]] ] devtools testutilities.tcl] testsNeedTcl 8.5 testsNeedTcltest 2 support { useAccel [useTcllibC] struct/sets.tcl struct::set ; # used by pt::pe::op, TestAccelInit struct::set ; # however not by the # # commands used here. use fileutil/fileutil.tcl fileutil ;# tests/common use textutil/adjust.tcl textutil::adjust useLocal pt_pexpression.tcl pt::pe useLocal pt_pexpr_op.tcl pt::pe::op useLocal pt_pegrammar.tcl pt::peg useLocal text_write.tcl text::write useLocal char.tcl char useLocal pt_peg_to_tclparam.tcl pt::peg::to::tclparam source [localPath tests/common] } testing { useLocal pt_tclparam_config_nx.tcl pt::tclparam::configuration::nx } set mytestdir data # ------------------------------------------------------------------------- source [localPath tests/pt_tclparam_config_nx.tests] # ------------------------------------------------------------------------- TestAccelExit struct::set testsuiteCleanup return