Index: tests/object-system.test =================================================================== diff -u -N -r3c1482d9e1f80f0216250f5debade5d8edb1b17e -r7fa23e7c8614d6b90f8502aecbb372212856ff9b --- tests/object-system.test (.../object-system.test) (revision 3c1482d9e1f80f0216250f5debade5d8edb1b17e) +++ tests/object-system.test (.../object-system.test) (revision 7fa23e7c8614d6b90f8502aecbb372212856ff9b) @@ -1,8 +1,5 @@ # -*- Tcl -*- -package require nx -::nsf::configure dtrace on - # # Basic tests of the object system, should not require Class Test, # since even class Test might not work at that time. @@ -19,6 +16,14 @@ } } +package req nsf + +? {string first [nsf::pkgconfig get version] [nsf::pkgconfig get patchLevel]} 0 + +package require nx + +::nsf::configure dtrace on + ? {::nsf::configure objectsystems} {{::nx::Object ::nx::Class {-class.alloc {__alloc ::nsf::methods::class::alloc 1} -class.create create -class.dealloc {__dealloc ::nsf::methods::class::dealloc 1} -class.configureparameter __class_configureparameter -class.recreate {__recreate ::nsf::methods::class::recreate 1} -object.configure __configure -object.configureparameter __object_configureparameter -object.defaultmethod {defaultmethod ::nsf::methods::object::defaultmethod} -object.destroy destroy -object.init {init ::nsf::methods::object::init} -object.move move -object.unknown unknown}}} ? {::nsf::object::exists nx::Object} 1