Initial commit.

t/00-signature.t

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use strict;
+print "1..1\n";
+
+if (!-s 'SIGNATURE') {
+    print "ok 1 # skip No signature file found\n";
+}
+elsif (!eval { require Module::Signature; 1 }) {
+    print "ok 1 # skip ",
+          "Next time around, consider install Module::Signature, ",
+          "so you can verify the integrity of this distribution.\n";
+}
+elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
+    print "ok 1 # skip Cannot connect to the keyserver\n";
+}
+else {
+    (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
+        or print "not ";
+    print "ok 1 # Valid signature\n";
+}
+
+__END__

t/01-basic.t

@@ -0,0 +1,21 @@
+#! /usr/bin/perl -w
+# Basic test suite
+# Copyright (c) 2007 imacat. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+
+use strict;
+use warnings;
+use Test;
+
+BEGIN { plan tests => 1 }
+
+use vars qw($r);
+
+$r = eval {
+    use Acme::GuessNumber;
+    guess_number(25, HURRY_UP);
+    return 1;
+};
+# 1
+ok($r, 1);

t/99-pod.t

@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();