+ (operate 'load-op 'sb-simple-streams-tests)
+ (operate 'test-op 'sb-simple-streams-tests))
+
+
+(defsystem sb-simple-streams-tests
+ :depends-on (sb-rt sb-simple-streams)
+ :components ((:file "simple-stream-tests")))
+
+(defmethod perform ((o test-op)
+ (c (eql (find-system :sb-simple-streams-tests))))