develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35904 - in trunk: src/ops t/pmc

From:
jkeenan
Date:
January 22, 2009 19:48
Subject:
[svn:parrot] r35904 - in trunk: src/ops t/pmc
Message ID:
20090123034804.9286ECB9AE@x12.develooper.com
Author: jkeenan
Date: Thu Jan 22 19:48:03 2009
New Revision: 35904

Modified:
   trunk/src/ops/pmc.ops
   trunk/t/pmc/class.t

Log:
Applying patches submitted by Ron Schmidt in
http://rt.perl.org/rt3/Ticket/Display.html?id=62634 (POD change in
src/ops/pmc.ops and http://rt.perl.org/rt3/Ticket/Display.html?id=62588
(activate some tests in t/pmc/class.t).


Modified: trunk/src/ops/pmc.ops
==============================================================================
--- trunk/src/ops/pmc.ops	(original)
+++ trunk/src/ops/pmc.ops	Thu Jan 22 19:48:03 2009
@@ -48,7 +48,7 @@
   new P0, 'ResizableBooleanArray'
 
 Optionally a PMC may be passed to the constructor. It's up to the class what
-to do with the intializer.  See PDD02 for more.
+to do with the initializer.  See PDD17 and the init_pmc function for more.
 
 =cut
 

Modified: trunk/t/pmc/class.t
==============================================================================
--- trunk/t/pmc/class.t	(original)
+++ trunk/t/pmc/class.t	Thu Jan 22 19:48:03 2009
@@ -17,7 +17,7 @@
 =cut
 
 
-.const int TESTS = 49
+.const int TESTS = 53
 
 
 .sub 'main' :main
@@ -38,7 +38,7 @@
 #     'add_method'() # TODO not yet implemented
      'parents'()
      'roles'()
-#     'inspect'() # XXX must fix 'attributes' test
+     'inspect'()
      'clone'()
      'clone_pmc'()
      'new with init hash'()
@@ -332,7 +332,7 @@
     ok(1, 'inspect() with no args called returns successfully')
 
     test_val = elements result
-    is(test_val, 6, 'inspect() returns correctly sized value')
+    is(test_val, 7, 'inspect() returns correctly sized value')
 
     result = class.'inspect'('name')
     is(result, 'foo', 'inspect() "name" param returns expected value')



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About