aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/TestMech.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
-rw-r--r--perllib/FixMyStreet/TestMech.pm25
1 files changed, 0 insertions, 25 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm
index eef767ce6..188e99a5c 100644
--- a/perllib/FixMyStreet/TestMech.pm
+++ b/perllib/FixMyStreet/TestMech.pm
@@ -485,31 +485,6 @@ sub extract_problem_list {
return $result->{ problems } || [];
}
-=head2 extract_report_stats
-
- $stats = $mech->extract_report_stats
-
-Returns a hash ref keyed by council name of all the council stats from the all reports
-page. Each value is an array ref with the first element being the council name and the
-rest being the stats in the order the appear in each row.
-
-=cut
-
-sub extract_report_stats {
- my $mech = shift;
-
- my $result = scraper {
- process 'tr[align=center]', 'councils[]' => scraper {
- process 'td.title a', 'council', 'TEXT',
- process 'td', 'stats[]', 'TEXT'
- }
- }->scrape( $mech->response );
-
- my %councils = map { $_->{council} => $_->{stats} } @{ $result->{councils} };
-
- return \%councils;
-}
-
=head2 visible_form_values
$hashref = $mech->visible_form_values( );