merge trunkpyk_emptystring

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/obj.test b/tests/obj.test
index a8d2d20..833c906 100644
--- a/tests/obj.test
+++ b/tests/obj.test
@@ -625,6 +625,19 @@ test obj-33.7 {integer overflow on input} {
     list [string is integer $x] [expr { wide($x) }]
 } {0 -4294967296}
 
+test obj-34.1 {mp_iseven} testobj {
+    set result ""
+    lappend result [testbignumobj set 1 0]
+    lappend result [testbignumobj iseven 1]    ;
+    lappend result [testobj type 1]
+} {0 1 int}
+test obj-34.2 {mp_radix_size} testobj {
+    set result ""
+    lappend result [testbignumobj set 1 9]
+    lappend result [testbignumobj radixsize 1]    ;
+    lappend result [testobj type 1]
+} {9 2 int}
+
 if {[testConstraint testobj]} {
     testobj freeallvars
 }