X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FGruntmaster-Opener.t;fp=t%2FGruntmaster-Opener.t;h=403ed97c87ac28b2434f626451c814fb7f09a0fe;hb=a832cd596e85a2deac94a1ccc6536f0b079a1543;hp=0000000000000000000000000000000000000000;hpb=f7e9da17d2a51800b190c6475ef41a07af0d4e2f;p=gruntmaster-data.git

diff --git a/t/Gruntmaster-Opener.t b/t/Gruntmaster-Opener.t
new file mode 100644
index 0000000..403ed97
--- /dev/null
+++ b/t/Gruntmaster-Opener.t
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+use v5.14;
+use warnings;
+
+use Test::More tests => 8;
+use Gruntmaster::Opener;
+
+my $opened;
+BEGIN {
+	no warnings 'redefine';
+	*Gruntmaster::Opener::open_problem = sub { $opened = 1 };
+}
+
+sub _test {
+	my ($line, $should_open, $name) = @_;
+	$line =~ s,DATE,[01/Jan/2015:00:00:00 +0200],;
+	$opened = '';
+	handle_line $line;
+	is $opened, $should_open, $name
+}
+
+_test '192.0.2.41 - mgv DATE "GET /pb/problem1?contest=test HTTP/1.1" 200 1234', 1, 'normal case';
+_test '192.0.2.41 - mgv DATE "HEAD http://gruntmaster.example.org/pb/problem1?contest=test HTTP/1.0" 200 1234', 1, 'absolute url';
+_test '2001:db8:abcd::1234 - mgv DATE "GET /pb/%61%62%63%64?%63ontes%74=%62%61%64 SPDY/3" 200 1234', 1, 'superfluous percent encoding';
+
+_test '192.0.2.41 - mgv DATE "GET /pb/problem1?contest=test HTTP/1.1" 500 1234', '', 'internal server error';
+_test '192.0.2.41 - - DATE "GET /pb/problem1?contest=test HTTP/1.1" 401 1234', '', 'not logged in';
+_test '192.0.2.41 - mgv DATE "GET /pb/?contest=test HTTP/1.0" 200 1234', '', 'problem list';
+_test '2001:db8:abcd::1234 - mgv DATE "GET /pb/asd SPDY/3" 200 1234', '', 'not in contest';
+_test 'junk', '', 'junk';