Permalink
Browse files

[t/spec] random bug suppression

git-svn-id: http://svn.pugscode.org/pugs@28563 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 4277cf5 commit 0fdffa35fdda6cad4a95ddff8a025568a9e5e3b3 lwall committed Oct 3, 2009
Showing with 4 additions and 3 deletions.
  1. +1 −1 S02-magicals/env.t
  2. +1 −1 S06-signature/errors.t
  3. +1 −1 S06-signature/slurpy-params.t
  4. +1 −0 S11-modules/nested.t
View
@@ -126,7 +126,7 @@ ok !%*ENV.exists("does_not_exist"), "exists() returns false on a not defined env
#?rakudo skip 'import keyword'
{
# It must be importable
- import GLOBAL <%ENV>;
+ import PROCESS <%ENV>;
ok +%ENV.keys, 'imported %ENV has keys';
}
View
@@ -36,7 +36,7 @@ eval_dies_ok('sub quuuux ($!) { ... }',
# RT #64344
#?rakudo todo 'RT #64344'
{
- sub empty_sig() { return @_[0] }
+ sub empty_sig() { return }
dies_ok { empty_sig( 'RT #64344' ) },
'argument passed to sub with empty signature';
}
@@ -280,10 +280,10 @@ These tests are the testing for "List parameters" section of Synopsis 06
## Note: I've listed these as though they succeed, but it's possible
## that the parameter binding should fail outright. --pmichaud
{
+ my $count = 0;
sub slurp_any_thread(Any *@a) { $count++; }
multi sub slurp_any_multi(Any *@a) { $count++; }
- $count = 0;
slurp_any_thread(3|4|5);
is $count, 1, 'Any slurpy param doesnt autothread';
$count = 0;
View
@@ -22,6 +22,7 @@ eval_lives_ok 'use RoleA',
{
use RoleA;
+ role RoleB {...}
class MyFu does RoleB;
ok MyFu ~~ RoleB, 'Composition worked';

0 comments on commit 0fdffa3

Please sign in to comment.