diff options
| author | Mark Wells <mark@freeside.biz> | 2015-08-04 11:50:54 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-08-04 12:01:41 -0700 |
| commit | c74b42b224629ad2657ba3ac912ec60e9f1508ae (patch) | |
| tree | 064c0049e77a4bf8ec3f8af0a8a0171ef5808922 /FS-Test/lib | |
| parent | 82090fc595a4c7b1d03fe3d6e0039b06f0bc9ede (diff) | |
migrate test database from 3.x
Diffstat (limited to 'FS-Test/lib')
| -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; } |