[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