diff --git a/collects/tests/racket/ctool.rkt b/collects/tests/racket/ctool.rkt
new file mode 100644
index 0000000000..32c2e36907
--- /dev/null
+++ b/collects/tests/racket/ctool.rkt
@@ -0,0 +1,19 @@
+#lang racket
+(require setup/dirs)
+
+(define raco (build-path (find-console-bin-dir)
+                         (if (eq? (system-type) 'windows)
+                             "raco.exe"
+                             "raco")))
+
+(define tmp (make-temporary-file))
+
+(system* raco
+         "ctool"
+         "--3m"
+         "--c-mods"
+         tmp
+         "++lib"
+         "racket")
+
+(delete-file tmp)