~ chicken-core (chicken-5) /tests/import-tests.scm

 1;;;; import-tests.scm
 2
 3(module m1 ()
 4(import scheme (only srfi-4 u8vector?)) u8vector?)
 5
 6(print "expect warning ...")
 7(assert
 8 (handle-exceptions ex #t
 9   (eval '
10(module m2 ()
11(import scheme (only (srfi 4) u8vector?))
12s8vector?)) #f))
13
14(module m3 ()
15(import scheme (rename (srfi 4) (u8vector? u8v?))) 
16u8v?)
17
18(module m4 ()
19(import scheme (chicken base))
20(require-extension (prefix (srfi 4) s4:))
21s4:f32vector)