Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding more test cases

Browse source
This commit is contained in:
Justin Ethier 2022-06-07 21:44:17 -04:00
parent 0a366a8aca
commit 7e5c29b939
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test-bn.scm
View file

@ -7,6 +7,16 @@
bignum2string(data, k, bn, obj_obj2int(radix)); bignum2string(data, k, bn, obj_obj2int(radix));
") ")
(define-c test-larger-bn
"(void *data, int argc, closure _, object k, object fx, object fx2, object radix)"
" bignum2_type *bn = gc_alloc_bignum2(data, 2);
C_bignum_digits(bn)[0] = obj_obj2int(fx2);
C_bignum_digits(bn)[1] = obj_obj2int(fx);
bn->num_digits = 2;
bn->sign = 0;
bignum2string(data, k, bn, obj_obj2int(radix));
")
(write (write
(list (list
(test-bn -10 10) (test-bn -10 10)
@ -16,6 +26,9 @@
(test-bn #x0FFFffff 10) (test-bn #x0FFFffff 10)
(test-bn #x0FFFffff 16) (test-bn #x0FFFffff 16)
(test-bn #x3FFFffff 10) (test-bn #x3FFFffff 10)
(test-bn #x0FFF0001 10)
(test-larger-bn 0 #x0FFF0001 10)
(test-larger-bn #x3FFF0000 #x0FFF0001 10)
)) ))
(newline) (newline)
;(repl) ;(repl)