add require tests; center title; simplify pastenum gen

- fixes #28

pasterack-test-cases.rkt

@@ -4,6 +4,13 @@
 
 (define test-cases
   '(
+    ;; require tests
+    "7262" ; html-render
+    "5751" ; only-in
+    "9993" ; except-in
+    "8521" ; prefix-in
+    "6777" ; rename-in
+    "4580" ; combine-in
     ;; proper doc linking
     "2425" ; 2htdp/image image? doc link
     "3233" ; htdp/bsl image? doc link

pasterack-utils.rkt

@@ -9,7 +9,8 @@
 (define (to-string/s d) (format "~s" d))
 
 (define (mk-rand-str)
-  (bytes->string/utf-8 (list->bytes (for/list ([n 4]) (+ 49 (random 9))))))
+  (number->string (random 10000)))
+;  (bytes->string/utf-8 (list->bytes (for/list ([n 4]) (+ 49 (random 9))))))
 
 (define (get-time/iso8601)
   (parameterize ([date-display-format 'iso-8601])

pasterack.rkt

@@ -26,7 +26,8 @@
 (define racket-logo-url "http://racket-lang.org/logo.png")
 (define racket-irc-url "https://botbot.me/freenode/racket/")
 
-(define scrbl-exe "/home/stchang/plt/racket/bin/scribble")
+;(define scrbl-exe "/home/stchang/plt/racket/bin/scribble")
+(define scrbl-exe "/home/stchang/pltpkg/racket/bin/scribble")
 
 (define (mk-paste-url paste-num) (++ paste-url-base paste-num))
 
@@ -358,7 +359,7 @@
               ": An evaluating pastebin for "
               ,(mk-link racket-lang-url "Racket") ".")
           (form ((action ,(embed/url process-paste)) (method "post"))
-            (div ([style "text-align:left"])
+            (div 
               (input ([type "text"] [name "name"] [size "60"] [value ,title]
                       [style ,(~~ "background-color:#FFFFF0"
                                   "border:inset thin"