1 files changed, 17 insertions, 0 deletions
diff --git a/t/lib/Test/mix.t b/t/lib/Test/mix.t
new file mode 100644
index 0000000000..d911689845
--- /dev/null
+++ b/t/lib/Test/mix.t
@@ -0,0 +1,17 @@
+# -*-perl-*-
+use strict;
+use Test;
+BEGIN { plan tests => 4, todo => [2,3] }
+
+ok(sub { 
+       my $r = 0;
+       for (my $x=0; $x < 10; $x++) {
+	   $r += $x*($r+1);
+       }
+       $r
+   }, 3628799);
+
+ok(0);
+ok(1);
+
+skip(1,0);