3 # Copyright 2015 Tamil s.a.r.l.
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25 use Test::More tests => 16;
30 use_ok('Koha::Sitemapper');
31 use_ok('Koha::Sitemapper::Writer');
36 open my $fh, '<', $file or die;
43 use Test::DBIx::Class;
49 [ qw/ biblionumber datecreated timestamp / ],
55 # Make the code in the module use our mocked Koha::Schema/Koha::Database
56 my $db = Test::MockModule->new('Koha::Database');
58 # Schema() gives us the DB connection set up by Test::DBIx::Class
59 _new_schema => sub { return Schema(); }
62 my $dir = File::Spec->tmpdir();
66 [ qw/ 1 2013-11-15 2013-11-15/ ],
67 [ qw/ 2 2015-08-31 2015-08-31/ ],
70 # Create a sitemap for a catalog containg 2 biblios, with option 'long url'
71 my $sitemapper = Koha::Sitemapper->new(
73 url => 'http://www.mylibrary.org',
79 my $file = "$dir/sitemapindex.xml";
80 ok( -e "$dir/sitemapindex.xml", "File sitemapindex.xml created");
81 my $file_content = slurp($file);
82 my $now = DateTime->now->ymd;
83 my $expected_content = <<EOS;
84 <?xml version="1.0" encoding="UTF-8"?>
86 <sitemapindex xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
88 <loc>http://www.mylibrary.org/sitemap0001.xml</loc>
89 <lastmod>$now</lastmod>
93 chop $expected_content;
94 is( $file_content, $expected_content, "Its content is valid" );
96 $file = "$dir/sitemap0001.xml";
97 ok( -e $file, "File sitemap0001.xml created");
98 $file_content = slurp($file);
99 $expected_content = <<EOS;
100 <?xml version="1.0" encoding="UTF-8"?>
102 <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd">
104 <loc>http://www.mylibrary.org/cgi-bin/koha/opac-detail.pl?biblionumber=1</loc>
105 <lastmod>2013-11-15</lastmod>
108 <loc>http://www.mylibrary.org/cgi-bin/koha/opac-detail.pl?biblionumber=2</loc>
109 <lastmod>2015-08-31</lastmod>
113 is( $file_content, $expected_content, "Its content is valid" );
116 # Create a sitemap for a catalog containg 2 biblios, with option 'short url'.
117 # Test that 2 files are created.
118 $sitemapper = Koha::Sitemapper->new(
120 url => 'http://www.mylibrary.org',
126 $file = "$dir/sitemap0001.xml";
127 ok( -e $file, "File sitemap0001.xml with short URLs created");
128 $file_content = slurp($file);
129 $expected_content = <<EOS;
130 <?xml version="1.0" encoding="UTF-8"?>
132 <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd">
134 <loc>http://www.mylibrary.org/bib/1</loc>
135 <lastmod>2013-11-15</lastmod>
138 <loc>http://www.mylibrary.org/bib/2</loc>
139 <lastmod>2015-08-31</lastmod>
143 is( $file_content, $expected_content, "Its content is valid" );
146 # Create a sitemap for a catalog containing 75000 biblios, with option 'short
147 # url'. Test that 3 files are created: index file + 2 urls file with
148 # respectively 50000 et 25000 urls.
150 push @$data, [ $_, '2015-08-31', '2015-08-31'] for 3..75000;
152 $sitemapper = Koha::Sitemapper->new(
154 url => 'http://www.mylibrary.org',
160 $file = "$dir/sitemapindex.xml";
161 ok( -e "$dir/sitemapindex.xml", "File sitemapindex.xml for 75000 bibs created");
162 $file_content = slurp($file);
163 $expected_content = <<EOS;
164 <?xml version="1.0" encoding="UTF-8"?>
166 <sitemapindex xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
168 <loc>http://www.mylibrary.org/sitemap0001.xml</loc>
169 <lastmod>$now</lastmod>
172 <loc>http://www.mylibrary.org/sitemap0002.xml</loc>
173 <lastmod>$now</lastmod>
177 chop $expected_content;
178 is( $file_content, $expected_content, "Its content is valid" );
180 $file = "$dir/sitemap0001.xml";
181 ok( -e $file, "File sitemap0001.xml created");
183 open my $fh, "<", $file;
188 is( $count, 50000, "It contains 50000 URLs");
190 $file = "$dir/sitemap0002.xml";
191 ok( -e $file, "File sitemap0002.xml created");
193 open $fh, "<", $file;
198 is( $count, 25000, "It contains 25000 URLs");
201 unlink "$dir/$_" for qw / sitemapindex.xml sitemap0001.xml sitemap0002.xml /;