. * * For more information, contact Colosa Inc, 2566 Le Jeune Rd., * Coral Gables, FL, 33134, USA, or email info@colosa.com. * */ if ( !defined ('PATH_THIRDPARTY') ) { require_once( $_SERVER['PWD']. '/test/bootstrap/unit.php'); } require_once( PATH_THIRDPARTY . 'lime/lime.php'); define ( 'G_ENVIRONMENT', G_TEST_ENV); require_once( PATH_CORE . 'config' . PATH_SEP . 'environments.php'); global $G_ENVIRONMENTS; if ( isset ( $G_ENVIRONMENTS ) ) { $dbfile = $G_ENVIRONMENTS[ G_TEST_ENV ][ 'dbfile']; if ( !file_exists ( $dbfile ) ) { printf("%s \n", pakeColor::colorize( "dbfile $dbfile doesn't exist for environment " . G_ENVIRONMENT , 'ERROR')); exit (200); } else include ( $dbfile ); } else exit (201); require_once( PATH_GULLIVER . 'class.dbconnection.php'); require_once( PATH_GULLIVER . 'class.dbsession.php'); require_once( PATH_GULLIVER . 'class.dbrecordset.php'); $counter =1; $dbc = new DBConnection(); $ses = new DBSession( $dbc); $dset = $ses->Execute ( "SELECT * from APPLICATION" ); $method = array( ); $testItems = 0; $methods = get_class_methods('DBSession'); $t = new lime_test(8, new lime_output_color()); $t->diag('class DBSession' ); $t->is( count($methods) , 5, "class classDBSession " . 5 . " methods." ); $t->isa_ok( $ses , 'DBSession', 'class DBSession created'); $t->can_ok( $ses, 'DBSession', $counter++.' DBSession()'); $t->can_ok( $ses, 'setTo', $counter++.' Free()'); $t->can_ok( $ses, 'UseDB', $counter++.' UseDB()'); $t->can_ok( $ses, 'Execute', $counter++.' Execute()'); $t->can_ok( $ses, 'Free', $counter++.' Free()'); $t->todo( 'review all pendings in this class');