Skip to content

Commit

Permalink
pugs fudge
Browse files Browse the repository at this point in the history
  • Loading branch information
coke committed Jul 26, 2012
1 parent 7762601 commit 623a9ac
Show file tree
Hide file tree
Showing 3 changed files with 1 addition and 2 deletions.
1 change: 1 addition & 0 deletions S10-packages/scope.t
Expand Up @@ -31,6 +31,7 @@ use t::spec::packages::PackageTest;

# sanity test
# L<S10/Packages/package for Perl>
#?pugs todo "currently appends ()"
is($?PACKAGE, "Main", 'The Main $?PACKAGE was not broken by any declarations');

# block level
Expand Down
1 change: 0 additions & 1 deletion S12-class/lexical.t
Expand Up @@ -30,7 +30,6 @@ eval_dies_ok '{ my class B {}; B.new; }; B.new',
ok $pint ~~ WeissBier, 'can smart-match against lexical class';
is $pint.name, 'Erdinger', 'attribute in lexical class works';
is $pint.describe, 'outstanding flavour', 'method call on lexical class works';
#?pugs todo 'gist needs parens'
is WeissBier.gist, 'WeissBier()', 'lexical type object stringifies correct';

my class LessThanAmazingWeissBier is WeissBier {
Expand Down
1 change: 0 additions & 1 deletion S14-roles/lexical.t
Expand Up @@ -24,7 +24,6 @@ eval_dies_ok '{ my class R3 {}; R3; }; R3',
method catwalk() { 'ooh pretty!' }
}

#?pugs todo
is Model.gist, 'Model()', 'lexical role type object stringifies OK';
is Model.catwalk, 'ooh pretty!', 'can pun lexical role';

Expand Down

0 comments on commit 623a9ac

Please sign in to comment.