# Copyright (c) 2006 bivio Software, Inc.  All Rights Reserved.
# $Id: default-tuple.btest,v 1.4 2008/03/19 19:20:05 nagler Exp $
test_setup('PetShop');
home_page();
my($user) = generate_local_email('tuple_user');
login_as($user);
do_test_backdoor(SQL => '-realm tuple_forum delete_all_tuples');
visit_uri('tuple_forum/db-tables');
follow_link_in_table(qw(table requests));
verify_text(qr{no database records}i);
my($forum) = generate_remote_email('tuple_forum');
my($msg) = send_mail($user, $forum);
verify_local_mail($user);
go_back();
follow_link_in_table(qw(table requests));
follow_link_in_table(qw(action history));
verify_text(${$msg->get_body} =~ /^([^\n\r]+)/);