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

whiteknight at svn.parrot.org whiteknight at svn.parrot.org
Fri Jun 12 15:52:23 UTC 2009


Author: whiteknight
Date: Fri Jun 12 15:52:20 2009
New Revision: 39524
URL: https://trac.parrot.org/parrot/changeset/39524

Log:
[t] fix t/pmc/handle.t do do what it should. Also, rewrite it in PIR not Perl5

Modified:
   trunk/t/pmc/handle.t

Modified: trunk/t/pmc/handle.t
==============================================================================
--- trunk/t/pmc/handle.t	Fri Jun 12 13:02:13 2009	(r39523)
+++ trunk/t/pmc/handle.t	Fri Jun 12 15:52:20 2009	(r39524)
@@ -1,14 +1,7 @@
-#!perl
+#! parrot
 # Copyright (C) 2001-2008, Parrot Foundation.
 # $Id$
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-
-use Test::More;
-use Parrot::Test tests =>  1;
-
 =head1 NAME
 
 t/pmc/handle.t - Handle basic type
@@ -19,14 +12,21 @@
 
 =head1 DESCRIPTION
 
-Tests the Handle PMC.
-
-(As yet there are no real tests here.   This is a placeholder file to pacify a
-coding standards test.)
+Tests the Handle PMC. Handle is abstract, so no real tests of functionality
+here.
 
 =cut
 
-pass("No real tests as yet in $0");
+.sub main :main
+    .include 'test_more.pir'
+
+    plan(1)
+    push_eh cant_instantiate
+    $P0 = new 'Handle'
+    print "not "
+  cant_instantiate:
+    say "ok 1"
+.end
 
 # Local Variables:
 #   mode: cperl


More information about the parrot-commits mailing list