Adding tests for page functions

1 files changed, 21 insertions, 0 deletions

diff --git a/perllib/t/Page.t b/perllib/t/Page.t
new file mode 100755
index 000000000..fc01697ed
--- /dev/null
+++ b/perllib/t/Page.t
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+#
+# Page.t:
+# Tests for the Page functions
+#
+#  Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
+# Email: louise@mysociety.org; WWW: http://www.mysociety.org/
+#
+# $Id: Page.t,v 1.1 2009-08-25 10:28:50 louise Exp $
+#
+
+use strict;
+use warnings; 
+
+use Test::More tests => 1;
+
+use FindBin;
+use lib "$FindBin::Bin/..";
+use lib "$FindBin::Bin/../../../perllib";
+
+BEGIN { use_ok('Page'); }
\ No newline at end of file