Permalink
Browse files

remove outdated tests, add a missing .gist

  • Loading branch information...
moritz committed Aug 2, 2011
1 parent e154be7 commit 7788a35c4ce99d9b1495de23375bb6de08617fc8
Showing with 2 additions and 33 deletions.
  1. +1 −1 S32-list/reduce.t
  2. +1 −32 S32-scalar/undef.t
View
@@ -44,7 +44,7 @@ plan 13;
my $hash = {a => {b => {c => 42}}};
my @reftypes;
sub foo (Hash $hash, Str $key) {
- push @reftypes, $hash.WHAT;
+ push @reftypes, $hash.WHAT.gist;
$hash.{$key};
}
is((reduce(&foo, $hash, <a b c>)), 42, 'reduce(&foo) (foo ~~ .{}) works three levels deep');
View
@@ -23,7 +23,7 @@ perl6-specific tests.
#
# Larry
-plan 88;
+plan 87;
our $GLOBAL;
@@ -302,37 +302,6 @@ Perl6-specific tests
# - symtable hash
# - autoloading itself
-#?pugs skip 'parsefail'
-#?rakudo skip 'parsefail'
-flunk('FIXME: parsefail');
-# {
-# package AutoMechanic {
-# AUTOSCALAR { \my $_scalar }
-# AUTOARRAY { \my @_array }
-# AUTOHASH { \my %_hash }
-# AUTOSUB { { "code" } }
-# AUTOMETH { { "code" } }
-#
-# AUTOSCALARDEF { %::«{'$' ~ $_}» = "autoscalardef" }
-# AUTOARRAYDEF { %::«{'@' ~ $_}» = "autoarraydef".split("") }
-# AUTOHASHDEF { %::«{'%' ~ $_}» = <autohashdef yes> }
-# AUTOSUBDEF { %::«{'&' ~ $_}» = { "autosubdef" } }
-# AUTOMETHDEF { %::«{'&' ~ $_}» = { "automethdef" } }
-# }
-#
-# is(WHAT $AutoMechanic::scalar0, "Scalar", "autoload - scalar");
-# is(WHAT @AutoMechanic::array0, "Array", "autoload - array");
-# is(WHAT %AutoMechanic::hash, "Hash", "autoload - hash");
-# is(WHAT &AutoMechanic::sub0, "Code", "autoload - sub");
-# is(WHAT AutoMechanic.can("meth0"), "Code", "autoload - meth");
-#
-# is($AutoMechanic::scalar, "autoscalardef", "autoloaddef - scalar");
-# is(~@AutoMechanic::ary, ~("autoarraydef".split(""), "autoloaddef - array");
-# is(~%AutoMechanic::hash, ~<autohashdef yes>, "autoloaddef - hash");
-# is(&AutoMechanic::sub.(), "autosubdef", "autoloaddef - sub");
-# is(AutoMechanic.meth(), "automethdef", "autoloaddef - method");
-# }
-
# Extra tests added due to apparent bugs
is((Any) + 1, 1, 'Any + 1');
is(1 + (Any), 1, '1 + Any');

0 comments on commit 7788a35

Please sign in to comment.