Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
autounfudge
  • Loading branch information
coke committed Aug 17, 2014
1 parent 400b1df commit 680acb0
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 12 deletions.
1 change: 0 additions & 1 deletion S02-types/declare.t
Expand Up @@ -454,7 +454,6 @@ plan 78;
isa_ok($foop,OrderingPair);
}

#?rakudo skip 'HyperWhatever NYI'
#?niecza skip 'HyperWhatever NYI'
{
my HyperWhatever $baz;
Expand Down
1 change: 0 additions & 1 deletion S02-types/set.t
Expand Up @@ -229,7 +229,6 @@ sub showset($s) { $s.keys.sort.join(' ') }
}

#?niecza skip "Hypers not yet Set compatible"
#?rakudo skip "seems to be fall out of S02 BagHash change"
dies_ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';

# L<S32::Containers/Set/roll>
Expand Down
9 changes: 0 additions & 9 deletions S02-types/sethash.t
Expand Up @@ -356,32 +356,23 @@ sub showset($s) { $s.keys.sort.join(' ') }
#?niecza skip "is SetHash doesn't work yet"
{
my %h is SetHash = a => True, b => False, c => True;
#?rakudo todo 'todo'
is +%h.elems, 2, 'Inititalization worked';

lives_ok { %h<c> = False }, 'can set an item to False';
#?rakudo todo 'todo'
is %h.elems, 1, '... and an item is gone';
#?rakudo todo 'todo'
is ~%h.keys, 'a', '... and the right one is gone';

%h<c>++;
#?rakudo todo 'todo'
is %h.keys.sort.join, 'ac', '++ on an item reinstates it';
%h<c>++;
#?rakudo todo 'todo'
is %h.keys.sort.join, 'ac', '++ on an existing item does nothing';

%h<a>--;
#?rakudo todo 'todo'
is ~%h.keys, 'c', '-- removes items';
%h<b>--;
#?rakudo todo 'todo'
is ~%h.keys, 'c', '... but only if they were there from the beginning';

#?rakudo todo 'todo'
lives_ok { %h = set <Q P R> }, 'Assigning a Set to a SetHash';
#?rakudo todo 'todo'
is %h.keys.sort.join, 'PQR', '... works as expected';
}

Expand Down
1 change: 0 additions & 1 deletion S29-os/system.t
Expand Up @@ -22,7 +22,6 @@ chdir "t";
my $cwd;
BEGIN { $cwd = $*DISTRO.is-win ?? 'cd' !! 'pwd' };
ok((qqx{$cwd} ne BEGIN qqx{$cwd}), 'qqx{} is affected by chdir()');
#?rakudo skip 'run() broken (and test questionable)'
ok((run("dir", "t") != BEGIN { run("dir", "t") } ), 'run() is affected by chdir()');

# vim: ft=perl6

0 comments on commit 680acb0

Please sign in to comment.