[svn:parrot] r48417 - trunk/t/dynoplibs

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Aug 11 13:24:10 2010
New Revision: 48417
URL: https://trac.parrot.org/parrot/changeset/48417

Log:
test clearp

Modified:
   trunk/t/dynoplibs/deprecated.t

Modified: trunk/t/dynoplibs/deprecated.t
==============================================================================
--- trunk/t/dynoplibs/deprecated.t	Wed Aug 11 08:08:49 2010	(r48416)
+++ trunk/t/dynoplibs/deprecated.t	Wed Aug 11 13:24:10 2010	(r48417)
@@ -16,7 +16,7 @@
 
 =cut
 
-.const int TESTS = 105
+.const int TESTS = 106
 
 .loadlib 'deprecated_ops'
 
@@ -31,6 +31,7 @@
     test_exchange_n()
     test_clears()
     test_exchange_s()
+    test_clearp()
 .end
 
 .sub 'test_exchange_i'
@@ -275,6 +276,34 @@
     is( $S2, "String #2", 'exchange' )
 .end
 
+.sub test_clearp
+    $P0 = new ['Integer']
+    $P1 = new ['Integer']
+    $P2 = new ['Integer']
+    $P3 = new ['Integer']
+    $P4 = new ['Integer']
+    $P5 = new ['Integer']
+    $P6 = new ['Integer']
+    $P7 = new ['Integer']
+    $P8 = new ['Integer']
+    $P9 = new ['Integer']
+    clearp
+    $I0 = 0
+    unless_null $P0, result
+    unless_null $P1, result
+    unless_null $P2, result
+    unless_null $P3, result
+    unless_null $P4, result
+    unless_null $P5, result
+    unless_null $P6, result
+    unless_null $P7, result
+    unless_null $P8, result
+    unless_null $P9, result
+    $I0 = 1
+  result:
+    is($I0, 1, 'clearp')
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100