#lang scheme (require (prefix-in main: "test-main.ss")) (require (prefix-in pro: "test-procedural.ss")) (require (planet schematics/schemeunit/text-ui)) (begin (display "Normal interface, produces platform specific bytecode. No gcc needed if you have the right bytecode.\n") (display "-----------------------------------------------------------\n") (run-tests main:tests 'verbose) (display "\nProcedural interface, can pass variables to sizeof. Probably shouldn't use.\n") (display "-----------------------------------------------------------\n") (run-tests pro:tests 'verbose) (void))