# testing routines.



"running pf tests" . cr

# specific tests
load-image (image s16 320 240 3) new dup + 1. * 1. + drop



# MODULE LOADING (check for compile time errors)
: x read dup p ps find execute "OK. " . .S dropall ;

x load-rtc
x load-osc
x load-x11 
x load-xv 
x load-v4l 
x load-lqt 
x load-matrix 
x load-grab 
x load-blit 
x load-opengl 
x load-scaf 
x load-freetype 
# x load-xfree 
x load-png 
# x load-ascii 


# PD
# some fake words to test compilation
: pd-make-outlet drop undef ;
: pd-make-inlet drop drop drop undef ;
: pd-send drop drop ;
: pd-dict drop undef ;

# x load-puredata


"stacks:" . cr
.S
.R
"\ntests OK.\n" .
# "running interactive." . cr interactive

# 1 >trace