# Copyright (c) 2005 bivio Software, Inc.  All Rights Reserved.
# $Id: account.btest,v 1.4 2005/10/24 16:41:12 nagler Exp $
test_setup('PetShop');
home_page();
follow_link('Sign-in');
follow_link('New User');
#TODO: do_register, re-use name
submit_form(submit => {
    'Email:' => (generate_local_email(random_string()))[0],
    'Password:' => 'password',
    'First Name:' => 'test-first',
    'Last Name:' => 'test-last',
});
follow_link('MyAccount');
verify_text(qr/First Name:.*test-first.*Last Name:.*test-last/s);
submit_form(submit => {
    'First Name:' => 'test-start',
    'Last Name:' => 'test-end',
});
follow_link('MyAccount');
verify_text(qr/First Name:.*test-start.*Last Name:.*test-end/s);

test_deviance('text input must be a single line');
submit_form(submit => {
    'City:' => <<'EOF',
Multiple
Lines
of Text
EOF
});