Add single flonums to TR random testing.

pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/tr-random-testing.rkt

@@ -22,7 +22,7 @@
   [n real]
   ;; randomly generate F, not E, because literal numbers self-evaluate
   ;; (i.e. generates a useless test)
-  [E* n E F I]
+  [E* n E F S I]
   ;; racket/math
   ;; [E (degrees->radians E)
   ;;    (radians->degrees E)
@@ -81,6 +81,10 @@
      (unsafe-fl- F* F*)
      (unsafe-fl* F* F*)
      (unsafe-fl/ F* F*)]
+  ;; not many single-flonum-specific ops, so will mostly be used in E context
+  [S (real->single-flonum n)
+     (inexact->exact S)
+     (real->double-flonum S)]
   ;; more likely to be integers
   [I* (exact-round n) I] ; TODO fix pre-processing to avoid cast
   [I (* I* ...)