remove outdated tests, add a missing .gist

Raku · Aug 2, 2011 · 7788a35 · 7788a35
1 parent e154be7
commit 7788a35
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 33 deletions.
diff --git a/S32-list/reduce.t b/S32-list/reduce.t
@@ -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');

diff --git a/S32-scalar/undef.t b/S32-scalar/undef.t
@@ -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');