+my (%classdata)=split /\n/, BeerDB->call_url("http://localhost/beerdb/beer/classdata");
+is ($classdata{plural},'beers','classdata.plural');
+is ($classdata{moniker},'beer','classdata.moniker');
+like ($classdata{cgi},qr/^HTML::Element/,'classdata.cgi');
+is ($classdata{table},'beer','classdata.table');
+is ($classdata{name},'BeerDB::Beer','classdata.name');
+is ($classdata{colnames},'Abv','classdata.colnames');
+is($classdata{columns}, 'abv brewery id name notes price score style url',
+ 'classdata.columns');
+is($classdata{list_columns}, 'score name price style brewery url',
+ 'classdata.list_columns');
+is ($classdata{related_accessors},'pubs','classdata.related_accessors');
+
+# test Maypole::load_custom_class()
+can_ok(BeerDB::Beer => 'fooey'); # defined in BeerDB::Beer
+can_ok(BeerDB::Beer => 'floob'); # defined in BeerDB::Base
+is_deeply( [@BeerDB::Beer::ISA], [qw/Maypole::Model::CDBI Class::DBI::SQLite BeerDB::Base/] );