#!/usr/bin/perl
run sub ($) {
	my $this=shift;
	
	my @tests=$this->super;

	# Remember this method is run on the root of the mooix object tree,
	# not the t sub-object. So ask the t sub-object for its list (that
	# object is a thingset, because the root of the tree is), and call
	# their test_lists.
	foreach my $obj ($this->t->list) {
		push @tests, $obj->test_list;
	}

	return @tests;
}
