function testsperengine()
{
global $tests;
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "perform generic bean manipulation";
$ok = 1;
$bean = RedBean_OODB::dispense("note");
$bean->message = "hai";
$bean->color = 3;
$bean->date = time();
$bean->special = 'n';
$bean->state = 90;
RedBean_OODB::set($bean);
$bean2 = RedBean_OODB::getById("note", 1);
if ($bean2->state != 90 || $bean2->special != 'n' || $bean2->message != 'hai') {
$ok = 0;
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$bean->message = "lorem ipsum";
RedBean_OODB::set($bean);
$bean->message = 1;
$bean->color = "green";
$bean->date = str_repeat("BLABLA", 100);
RedBean_OODB::set($bean);
$note = $bean;
SmartTest::instance()->progress();
$person = RedBean_OODB::dispense("person");
$person->age = 50;
$person->name = "Bob";
$person->gender = "m";
RedBean_OODB::set($person);
RedBean_OODB::associate($person, $note);
$memo = RedBean_OODB::getById("note", 1);
$authors = RedBean_OODB::getAssoc($memo, "person");
if (count($authors) !== 1) {
SmartTest::failedTest();
}
RedBean_OODB::trash($authors[1]);
$authors = RedBean_OODB::getAssoc($memo, "person");
if (count($authors) > 0) {
$ok = 0;
}
if (!$ok) {
SmartTest::failedTest();
}
//unit tests
//drop the note table
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "dispense an RedBean_OODB Bean";
$oBean = RedBean_OODB::dispense();
if (!$oBean instanceof OODBBean) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "put a bean in the database";
$person = RedBean_OODB::dispense("person");
$person->name = "John";
$person->age = 35;
$person->gender = "m";
$person->hasJob = true;
$id = RedBean_OODB::set($person);
$johnid = $id;
$person2 = RedBean_OODB::getById("person", $id);
if ($person2->age != $person->age) {
SmartTest::failedTest();
}
$person2->anotherprop = 2;
RedBean_OODB::set($person2);
$person = RedBean_OODB::dispense("person");
$person->name = "Bob";
$person->age = 50;
$person->gender = "m";
$person->hasJob = false;
$bobid = RedBean_OODB::set($person);
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "find records on basis of similarity";
$ids = RedBean_OODB::getBySQL("`gender`={gender} order by `name` asc", array("gender" => "m"), "person");
if (count($ids) != 2) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$ids = RedBean_OODB::getBySQL("`gender`={gender} OR `color`={clr} ", array("gender" => "m", "clr" => "red"), "person");
if (count($ids) != 0) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$ids = RedBean_OODB::getBySQL("`gender`={gender} AND `color`={clr} ", array("gender" => "m", "clr" => "red"), "person");
if (count($ids) != 0) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
R::gen("Person");
$dummy = new Person();
$dummy->age = 40;
SmartTest::instance()->test(count(Person::find($dummy, array("age" => ">"))), 1);
$dummy->age = 20;
SmartTest::instance()->test(count(Person::find($dummy, array("age" => ">"))), 2);
$dummy->age = 100;
SmartTest::instance()->test(count(Person::find($dummy, array("age" => ">"))), 0);
$dummy->age = 100;
SmartTest::instance()->test(count(Person::find($dummy, array("age" => "<="))), 2);
$dummy->name = "ob";
SmartTest::instance()->test(count(Person::find($dummy, array("name" => "LIKE"))), 1);
$dummy->name = "o";
SmartTest::instance()->test(count(Person::find($dummy, array("name" => "LIKE"))), 2);
$dummy->gender = "m";
SmartTest::instance()->test(count(Person::find($dummy, array("gender" => "="))), 2);
$dummy->gender = "f";
SmartTest::instance()->test(count(Person::find($dummy, array("gender" => "="))), 0);
SmartTest::instance()->test(count(Person::listAll()), 2);
SmartTest::instance()->test(count(Person::listAll(0, 1)), 1);
SmartTest::instance()->test(count(Person::listAll(1)), 1);
$can = Person::where("`gender`={gender} order by `name` asc", array("gender" => "m"), "person");
//test array access
foreach ($can as $item) {
if ($item->getName() == "Bob" || $item->getName() == "John") {
SmartTest::instance()->progress();
} else {
SmartTest::failedTest();
}
}
//test array access
$bean = $can[0];
if ($bean->name == "Bob") {
SmartTest::instance()->progress();
} else {
SmartTest::failedTest();
}
if ($can->count() != 2) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$can->rewind();
SmartTest::instance()->test($can->key(), 0);
SmartTest::instance()->test($can->valid(), true);
SmartTest::instance()->test($can->current()->getName(), "Bob");
$can->next();
SmartTest::instance()->test($can->key(), 1);
SmartTest::instance()->test($can->valid(), false);
SmartTest::instance()->test($can->current()->getName(), "John");
$can->seek(0);
SmartTest::instance()->test($can->key(), 0);
$beans = $can->getBeans();
if (count($beans) != 2) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
//test slicing
$can->slice(0, 1);
$can->rewind();
SmartTest::instance()->test($can->current()->getName(), "Bob");
SmartTest::instance()->test($can->count(), 1);
$b1 = array_shift($beans);
if ($b1->name != "Bob") {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
//basic functionality where()
$beans = Person::where("`gender`={gender} order by `name` asc", array("gender" => "m"), "person")->getBeans();
if (count($beans) != 2) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
//without backticks should still work
$beans = Person::where("gender={person} order by `name` asc", array("person" => "m"), "person")->getBeans();
if (count($beans) != 2) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
//like comparing should still work
$beans = Person::where("gender={gender} and `name` LIKE {name} order by `name` asc", array("gender" => "m", "name" => "B%"), "person")->getBeans();
if (count($beans) != 1) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$searchBean = RedBean_OODB::dispense("person");
$searchBean->gender = "m";
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "associate beans with eachother?";
$app = RedBean_OODB::dispense("appointment");
$app->kind = "dentist";
RedBean_OODB::set($app);
RedBean_OODB::associate($person2, $app);
$appforbob = array_shift(RedBean_OODB::getAssoc($person2, "appointment"));
if (!$appforbob || $appforbob->kind != "dentist") {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "delete a bean?";
$person = RedBean_OODB::getById("person", $bobid);
RedBean_OODB::trash($person);
try {
$person = RedBean_OODB::getById("person", $bobid);
$ok = 0;
} catch (ExceptionFailedAccessBean $e) {
$ok = true;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "unassociate two beans?";
$john = RedBean_OODB::getById("person", $johnid);
//hmmmmmm gaat mis bij innodb
$app = RedBean_OODB::getById("appointment", 1);
RedBean_OODB::unassociate($john, $app);
$john2 = RedBean_OODB::getById("person", $johnid);
$appsforjohn = RedBean_OODB::getAssoc($john2, "appointment");
if (count($appsforjohn) > 0) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "unassociate by deleting a bean?";
$anotherdrink = RedBean_OODB::dispense("whisky");
$anotherdrink->name = "bowmore";
$anotherdrink->age = 18;
$anotherdrink->singlemalt = 'y';
RedBean_OODB::set($anotherdrink);
RedBean_OODB::associate($anotherdrink, $john);
$hisdrinks = RedBean_OODB::getAssoc($john, "whisky");
if (count($hisdrinks) !== 1) {
SmartTest::failedTest();
}
RedBean_OODB::trash($anotherdrink);
$hisdrinks = RedBean_OODB::getAssoc($john, "whisky");
if (count($hisdrinks) !== 0) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "create parent child relationships?";
$pete = RedBean_OODB::dispense("person");
$pete->age = 48;
$pete->gender = "m";
$pete->name = "Pete";
$peteid = RedBean_OODB::set($pete);
$rob = RedBean_OODB::dispense("person");
$rob->age = 19;
$rob->name = "Rob";
$rob->gender = "m";
$saskia = RedBean_OODB::dispense("person");
$saskia->age = 20;
$saskia->name = "Saskia";
$saskia->gender = "f";
RedBean_OODB::set($saskia);
RedBean_OODB::set($rob);
RedBean_OODB::addChild($pete, $rob);
RedBean_OODB::addChild($pete, $saskia);
$children = RedBean_OODB::getChildren($pete);
$names = 0;
if (is_array($children) && count($children) === 2) {
foreach ($children as $child) {
if ($child->name === "Rob") {
$names++;
}
if ($child->name === "Saskia") {
$names++;
}
}
}
if (!$names) {
SmartTest::failedTest();
}
$daddies = RedBean_OODB::getParent($saskia);
$daddy = array_pop($daddies);
if ($daddy->name === "Pete") {
$ok = 1;
} else {
$ok = 0;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "remove a child from a parent-child tree?";
RedBean_OODB::removeChild($daddy, $saskia);
$children = RedBean_OODB::getChildren($pete);
$ok = 0;
if (count($children) === 1) {
$only = array_pop($children);
if ($only->name === "Rob") {
$ok = 1;
}
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "save on the fly while associating?";
$food = RedBean_OODB::dispense("dish");
$food->name = "pizza";
RedBean_OODB::associate($food, $pete);
$petesfood = RedBean_OODB::getAssoc($pete, "food");
if (is_array($petesfood) && count($petesfood) === 1) {
$ok = 1;
}
if (!$ok) {
SmartTest::failedTest();
}
//some extra tests... quick without further notice.
$food = RedBean_OODB::dispense("dish");
$food->name = "spaghetti";
RedBean_OODB::trash($food);
//test aggregation functions
//insert stat table
$s = RedBean_OODB::dispense("stattest");
$s->amount = 1;
RedBean_OODB::set($s);
$s = RedBean_OODB::dispense("stattest");
$s->amount = 2;
RedBean_OODB::set($s);
$s = RedBean_OODB::dispense("stattest");
$s->amount = 3;
RedBean_OODB::set($s);
SmartTest::instance()->testPack = "can we use aggr functions using Redbean?";
if (RedBean_OODB::numberof("stattest") != 3) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (RedBean_OODB::maxof("stattest", "amount") != 3) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (RedBean_OODB::minof("stattest", "amount") != 1) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (RedBean_OODB::avgof("stattest", "amount") != 2) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (RedBean_OODB::sumof("stattest", "amount") != 6) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (count(RedBean_OODB::distinct("stattest", "amount")) != 3) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
RedBean_OODB::setLocking(true);
$i = 3;
SmartTest::instance()->testPack = "generate only valid classes?";
try {
$i += RedBean_OODB::gen("");
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//nothing
try {
$i += RedBean_OODB::gen(".");
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//illegal chars
try {
$i += RedBean_OODB::gen(",");
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//illegal chars
try {
$i += RedBean_OODB::gen("null");
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//keywords
try {
$i += RedBean_OODB::gen("Exception");
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//reserved
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "generate classes using Redbean?";
if (!class_exists("Bug")) {
$i += RedBean_OODB::gen("Bug");
if ($i !== 4) {
SmartTest::failedTest();
}
} else {
if ($i !== 3) {
SmartTest::failedTest();
}
}
if (!class_exists("Bug")) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "use getters and setters";
$bug = new Bug();
$bug->setSomething(sha1("abc"));
if ($bug->getSomething() != sha1("abc")) {
SmartTest::failedTest();
}
//can we use non existing props? --triggers fatal..
$bug->getHappy();
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "Use boolean values and retrieve them with is()?";
if ($bug->isHappy()) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$bug->setHappy(true);
$bug->save();
$bug = new Bug(1);
if (!$bug->isHappy()) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$bug->setHappy(false);
if ($bug->isHappy()) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "avoid race-conditions by locking?";
RedBean_OODB::gen("Cheese,Wine");
$cheese = new Cheese();
$cheese->setName('Brie');
$cheese->save();
$cheese = new Cheese(1);
//try to mess with the locking system...
$oldkey = RedBean_OODB::$pkey;
RedBean_OODB::$pkey = 1234;
$cheese = new Cheese(1);
$cheese->setName("Camembert");
$ok = 0;
try {
$cheese->save();
} catch (ExceptionFailedAccessBean $e) {
$ok = 1;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
$bordeaux = new Wine();
$bordeaux->setRegion("Bordeaux");
try {
$bordeaux->add($cheese);
} catch (ExceptionFailedAccessBean $e) {
$ok = 1;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
try {
$bordeaux->attach($cheese);
} catch (ExceptionFailedAccessBean $e) {
$ok = 1;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
try {
$bordeaux->add(new Wine());
$ok = 1;
} catch (ExceptionFailedAccessBean $e) {
$ok = 0;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
RedBean_OODB::$pkey = $oldkey;
$cheese = new Cheese(1);
$cheese->setName("Camembert");
$ok = 0;
try {
$cheese->save();
$ok = 1;
} catch (ExceptionFailedAccessBean $e) {
$ok = 0;
}
if (!$ok) {
SmartTest::failedTest();
}
SmartTest::instance()->progress();
try {
RedBean_OODB::$pkey = 999;
RedBean_OODB::setLockingTime(0);
$cheese = new Cheese(1);
$cheese->setName("Cheddar");
$cheese->save();
RedBean_OODB::setLockingTime(10);
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
try {
RedBean_OODB::$pkey = 123;
RedBean_OODB::setLockingTime(100);
$cheese = new Cheese(1);
$cheese->setName("Cheddar2");
$cheese->save();
RedBean_OODB::setLockingTime(10);
SmartTest::failedTest();
} catch (Exception $e) {
SmartTest::instance()->progress();
}
try {
RedBean_OODB::$pkey = 42;
RedBean_OODB::setLockingTime(0);
$cheese = new Cheese(1);
$cheese->setName("Cheddar3");
$cheese->save();
RedBean_OODB::setLockingTime(10);
SmartTest::instance()->progress();
} catch (Exception $e) {
SmartTest::failedTest();
}
//test value ranges
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "protect inner state of RedBean";
try {
RedBean_OODB::setLockingTime(-1);
SmartTest::failedTest();
} catch (ExceptionInvalidArgument $e) {
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "protect inner state of RedBean";
try {
RedBean_OODB::setLockingTime(1.5);
SmartTest::failedTest();
} catch (ExceptionInvalidArgument $e) {
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "protect inner state of RedBean";
try {
RedBean_OODB::setLockingTime("aaa");
SmartTest::failedTest();
} catch (ExceptionInvalidArgument $e) {
}
SmartTest::instance()->progress();
SmartTest::instance()->testPack = "protect inner state of RedBean";
try {
RedBean_OODB::setLockingTime(null);
SmartTest::failedTest();
} catch (ExceptionInvalidArgument $e) {
}
SmartTest::instance()->progress();
//test convenient tree functions
SmartTest::instance()->testPack = "convient tree functions";
if (!class_exists("Person")) {
RedBean_OODB::gen("person");
}
$donald = new Person();
$donald->setName("Donald");
$donald->save();
$kwik = new Person();
$kwik->setName("Kwik");
$kwik->save();
$kwek = new Person();
$kwek->setName("Kwek");
$kwek->save();
$kwak = new Person();
$kwak->setName("Kwak");
$kwak->save();
$donald->attach($kwik);
$donald->attach($kwek);
$donald->attach($kwak);
if (count($donald->children()) != 3) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if (count($kwik->siblings()) != 2) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
//todo
if ($kwik->hasParent($donald) != true) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($donald->hasParent($kwak) != false) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($donald->hasChild($kwak) != true) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($donald->hasChild($donald) != false) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($kwak->hasChild($kwik) != false) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($kwak->hasSibling($kwek) != true) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($kwak->hasSibling($kwak) != false) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($kwak->hasSibling($donald) != false) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
//copy
SmartTest::instance()->testPack = "copy functions";
$kwak2 = $kwak->copy();
$id = $kwak2->save();
$kwak2 = new Person($id);
if ($kwak->getName() != $kwak2->getName()) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
SmartTest::instance()->testPack = "countRelated";
R::gen("Blog,Comment");
$blog = new Blog();
$blog2 = new Blog();
$blog->setTitle("blog1");
$blog2->setTitle("blog2");
for ($i = 0; $i < 5; $i++) {
$comment = new Comment();
$comment->setText("comment no. {$i} ");
$blog->add($comment);
}
for ($i = 0; $i < 3; $i++) {
$comment = new Comment();
$comment->setText("comment no. {$i} ");
$blog2->add($comment);
}
if ($blog->numofComment() !== 5) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($blog2->numofComment() !== 3) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
SmartTest::instance()->testPack = "associate tables of the same name";
$blog = new Blog();
$blogb = new Blog();
$blog->title = 'blog a';
$blogb->title = 'blog b';
$blog->add($blogb);
$b = $blog->getRelatedBlog();
if (count($b) !== 1) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$b = array_pop($b);
if ($b->title != 'blog b') {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
SmartTest::instance()->testPack = "inferTypeII patch";
$blog->rating = 4294967295.0;
$blog->save();
$id = $blog->getID();
$blog2->rating = -1;
$blog2->save();
$blog = new Blog($id);
if ($blog->getRating() != 4294967295.0) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
SmartTest::instance()->testPack = "Longtext column type";
$blog->message = str_repeat("x", 65535);
$blog->save();
$blog = new Blog($id);
if (strlen($blog->message) != 65535) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$rows = RedBean_OODB::$db->get("describe blog");
if ($rows[3]["Type"] != "text") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$blog->message = str_repeat("x", 65536);
$blog->save();
$blog = new Blog($id);
if (strlen($blog->message) != 65536) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$rows = RedBean_OODB::$db->get("describe blog");
if ($rows[3]["Type"] != "longtext") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
Redbean_OODB::clean();
SmartTest::instance()->testPack = "Export";
RedBean_OODB::gen("justabean");
$oBean = new JustABean();
$oBean->setA("a");
$oOtherBean = new OODBBean();
$oOtherBean->a = "b";
$oBean2 = new OODBBean();
$oBean->exportTo($oBean2);
if ($oBean2->a !== "a") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$oBean2 = $oBean->exportTo($oBean2);
if ($oBean2->a !== "a") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$oBean->exportTo($oBean2, $oOtherBean);
if ($oBean2->a !== "b") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$arr = array();
$oBean->exportTo($arr);
if ($arr["a"] !== "a") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$arr = array();
$arr = $oBean->exportTo($arr);
if ($arr["a"] !== "a") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
$arr = $oBean->exportTo($arr, $oOtherBean);
if ($arr["a"] !== "b") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
SmartTest::instance()->testPack = "Export Array";
$oBean->a = "a";
$oInnerBean = new JustABean();
$oInnerBean->setID(123);
$oBean->innerbean = $oInnerBean;
$arr = $oBean->exportAsArr();
if (!is_array($arr)) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($arr["innerbean"] !== 123) {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
if ($arr["a"] !== "a") {
SmartTest::failedTest();
} else {
SmartTest::instance()->progress();
}
//test 1-to-n
SmartTest::instance()->testPack = "1-to-n relations";
R::gen("Track,Disc");
$cd1 = new Disc();
$cd1->name = 'first';
$cd1->save();
$cd2 = new Disc();
$cd2->name = 'second';
$cd2->save();
$track = new Track();
$track->title = "song 1";
$track->belongsTo($cd1);
$discs = $track->getRelatedDisc();
SmartTest::instance()->test(count($discs), 1);
$track->belongsTo($cd2);
$discs = $track->getRelatedDisc();
SmartTest::instance()->test(count($discs), 1);
$track2 = new Track();
$track2->title = "song 2";
$cd1->exclusiveAdd($track2);
SmartTest::instance()->test(count($track->getRelatedDisc()), 1);
$cd2->exclusiveAdd($track2);
SmartTest::instance()->test(count($track->getRelatedDisc()), 1);
}
die("<b style='color:red'>Error CANNOT:" . SmartTest::instance()->canwe);
} else {
SmartTest::instance()->progress();
}
testsperengine();
RedBean_OODB::setEngine("innodb");
testsperengine();
SmartTest::instance()->progress();
SmartTest::instance()->canwe = "clean up the database?";
//insert garbage tables
$db->exec(" CREATE TABLE `oodb`.`garbage1` (\n\t\t\t`a` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`b` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`c` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`d` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`e` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`f` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`g` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`h` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`i` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`j` VARCHAR( 11 ) NOT NULL\n\t\t\t) ENGINE = MYISAM ");
//insert garbage tables
$db->exec(" CREATE TABLE `oodb`.`garbage2` (\n\t\t\t`a` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`b` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`c` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`d` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`e` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`f` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`g` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`h` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`i` VARCHAR( 11 ) NOT NULL ,\n\t\t\t`j` VARCHAR( 11 ) NOT NULL\n\t\t\t) ENGINE = MYISAM ");
$db->exec("INSERT INTO `oodb`.`garbage1` (\n\t\t\t`a` ,\n\t\t\t`b` ,\n\t\t\t`c` ,\n\t\t\t`d` ,\n\t\t\t`e` ,\n\t\t\t`f` ,\n\t\t\t`g` ,\n\t\t\t`h` ,\n\t\t\t`i` ,\n\t\t\t`j`\n\t\t\t)\n\t\t\tVALUES (\n\t\t\t'aaa', 'bbb', 'cccc', 'dddd', 'eee', '', 'fff', 'ggg', '', 'hhh'\n\t\t\t);\n");
Redbean_OODB::addTable("garbage1");
Redbean_OODB::addTable("garbage2");
$cols = $db->get("describe garbage1");
$ok = 0;
if (count($cols) === 10) {
SmartTest::instance()->progress();
}
if (RedBean_OODB::gc()) {
SmartTest::instance()->progress();
}
for ($i = 0; $i < 100; $i++) {
RedBean_OODB::gc();
}
$cols = $db->get("describe garbage1");
if (count($cols) === 8) {
$ok = 1;
SmartTest::instance()->progress();