aboutsummaryrefslogtreecommitdiffstats
path: root/web/test.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'web/test.cgi')
-rwxr-xr-xweb/test.cgi25
1 files changed, 0 insertions, 25 deletions
diff --git a/web/test.cgi b/web/test.cgi
deleted file mode 100755
index c9b36e6b7..000000000
--- a/web/test.cgi
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl -w -I../perllib
-
-# test.cgi
-# Part of test suite to force an error to check error handling works.
-#
-# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
-# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
-#
-# $Id: test.cgi,v 1.1 2009-07-15 20:51:21 matthew Exp $
-
-use strict;
-use Standard;
-
-sub main {
- my $q = shift;
-
- print $q->header(-charset => 'utf-8', -content_type => 'text/plain');
- if ($q->param('error')) {
- print 10 / 0; # Cause an error by dividing by zero.
- }
- print "Success";
-}
-
-Page::do_fastcgi(\&main);
-