Bug 11672: (regression test) get_report_areas gets tested

This patch introduces a unit test for the new get_report_areas functionality.

To try it, run
  $ prove t/db_dependent/Reports_Guided.t

It is expected to have 16 tests defined, and to fail the introduced one

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

t/db_dependent/Reports_Guided.t

@@ -1,11 +1,23 @@
 #!/usr/bin/perl
+
+# This file is part of Koha.
 #
-# This Koha test module is a stub!
+# Koha is free software; you can redistribute it and/or modify it
-# Add more tests here!!!
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
 
-use Test::More tests => 15;
+use Test::More tests => 16;
 
 use C4::Context;
 
@@ -98,6 +110,9 @@ ok(
     'attempting to run a report with an SQL syntax error returns error message (Bug 12214)'
 );
 
+is_deeply( get_report_areas(), [ 'CIRC', 'CAT', 'PAT', 'ACQ', 'ACC' ],
+    "get_report_areas returns the correct array of report areas");
+
 #End transaction
 $dbh->rollback;