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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sun Sep 27 18:36:08 2009
New Revision: 41535
URL: https://trac.parrot.org/parrot/changeset/41535

Log:
[t] cover FFA clone empty and get_bool

Modified:
   trunk/t/pmc/fixedfloatarray.t

Modified: trunk/t/pmc/fixedfloatarray.t
==============================================================================
--- trunk/t/pmc/fixedfloatarray.t	Sun Sep 27 18:01:02 2009	(r41534)
+++ trunk/t/pmc/fixedfloatarray.t	Sun Sep 27 18:36:08 2009	(r41535)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'fp_equality.pasm'
     .include 'test_more.pir'
-    plan(25)
+    plan(26)
 
     array_size_tests()
     element_set_tests()
@@ -175,6 +175,12 @@
 .sub clone_tests
      set $I30, 2000
      $P0 = new ['FixedFloatArray']
+     $I1 = 0
+     clone $P2, $P0
+     if $P2 goto L0
+     $I1 = 1
+L0:  is($I1, 1, "clone of empty is empty")
+
      set $P0, $I30
      set $I0, 0
 L1:  set $N0, $I0