Permalink
Browse files

[async.t] numer-/stringify more perl6ish

git-svn-id: http://svn.pugscode.org/pugs@19896 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
buchetc
buchetc committed Feb 12, 2008
1 parent 7aa8072 commit 1a02f203cd3166f1dacb30646a0a23f9df8abe61
Showing with 3 additions and 3 deletions.
  1. +3 −3 S17-async/async.t
View
@@ -23,11 +23,11 @@ my $thr = async {
ok time - $timestamp < $async_duration + .05, "yes, 'Im out of sync!";
-ok $thr, 'stringify a thread';
+ok ~$thr, 'stringify a thread';
-ok int $thr, 'numerify a thread should be the thread id';
+ok +$thr, 'numerify a thread should be the thread id';
-isnt int $thr, $*PID, 'childs id is not parents thread id';
+isnt +$thr, $*PID, 'childs id is not parents thread id';
ok $thr.join, 'thread now joined and back home';

0 comments on commit 1a02f20

Please sign in to comment.