[Swig-cvs] SWIG/Examples/test-suite/schemerunme integers.scm,1.1,1.2

[Matthias K. <mk...@us...>]

Update of /cvsroot/swig/SWIG/Examples/test-suite/schemerunme
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3028/Examples/test-suite/schemerunme

Modified Files:
	integers.scm 
Log Message:
[MzScheme] Typemaps for all integral types now accept the full range
of integral values, and they signal an error when a value outside the
valid range is passed.  

[Guile] Typemaps for all integral types now signal an error when a
value outside the valid range is passed.


Index: integers.scm
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/test-suite/schemerunme/integers.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** integers.scm	14 Feb 2006 18:25:16 -0000	1.1
--- integers.scm	19 Feb 2006 19:28:42 -0000	1.2
***************
*** 10,15 ****
    `(begin (check-equality (,function ,from) ,from)
  	  (check-equality (,function ,to)   ,to)
! 	  (check-equality (throws-exception? (- ,from 1)) #t)
! 	  (check-equality (throws-exception? (+ ,to 1)) #t)))
  
  ;;; signed char, unsigned char typemaps deal with characters, not integers.
--- 10,15 ----
    `(begin (check-equality (,function ,from) ,from)
  	  (check-equality (,function ,to)   ,to)
! 	  (check-equality (throws-exception? (,function (- ,from 1))) #t)
! 	  (check-equality (throws-exception? (,function (+ ,to 1))) #t)))
  
  ;;; signed char, unsigned char typemaps deal with characters, not integers.
***************
*** 22,27 ****
  (check-range signed-long-identity (- (expt 2 31)) (- (expt 2 31) 1))
  (check-range unsigned-long-identity 0 (- (expt 2 32) 1))
! ;;; long long not implemented in Guile.
  ;; (check-range signed-long-long-identity (- (expt 2 63)) (- (expt 2 63) 1))
  ;; (check-range unsigned-long-long-identity 0 (- (expt 2 64) 1))
! (quit)
--- 22,28 ----
  (check-range signed-long-identity (- (expt 2 31)) (- (expt 2 31) 1))
  (check-range unsigned-long-identity 0 (- (expt 2 32) 1))
! ;;; long long not implemented in Guile and MzScheme.
  ;; (check-range signed-long-long-identity (- (expt 2 63)) (- (expt 2 63) 1))
  ;; (check-range unsigned-long-long-identity 0 (- (expt 2 64) 1))
! 
! (exit 0)