Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Split Promise tests into separate files 
For better parallel testing
  • Loading branch information
@lizmat
lizmat committed May 11, 2014
1 parent a92ff7c commit 8d53b52
Show file tree
Hide file tree
Showing 6 changed files with 172 additions and 150 deletions.
45 changes: 45 additions & 0 deletions S17-promise/allof.t
View file
@@ -0,0 +1,45 @@
use v6;
use Test;

plan 10;

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pall = Promise.allof($p1, $p2);
isa_ok $pall, Promise, "allof returns a Promise";
nok $pall.Bool, "No result yet";

$p1.keep(1);
nok $pall.Bool, "Still not kept";

$p2.keep(1);
is $pall.result, True, "result is true after both kept";
is $pall.status, Kept, "Promise was kept";
}

{
my @p;
@p[0] = Promise.new;
@p[1] = Promise.new;
my $pall = Promise.allof(@p);
@p[0].keep(1);
@p[1].break("danger danger");
dies_ok { $pall.result }, "result on broken all-Promise throws";
is $pall.status, Broken, "all-Promise was broken";
}

{
my @a;
my @p = (^10).pick(*).map: {
start {
sleep 2 * $_;
cas @a, -> @current { my @ = @current, OUTER::<$_> };
}
};
my $all = Promise.allof(@p);
isa_ok $all, Promise, 'allof gives a Promise';
my $b = $all.result; # block
isa_ok $b, Bool, 'get a bool of the result';
is ~@a, "0 1 2 3 4 5 6 7 8 9", 'got the right order';
}
33 changes: 33 additions & 0 deletions S17-promise/anyof.t
View file
@@ -0,0 +1,33 @@
use v6;
use Test;

plan 9;

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pany = Promise.anyof($p1, $p2);
isa_ok $pany, Promise, "anyof returns a Promise";
nok $pany.Bool, "No result yet";

$p1.keep(1);
is $pany.result, True, "result is true";
is $pany.status, Kept, "Promise was kept";

$p2.break("fail");
is $pany.status, Kept, "Other promise breaking doesn't affect status";
}

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pany = Promise.anyof($p1, $p2);

$p2.break("oh noes");
dies_ok { $pany.result }, "Getting result of broken anyof dies";
is $pany.status, Broken, "Promise was broken";
is $pany.cause.message, "oh noes", "breakage reason conveyed";

$p1.keep(1);
is $pany.status, Broken, "Other promise keeping doesn't affect status";
}
151 changes: 1 addition & 150 deletions S17-promise/basic.t
View file
@@ -1,7 +1,7 @@
use v6;
use Test;

plan 64;
plan 19;

{
my $p = Promise.new;
Expand Down Expand Up @@ -34,152 +34,3 @@ plan 64;
dies_ok { $p.keep("eating") }, "Cannot keep a Broken Promise";
dies_ok { $p.break("bad") }, "Cannot re-break a Broken Promise";
}

{
my $p = Promise.start({
pass "Promise.start actually runs";
42
});
is $p.result, 42, "Correct result";
is $p.status, Kept, "Promise was kept";
}

{
my $p = start {
pass "Promise.start actually runs";
42
};
is $p.result, 42, "Correct result";
is $p.status, Kept, "Promise was kept";
}

{
my $p = Promise.start({
pass "Promise.start actually runs";
die "trying"
});
dies_ok { $p.result }, "result throws exception";
is $p.status, Broken, "Promise was broken";
is $p.cause.message, "trying", "Correct exception stored";
}

{
my $start = now;
my $p = Promise.in(1);
is $p.result, True, "Promise.in result is True";
ok now - $start >= 1, "Promise.in took long enough";
}

{
my $run_then = 0;
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
$run_then = 1;
ok $res === $p1, "Got correct Promise passed to then";
is $res.status, Kept, "Promise passed to then was kept";
is $res.result, 42, "Got correct result";
101
});
isa_ok $p2, Promise, "then returns a Promise";
is $run_then, 0, "Not run then yet";

$p1.keep(42);
is $p2.result, 101, "Got correct result from then Promise";
ok $run_then, "Certainly ran the then";
}

{
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
ok $res === $p1, "Got correct Promise passed to then";
is $res.status, Broken, "Promise passed to then was broken";
is $res.cause.message, "we fail it", "Got correct cause";
"oh noes"
});

$p1.break("we fail it");
is $p2.result, "oh noes", "Got correct result from then Promise";
}

{
my $run_then = 0;
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
die "then died"
});

