[svn:parrot] r47736 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun 21 14:28:25 2010
New Revision: 47736
URL: https://trac.parrot.org/parrot/changeset/47736

Log:
ensure coverage of the Exporter mark vtable in tests

Modified:
   trunk/t/pmc/exporter.t

Modified: trunk/t/pmc/exporter.t
==============================================================================
--- trunk/t/pmc/exporter.t	Mon Jun 21 06:23:38 2010	(r47735)
+++ trunk/t/pmc/exporter.t	Mon Jun 21 14:28:25 2010	(r47736)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -28,6 +28,10 @@
     $P0 = new ['Exporter']
     say "ok 1 - $P0 = new ['Exporter']"
 
+    # Most uses of export are short-lived, so use a explicit sweep
+    # here to ensure coverage of the mark vtable.
+    sweep 1
+
     $I0 = isa $P0, 'Exporter'
     if $I0 goto ok_2
     print 'not '