Browse files

Added test files.

  • Loading branch information...
1 parent 944b25e commit 6d9143beea36a546bc630d4563ffc2af2e3132f4 @davorg committed May 12, 2004
Showing with 24 additions and 0 deletions.
  1. +9 −0 t/pod.t
  2. +15 −0 t/test.t
View
9 t/pod.t
@@ -0,0 +1,9 @@
+use File::Find;
+my @pod;
+BEGIN {
+ find sub { push @pod, $File::Find::name if /\.pm$/ }, 'blib';
+}
+
+use Test::Pod tests => scalar @pod;
+
+pod_ok($_) for @pod;
View
15 t/test.t
@@ -0,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+use Test::Simple tests => 5;
+
+use Tie::Hash::Cannabinol;
+ok(1);
+
+my %hash : Stoned;
+
+my @keys = qw(one two three four);
+
+@hash{@keys} = 1 .. 4;
+
+ok(1) for 2 .. 5;

0 comments on commit 6d9143b

Please sign in to comment.