$p1.keep(42);
dies_ok { $p2.result }, "result from then Promise dies";
is $p2.status, Broken, "then Promise is broken";
is $p2.cause.message, "then died", "then Promise has correct cause";
}

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pany = Promise.anyof($p1, $p2);
isa_ok $pany, Promise, "anyof returns a Promise";
nok $pany.Bool, "No result yet";

$p1.keep(1);
is $pany.result, True, "result is true";
is $pany.status, Kept, "Promise was kept";

$p2.break("fail");
is $pany.status, Kept, "Other promise breaking doesn't affect status";
}

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pany = Promise.anyof($p1, $p2);

$p2.break("oh noes");
dies_ok { $pany.result }, "Getting result of broken anyof dies";
is $pany.status, Broken, "Promise was broken";
is $pany.cause.message, "oh noes", "breakage reason conveyed";

$p1.keep(1);
is $pany.status, Broken, "Other promise keeping doesn't affect status";
}

{
my $p1 = Promise.new;
my $p2 = Promise.new;
my $pall = Promise.allof($p1, $p2);
isa_ok $pall, Promise, "allof returns a Promise";
nok $pall.Bool, "No result yet";

$p1.keep(1);
nok $pall.Bool, "Still not kept";

$p2.keep(1);
is $pall.result, True, "result is true after both kept";
is $pall.status, Kept, "Promise was kept";
}

{
my @p;
@p[0] = Promise.new;
@p[1] = Promise.new;
my $pall = Promise.allof(@p);
@p[0].keep(1);
@p[1].break("danger danger");
dies_ok { $pall.result }, "result on broken all-Promise throws";
is $pall.status, Broken, "all-Promise was broken";
}

{
my @a;
my @p = (^10).pick(*).map: {
start {
sleep 2 * $_;
cas @a, -> @current { my @ = @current, OUTER::<$_> };
}
};
my $all = Promise.allof(@p);
isa_ok $all, Promise, 'allof gives a Promise';
my $b = $all.result; # block
isa_ok $b, Bool, 'get a bool of the result';
is ~@a, "0 1 2 3 4 5 6 7 8 9", 'got the right order';
}
11 changes: 11 additions & 0 deletions S17-promise/in.t
View file
@@ -0,0 +1,11 @@
use v6;
use Test;

plan 2;

{
my $start = now;
my $p = Promise.in(1);
is $p.result, True, "Promise.in result is True";
ok now - $start >= 1, "Promise.in took long enough";
}
34 changes: 34 additions & 0 deletions S17-promise/start.t
View file
@@ -0,0 +1,34 @@
use v6;
use Test;

plan 12;

{
my $p = Promise.start({
pass "Promise.start actually runs";
42
});
isa_ok $p, Promise, '.start gives a Promise';
is $p.result, 42, "Correct result";
is $p.status, Kept, "Promise was kept";
}

{
my $p = start {
pass "Promise.start actually runs";
42
};
isa_ok $p, Promise, 'start {} gives a Promise';
is $p.result, 42, "Correct result";
is $p.status, Kept, "Promise was kept";
}

{
my $p = Promise.start({
pass "Promise.start actually runs";
die "trying";
});
dies_ok { $p.result }, "result throws exception";
is $p.status, Broken, "Promise was broken";
is $p.cause.message, "trying", "Correct exception stored";
}
48 changes: 48 additions & 0 deletions S17-promise/then.t
View file
@@ -0,0 +1,48 @@
use v6;
use Test;

plan 14;

{
my $run_then = 0;
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
$run_then = 1;
ok $res === $p1, "Got correct Promise passed to then";
is $res.status, Kept, "Promise passed to then was kept";
is $res.result, 42, "Got correct result";
101
});
isa_ok $p2, Promise, "then returns a Promise";
is $run_then, 0, "Not run then yet";

$p1.keep(42);
is $p2.result, 101, "Got correct result from then Promise";
ok $run_then, "Certainly ran the then";
}

{
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
ok $res === $p1, "Got correct Promise passed to then";
is $res.status, Broken, "Promise passed to then was broken";
is $res.cause.message, "we fail it", "Got correct cause";
"oh noes"
});

$p1.break("we fail it");
is $p2.result, "oh noes", "Got correct result from then Promise";
}

{
my $run_then = 0;
my $p1 = Promise.new;
my $p2 = $p1.then(-> $res {
die "then died"
});

$p1.keep(42);
dies_ok { $p2.result }, "result from then Promise dies";
is $p2.status, Broken, "then Promise is broken";
is $p2.cause.message, "then died", "then Promise has correct cause";
}

0 comments on commit 8d53b52

Please sign in to comment.