[svn:mod_parrot] r202 - mod_parrot/trunk/t

Author: jhorwitz
Date: Tue Aug 16 11:37:13 2005
New Revision: 202

Modified:
   mod_parrot/trunk/t/99mod_pugs.t
Log:
skip mod_pugs tests until pugs has proper OO support


Modified: mod_parrot/trunk/t/99mod_pugs.t
==============================================================================
--- mod_parrot/trunk/t/99mod_pugs.t	(original)
+++ mod_parrot/trunk/t/99mod_pugs.t	Tue Aug 16 11:37:13 2005
@@ -9,6 +9,11 @@ my $PUGS_REVISION = 4271;
 
 # can we run pugs?
 my $reason;
+
+# TEMPORARY -- SKIP UNTIL PUGS SUPPORTS OO w/ NEW CALLING CONVENTIONS
+$reason = "missing proper OO support";
+goto PLAN;
+
 no warnings;
 if (open(PUGS, "pugs -V:pugs_revision|")) {
     # do we have a compatible version?
@@ -24,6 +29,7 @@ else {
     $reason = "pugs not installed";
 }
 
+PLAN:
 plan tests => 1, (need_lwp);
 
 SKIP: {