diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-17 15:30:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-17 15:30:32 (GMT) |
| commit | 44774dc3238ca1e269c6acedcbdfb449780c96f9 (patch) | |
| tree | 1f924b02e7e59fb0689e28bedd2d654a3f77cc02 /tests/obj.test | |
| parent | 7b09e3867d1705d3d223ae5383297ee336f03149 (diff) | |
| download | tcl-libtommath_1_0.zip tcl-libtommath_1_0.tar.gz tcl-libtommath_1_0.tar.bz2 | |
Restore bn_mp_radix_size.c to exact copy of libtommath-1.0 version: Since the radix_size of "9" should return 2, not 3. Add test-case to prove that.libtommath_1_0
Diffstat (limited to 'tests/obj.test')
| -rw-r--r-- | tests/obj.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/obj.test b/tests/obj.test index c354d69..833c906 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -631,6 +631,12 @@ test obj-34.1 {mp_iseven} testobj { 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 |