Merge commit 'pianohacker-koha/prefs-submit' into master
[koha.git] / selenium / PERL / Members / AddMember.pl
1 use strict;
2 use warnings;
3 use Time::HiRes qw(sleep);
4 use Test::WWW::Selenium;
5 use Test::More "no_plan";
6 use Test::Exception;
7
8 my $sel = Test::WWW::Selenium->new( host => "localhost", 
9                                     port => 4444, 
10                                     browser => "*chrome", 
11                                     browser_url => "http://change-this-to-the-site-you-are-testing/" );
12
13 $sel->open_ok("/cgi-bin/koha/members/memberentry.pl?op=add&categorycode=PERS");
14 $sel->type_ok("surname", "Cocteau");
15 $sel->type_ok("firstname", "Jean");
16 $sel->type_ok("dateofbirth", "12/02/1967");
17 $sel->click_ok("sex-male");
18 $sel->select_ok("btitle", "label=Mr");
19 $sel->type_ok("address", "123, rue de la gaieté");
20 $sel->type_ok("city", "Marseille");
21 $sel->type_ok("cardnumber", "123141");
22 $sel->click_ok("save");
23 $sel->wait_for_page_to_load_ok("30000");
24 $sel->is_text_present_ok("Mr Jean Cocteau (123141)");