Skip to content
Browse files

pugs fudge

  • Loading branch information...
1 parent 997c786 commit d9800adf213821788c97eb4d56e4657e8aeeb3e4 @coke coke committed
Showing with 14 additions and 7 deletions.
  1. +2 −0 S03-operators/relational.t
  2. +11 −7 S17-async/async.t
  3. +1 −0 S17-async/contend.t
View
2 S03-operators/relational.t
@@ -158,6 +158,7 @@ is(7 < 2.4, False, 'Int < Rat');
is(7 <= 2.4, False, 'Int <= Rat');
is(7 > 2.4, True , 'Int > Rat');
is(7 >= 2.4, True , 'Int >= Rat');
+#?pugs skip 'Order enum'
is(7 <=> 2.4, Order::Decrease, 'Int <=> Rat');
# Rat,Int comparisons
@@ -167,6 +168,7 @@ is(2.4 < 7, True , 'Rat < Int');
is(2.4 <= 7, True , 'Rat <= Int');
is(2.4 > 7, False, 'Rat > Int');
is(2.4 >= 7, False, 'Rat >= Int');
+#?pugs skip 'Order enum'
is(2.4 <=> 7, Order::Increase, 'Rat <=> Int');
done;
View
18 S17-async/async.t
@@ -38,32 +38,36 @@ sub do_something_very_important {
}
my @threads;
+#?pugs skip 'async tests report wrong number sometimes'
@threads[0] = async { ok do_something_very_important(),'very important things from first thread' };
+#?pugs skip 'async tests report wrong number sometimes'
@threads[1] = async { ok do_something_very_important(),'very important things from second thread' };
+#?pugs skip 'async tests report wrong number sometimes'
ok @threads[0].join,'first thread joined';
+#?pugs skip 'async tests report wrong number sometimes'
ok @threads[1].join,'second thread joined';
# currently a second join on a joined thread waits forever; not good
-#?pugs todo 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
ok eval q{#!@threads[1].join},'second thread not joinable again';
# L<S17/"Thread methods"/"=item detach">
-#?pugs todo 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
@threads[2] = async { ok do_something_very_important(),'again start a thread' };
+#?pugs skip 'async tests report wrong number sometimes'
ok eval q{threads[2].detach},'detach a thread';
-#?pugs todo 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
ok !@threads[2].join,'could not join a detached thread';
# L<S17/"Thread methods"/"=item suspend">
-#?pugs skip 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
@threads[3] = async { ok do_something_very_important(),'another thread' };
-#?pugs todo 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
ok eval q{@threads[3].suspend},' send him back to a waiting room..';
# L<S17/"Thread methods"/"=item resume">
-#?pugs todo 'unimpl'
+#?pugs skip 'async tests report wrong number sometimes'
ok eval q{@threads[3].resume},'... now he is back';
-
# vim: ft=perl6
View
1 S17-async/contend.t
@@ -31,6 +31,7 @@ is +@thr, 2, 'one thousand threads';
for @thr { .join(); }; # all threads back
+#?pugs skip 'race condition hits about 50% of the time'
ok $counter < 1000, 'the race condition strikes' or diag($counter);

0 comments on commit d9800ad

Please sign in to comment.
Something went wrong with that request. Please try again.