Add test for --instantiation-only flag general behavior

Author: ndh4

raco-tests.rkt

@@ -0,0 +1,14 @@
+#lang racket/base
+
+(require rackunit)
+(require racket/system
+        racket/port
+        math/statistics)
+
+(define (get-total-time profiling-command)
+  (string->number (car (regexp-match #rx"[0-9]+" (car (regexp-match #rx"/[0-9]+ ms" (with-output-to-string (lambda () (system profiling-command)))))))))
+
+(for ([i (in-range 5)])
+   (define whole-time (get-total-time "racket raco.rkt test-inputs/main.rkt"))
+   (define instantiation-only-time (get-total-time "racket raco.rkt --instantiation-only test-inputs/main.rkt"))
+   (check-true (> whole-time instantiation-only-time)))

test-inputs/main.rkt

@@ -0,0 +1,4 @@
+#lang racket
+(require "u-module.rkt")
+
+(define result (u-decrement 2))

test-inputs/u-module.rkt

@@ -0,0 +1,5 @@
+#lang racket
+
+(provide u-decrement)
+
+(define (u-decrement x) (- x 1))