From 07bd111a589f08f2325587c76abef8d8879daa58 Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang216@gmail.com>
Date: Thu, 17 Oct 2013 01:10:13 -0400
Subject: [PATCH] add require tests; center title; simplify pastenum gen

- fixes #28
---
 pasterack-test-cases.rkt | 7 +++++++
 pasterack-utils.rkt      | 3 ++-
 pasterack.rkt            | 5 +++--
 3 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/pasterack-test-cases.rkt b/pasterack-test-cases.rkt
index 9d8cb96..bff04ec 100644
--- a/pasterack-test-cases.rkt
+++ b/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
diff --git a/pasterack-utils.rkt b/pasterack-utils.rkt
index 8a9b01b..3030ba5 100644
--- a/pasterack-utils.rkt
+++ b/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])
diff --git a/pasterack.rkt b/pasterack.rkt
index 8de8695..04b18ec 100644
--- a/pasterack.rkt
+++ b/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"