getMessage(), 'Unknown feature set label.' ); } try { R::nuke(); fail(); } catch( \Exception $e ) { asrt( $e->getMessage(), 'The nuke() command has been disabled using noNuke() or R::feature(novice/...).' ); } R::useFeatureSet('latest'); //Close R::getDatabaseAdapter()->setOption( 'setInitQuery', NULL ); asrt( R::getDatabaseAdapter()->getDatabase()->isConnected(), TRUE ); R::close(); asrt( R::getDatabaseAdapter()->getDatabase()->isConnected(), FALSE ); } }