[svn:parrot] r40993 - in trunk: . t/pmc

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Sat Sep  5 12:54:33 2009
New Revision: 40993
URL: https://trac.parrot.org/parrot/changeset/40993

Log:
[t] Add a new PIR-based namespace.t and move over the first test. Also, MANIFEST fix NotFound++

Added:
   trunk/t/pmc/namespace.t
Modified:
   trunk/MANIFEST
   trunk/t/pmc/namespace-old.t

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Sat Sep  5 12:46:48 2009	(r40992)
+++ trunk/MANIFEST	Sat Sep  5 12:54:33 2009	(r40993)
@@ -1886,6 +1886,7 @@
 t/pmc/multidispatch.t                                       [test]
 t/pmc/multisub.t                                            [test]
 t/pmc/namespace.t                                           [test]
+t/pmc/namespace-old.t                                       [test]
 t/pmc/nci.t                                                 [test]
 t/pmc/null.t                                                [test]
 t/pmc/object-meths.t                                        [test]

Modified: trunk/t/pmc/namespace-old.t
==============================================================================
--- trunk/t/pmc/namespace-old.t	Sat Sep  5 12:46:48 2009	(r40992)
+++ trunk/t/pmc/namespace-old.t	Sat Sep  5 12:54:33 2009	(r40993)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 68;
+use Parrot::Test tests => 67;
 use Parrot::Config;
 
 =head1 NAME
@@ -23,16 +23,6 @@
 
 =cut
 
-# L<PDD21/Namespace PMC API/>
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
-    new $P0, ['NameSpace']
-    say "ok 1 - $P0 = new ['NameSpace']"
-.end
-CODE
-ok 1 - $P0 = new ['NameSpace']
-OUT
-
 # L<PDD21/Namespace PMC API/=head4 Untyped Interface>
 pir_output_is( <<'CODE', <<'OUT', 'NameSpace does "hash"' );
 .sub 'test' :main

Added: trunk/t/pmc/namespace.t
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/t/pmc/namespace.t	Sat Sep  5 12:54:33 2009	(r40993)
@@ -0,0 +1,35 @@
+#! parrot
+# Copyright (C) 2006-2007, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/pmc/namepspace.t - test NameSpace PMC
+
+=head1 SYNOPSIS
+
+    % prove t/pmc/namespace.t
+
+=head1 DESCRIPTION
+
+Tests the NameSpace PMC.
+
+=cut
+
+.sub main :main
+    .include 'test_more.pir'
+    plan(1)
+
+    create_namespace_pmc()
+.end
+
+.sub 'create_namespace_pmc'
+    push_eh eh
+    $P0 = new ['NameSpace']
+    pop_eh
+    ok(1, "Create new Namespace PMC")
+    goto _end
+  eh:
+    ok(0, "Could not create Namespace PMC")
+  _end:
+.end
\ No newline at end of file