[svn:parrot] r43954 - trunk/t/op

[jonathan at svn.parrot.org]

Author: jonathan
Date: Sun Feb 14 16:12:00 2010
New Revision: 43954
URL: https://trac.parrot.org/parrot/changeset/43954

Log:
[t] Test to cover bnot_p_p regression that whiteknight++ just fixed.

Modified:
   trunk/t/op/arithmetics.t

Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t	Sun Feb 14 15:57:01 2010	(r43953)
+++ trunk/t/op/arithmetics.t	Sun Feb 14 16:12:00 2010	(r43954)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(129)
+    plan(130)
 
     take_the_negative_of_a_native_integer()
     take_the_absolute_of_a_native_integer()
@@ -44,6 +44,7 @@
     lcm_test()
     gcd_test()
     integer_overflow_with_pow()
+    bnot_p_p_creates_destination()
     # END_OF_TESTS
 
 .end
@@ -558,6 +559,12 @@
   end:
 .end
 
+.sub 'bnot_p_p_creates_destination'
+    $P0 = box 3
+    $P1 = bnot $P0
+    is( $P1, -4, 'bnot_p_p_creates_destination')
+.end
+
 # Local Variables:
 #   mode: pir
 #   cperl-indent-level: 4