Permalink
Browse files

Plan a strict number of tests

  • Loading branch information...
1 parent 5c1e0bb commit 1ad23e061288601a2efbc1851b9c9a945b11a3df @tadzik committed Mar 13, 2011
Showing with 2 additions and 3 deletions.
  1. +1 −2 t/01-file-find.t
  2. +1 −1 t/03-file-mkdir.t
View
@@ -1,6 +1,7 @@
use v6;
use Test;
use File::Find;
+plan 7;
my $res = find(:dir<t/dir1>);
my @test = $res.map({ .Str }).sort;
@@ -32,5 +33,3 @@ $res = find(:dir<t/dir1>, :type<file>, :name(/foo/));
@test = $res.map({ .Str }).sort;
is @test, <t/dir1/file.foo t/dir1/foodir/not_a_dir>,
'types: file, combined with name';
-
-done;
View
@@ -1,6 +1,7 @@
use v6;
use Test;
use File::Mkdir;
+plan 3;
mkdir 't/dupa';
ok ('t/dupa'.IO ~~ :d), 'casual mkdir still works';
@@ -10,4 +11,3 @@ ok ('t/dupa/foo/bar'.IO ~~ :d), 'mkdir :p, 1/2';
unlink 't/dupa/foo/bar';
unlink 't/dupa/foo';
unlink 't/dupa/';
-done;

0 comments on commit 1ad23e0

Please sign in to comment.