<?php
global $err_count;
$err_count = 0;

	function found($obj, $cond)
	{
		$res = var_export($obj, true);
		return (strpos($res, $cond));
	}

	function notfound($obj, $cond)
	{
		return !found($obj, $cond);
	}

	function ar_assert($bool)
	{
		global $err_count;
		if(!$bool)
			$err_count ++;
		return $bool;
	}

		define('WEB', true);
	function ar_echo($txt)
	{
		if(WEB)
			$txt = str_replace("\n", "<br />\n", $txt);
		echo $txt;
	}

	include_once('../adodb.inc.php');
	include_once('../adodb-active-recordx.inc.php');


	$db = NewADOConnection('mysql://root@localhost/test');
	$db->debug=0;
	ADOdb_Active_Record::SetDatabaseAdapter($db);

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("Preparing database using SQL queries (creating 'people', 'children')\n");

	$db->Execute("DROP TABLE `people`");
	$db->Execute("DROP TABLE `children`");
	$db->Execute("DROP TABLE `artists`");
	$db->Execute("DROP TABLE `songs`");

	$db->Execute("CREATE TABLE `people` (
	                `id` int(10) unsigned NOT NULL auto_increment,
	                `name_first` varchar(100) NOT NULL default '',
	                `name_last` varchar(100) NOT NULL default '',
	                `favorite_color` varchar(100) NOT NULL default '',
	                PRIMARY KEY  (`id`)
	            ) ENGINE=MyISAM;
	           ");
	$db->Execute("CREATE TABLE `children` (
					`person_id` int(10) unsigned NOT NULL,
	                `name_first` varchar(100) NOT NULL default '',
	                `name_last` varchar(100) NOT NULL default '',
	                `favorite_pet` varchar(100) NOT NULL default '',
	                `id` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`id`)
	            ) ENGINE=MyISAM;
	           ");

	$db->Execute("CREATE TABLE `artists` (
	                `name` varchar(100) NOT NULL default '',
	                `artistuniqueid` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`artistuniqueid`)
	            ) ENGINE=MyISAM;
	           ");

	$db->Execute("CREATE TABLE `songs` (
	                `name` varchar(100) NOT NULL default '',
	                `artistid` int(10) NOT NULL,
	                `recordid` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`recordid`)
	            ) ENGINE=MyISAM;
	           ");

	$db->Execute("insert into children (person_id,name_first,name_last,favorite_pet) values (1,'Jill','Lim','tortoise')");
	$db->Execute("insert into children (person_id,name_first,name_last) values (1,'Joan','Lim')");
	$db->Execute("insert into children (person_id,name_first,name_last) values (1,'JAMIE','Lim')");

	$db->Execute("insert into artists (artistuniqueid, name) values(1,'Elvis Costello')");
	$db->Execute("insert into songs (recordid, name, artistid) values(1,'No Hiding Place', 1)");
	$db->Execute("insert into songs (recordid, name, artistid) values(2,'American Gangster Time', 1)");

	// This class _implicitely_ relies on the 'people' table (pluralized form of 'person')
	class Person extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct();
			$this->hasMany('children');
		}
	}
	// This class _implicitely_ relies on the 'children' table
	class Child extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct();
			$this->belongsTo('person');
		}
	}
	// This class _explicitely_ relies on the 'children' table and shares its metadata with Child
	class Kid extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct('children');
			$this->belongsTo('person');
		}
	}
	// This class _explicitely_ relies on the 'children' table but does not share its metadata
	class Rugrat extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct('children', false, false, array('new' => true));
		}
	}

	class Artist extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct('artists', array('artistuniqueid'));
			$this->hasMany('songs', 'artistid');
		}
	}
	class Song extends ADOdb_Active_Record
	{
		function __construct()
		{
			parent::__construct('songs', array('recordid'));
			$this->belongsTo('artist', 'artistid');
		}
	}

	ar_echo("Inserting person in 'people' table ('John Lim, he likes lavender')\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	$person->name_first     = 'John';
	$person->name_last      = 'Lim';
	$person->favorite_color = 'lavender';
	$person->save(); // this save will perform an INSERT successfully

	$person = new Person();
	$person->name_first		= 'Lady';
	$person->name_last		= 'Cat';
	$person->favorite_color	= 'green';
	$person->save();

	$child = new Child();
	$child->name_first		= 'Fluffy';
	$child->name_last		= 'Cat';
	$child->favorite_pet	= 'Cat Lady';
	$child->person_id		= $person->id;
	$child->save();

	$child = new Child();
	$child->name_first		= 'Sun';
	$child->name_last		= 'Cat';
	$child->favorite_pet	= 'Cat Lady';
	$child->person_id		= $person->id;
	$child->save();

	$err_count = 0;

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("person->Find('id=1') [Lazy Method]\n");
	ar_echo("person is loaded but its children will be loaded on-demand later on\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	$people = $person->Find('id=1');
	ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo("\n-- Lazily Loading Children:\n\n");
	foreach($people as $aperson)
	{
		foreach($aperson->children as $achild)
		{
			if($achild->name_first);
		}
	}
	ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("person->Find('id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("person is loaded, and so are its children\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	$people = $person->Find('id=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("person->Find('id=1' ... ADODB_JOIN_AR) [Join Method]\n");
	ar_echo("person and its children are loaded using a single query\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	// When I specifically ask for a join, I have to specify which table id I am looking up
	// otherwise the SQL parser will wonder which table's id that would be.
	$people = $person->Find('people.id=1', false, false, array('loading' => ADODB_JOIN_AR));
	ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("person->Load('people.id=1') [Join Method]\n");
	ar_echo("Load() always uses the join method since it returns only one row\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	// Under the hood, Load(), since it returns only one row, always perform a join
	// Therefore we need to clarify which id we are talking about.
	$person->Load('people.id=1');
	ar_echo((ar_assert(found($person, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($person, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
	ar_echo((ar_assert(found($person, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($person, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("child->Load('children.id=1') [Join Method]\n");
	ar_echo("We are now loading from the 'children' table, not from 'people'\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$child = new Child();
	$child->Load('children.id=1');
	ar_echo((ar_assert(found($child, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($child, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("child->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$child = new Child();
	$children = $child->Find('id=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($children, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($children, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
	ar_echo((ar_assert(notfound($children, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($children, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("kid->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("Where we see that kid shares relationships with child because they are stored\n");
	ar_echo("in the common table's metadata structure.\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$kid = new Kid('children');
	$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("kid->Find('children.id=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
	ar_echo("Of course, lazy loading also retrieve medata information...\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$kid = new Kid('children');
	$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_LAZY_AR));
	ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($kids, "'favorite_color' => 'lavender'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo("\n-- Lazily Loading People:\n\n");
	foreach($kids as $akid)
	{
		if($akid->person);
	}
	ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("rugrat->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("In rugrat's constructor it is specified that\nit must forget any existing relation\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$rugrat = new Rugrat('children');
	$rugrats = $rugrat->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($rugrats, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($rugrats, "'favorite_color' => 'lavender'"))) ? "[OK] No relation found\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($rugrats, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($rugrats, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("kid->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("Note how only rugrat forgot its relations - kid is fine.\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$kid = new Kid('children');
	$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] I did not forget relation: person\n" : "[!!] I should not have forgotten relation: person\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("rugrat->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$rugrat = new Rugrat('children');
	$rugrats = $rugrat->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
	$arugrat = $rugrats[0];
	ar_echo((ar_assert(found($arugrat, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($arugrat, "'favorite_color' => 'lavender'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");

	ar_echo("\n-- Loading relations:\n\n");
	$arugrat->belongsTo('person');
	$arugrat->LoadRelations('person', 'order by id', 0, 2);
	ar_echo((ar_assert(found($arugrat, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
	ar_echo((ar_assert(found($arugrat, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($arugrat, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($arugrat, "'name_first' => 'JAMIE'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("person->Find('1=1') [Lazy Method]\n");
	ar_echo("And now for our finale...\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$person = new Person();
	$people = $person->Find('1=1', false, false, array('loading' => ADODB_LAZY_AR));
	ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
	ar_echo((ar_assert(notfound($people, "'name_first' => 'Fluffy'"))) ? "[OK] No Fluffy yet\n" : "[!!] Found Fluffy relation when I shouldn't\n");
	ar_echo("\n-- Lazily Loading Everybody:\n\n");
	foreach($people as $aperson)
	{
		foreach($aperson->children as $achild)
		{
			if($achild->name_first);
		}
	}
	ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Lady'"))) ? "[OK] Found Cat Lady\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Fluffy'"))) ? "[OK] Found Fluffy\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($people, "'name_first' => 'Sun'"))) ? "[OK] Found Sun\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("artist->Load('artistuniqueid=1') [Join Method]\n");
	ar_echo("Yes, we are dabbling in the musical field now..\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$artist = new Artist();
	$artist->Load('artistuniqueid=1');
	ar_echo((ar_assert(found($artist, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($artist, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");


	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("song->Load('recordid=1') [Join Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$song = new Song();
	$song->Load('recordid=1');
	ar_echo((ar_assert(found($song, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("artist->Find('artistuniqueid=1' ... ADODB_JOIN_AR) [Join Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$artist = new Artist();
	$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_JOIN_AR));
	ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("song->Find('recordid=1' ... ADODB_JOIN_AR) [Join Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$song = new Song();
	$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_JOIN_AR));
	ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("artist->Find('artistuniqueid=1' ... ADODB_WORK_AR) [Work Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$artist = new Artist();
	$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("song->Find('recordid=1' ... ADODB_JOIN_AR) [Join Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$song = new Song();
	$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_WORK_AR));
	ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("artist->Find('artistuniqueid=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$artist = new Artist();
	$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_LAZY_AR));
	ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($artists, "'name' => 'No Hiding Place'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
	foreach($artists as $anartist)
	{
		foreach($anartist->songs as $asong)
		{
			if($asong->name);
		}
	}
	ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("song->Find('recordid=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
	$song = new Song();
	$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_LAZY_AR));
	ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");
	ar_echo((ar_assert(notfound($songs, "'name' => 'Elvis Costello'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
	foreach($songs as $asong)
	{
		if($asong->artist);
	}
	ar_echo((ar_assert(found($songs, "'name' => 'Elvis Costello'"))) ? "[OK] Found relation: artist\n" : "[!!] Missing relation: artist\n");

	ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
	ar_echo("Test suite complete. " . (($err_count > 0) ? "$err_count errors found.\n" : "Success.\n"));
	ar_echo("-------------------------------------------------------------------------------------------------------------------\n");