diff options
| author | Mark Wells <mark@freeside.biz> | 2015-08-04 11:50:54 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-08-04 11:50:54 -0700 |
| commit | b25efe03cc7945773363ba74e2012646c258a1b5 (patch) | |
| tree | 0e90adf3a80fc8824d24d9594bc6ed405e6ecaf2 /FS-Test/lib/FS/Test.pm | |
| parent | 600e9b690d7649e8cde7a9a4cd1089fcb432d238 (diff) | |
migrate test database from 3.x
Diffstat (limited to 'FS-Test/lib/FS/Test.pm')
| -rw-r--r-- | FS-Test/lib/FS/Test.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/FS-Test/lib/FS/Test.pm b/FS-Test/lib/FS/Test.pm index 673b8c572..445fdb62c 100644 --- a/FS-Test/lib/FS/Test.pm +++ b/FS-Test/lib/FS/Test.pm @@ -74,8 +74,16 @@ sub new { $self->mech( WWW::Mechanize->new( autocheck => 0 ) ); - #freeside v3 - $self->mech->credentials( $self->user, $self->pass ); + #freeside v4_ + my $login = $self->fsurl . '/index.html'; + $self->mech->get($login) + or die "FS::Test->new: couldn't fetch $login"; + $self->mech->submit_form( + with_fields => { + credential_0 => $self->user, + credential_1 => $self->pass, + }, + ); return $self; } |