remove bogus link, set svn:eol-style

svn: r6108

collects/web-server/default-web-root/servlets/tests/new-suite/bad-xexpr.ss

@@ -7,4 +7,4 @@
   (define (start initial-request)
     (send/back
      `(html (a ([href url])
-               "Title")))))
+               "Title")))))

collects/web-server/default-web-root/servlets/tests/new-suite/bus-error.ss

@@ -11,4 +11,4 @@
   (define (start request)
     (send/suspend/callback
      `(html (body (p (a ([href ,start]) "Forward"))
-                  (p (a ([href ,end]) "End")))))))
+                  (p (a ([href ,end]) "End")))))))

collects/web-server/default-web-root/servlets/tests/new-suite/button.ss

@@ -6,4 +6,4 @@
  (define timeout +inf.0)
  (define (start initial-request)
    (let ([b (new button% (label "Button"))])
-   (list #"text/plain" "Button"))))
+   (list #"text/plain" "Button"))))

collects/web-server/default-web-root/servlets/tests/new-suite/cell-example.ss

@@ -1 +0,0 @@
-/Users/jay/Development/Projects/papers/web-cells/cell-example.ss

collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss

@@ -43,4 +43,4 @@
                           (lambda _
                             (counter)
                             (main-page)))])
-                 "View Counter"))))))
+                 "View Counter"))))))

collects/web-server/default-web-root/servlets/tests/new-suite/counter-cps.ss

@@ -33,4 +33,4 @@
                             (counter
                              (lambda (v)
                                (main-page)))))])
-                 "View Counter"))))))
+                 "View Counter"))))))

collects/web-server/default-web-root/servlets/tests/new-suite/counter.ss

@@ -32,4 +32,4 @@
                           (lambda _
                             (counter)
                             (main-page)))])
-                 "View Counter"))))))
+                 "View Counter"))))))

collects/web-server/default-web-root/servlets/tests/new-suite/cust.ss

@@ -13,4 +13,3 @@
        (p ,(if (eq? (current-custodian) servlet-cust)
                "It didn't work."
                "It did work."))))))
-    

collects/web-server/default-web-root/servlets/tests/new-suite/expiration.ss

@@ -33,4 +33,3 @@
                                         `(html (head (title "Expiration demo"))
                                                (body (p (a ([href ,k-url]) "Forget the past.")))))))))])
                          "Prepare to forget the past."))))))))))
-                                     

collects/web-server/default-web-root/servlets/tests/new-suite/fault.ss

@@ -9,4 +9,4 @@
      (lambda (k-url)
        `(a ([href ,k-url]) "Click")))
     (set! X (add1 X))
-    (format "~a" "fault")))
+    (format "~a" "fault")))

collects/web-server/default-web-root/servlets/tests/new-suite/form.ss

@@ -25,4 +25,4 @@
     `(html
       (body
        (pre
-        ,(get-output-string sport))))))
+        ,(get-output-string sport))))))

collects/web-server/default-web-root/servlets/tests/new-suite/fupload.ss

@@ -21,4 +21,4 @@
                     [enctype "multipart/form-data"])
                    (h3 "Submit for an Assignment")
                    (input ([name "file"] [type "file"] [size "30"]))
-                   (input ([type "submit"] [value "Submit"]))))))))
+                   (input ([type "submit"] [value "Submit"]))))))))

collects/web-server/default-web-root/servlets/tests/new-suite/hang.ss

@@ -12,4 +12,4 @@
     (send/suspend
      (lambda (k-url)
        `(html (a ([href ,k-url]) "Error"))))
-    (/ 1 0)))
+    (/ 1 0)))

collects/web-server/default-web-root/servlets/tests/new-suite/hod-0618.ss

@@ -16,4 +16,4 @@
                 (form ([method "POST"]
                        [action ,k-url])
                       (input ([type "text"] [name "test:case"]))
-                      (input ([type "submit"])))))))))))))
+                      (input ([type "submit"])))))))))))))

collects/web-server/default-web-root/servlets/tests/new-suite/inf-essence.ss

@@ -10,4 +10,4 @@
                                (* 1000 1)))
                  (lambda _
                    (printf "One second has passed.~n"))))
-    (loop)))
+    (loop)))

collects/web-server/default-web-root/servlets/tests/new-suite/inf.ss

@@ -9,4 +9,4 @@
   (define (start initial-request) 
     `(html (head (title "A Test Page"))
            (body ([bgcolor "white"])
-                 (p "This is a simple module servlet.")))))
+                 (p "This is a simple module servlet.")))))

collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration-2.ss

@@ -21,4 +21,4 @@
                                 `(html (head (title "Instance expiration demo"))
                                        (body (p "Reload in a few minutes.")
                                              (p "(or change the instance id to something made up.")))))])
-                     "Click this link."))))))))
+                     "Click this link."))))))))

collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration.ss

@@ -20,4 +20,4 @@
                                 `(html (head (title "Instance expiration demo"))
                                        (body (p "Reload in a few minutes.")
                                              (p "(or change the instance id to something made up.")))))])
-                     "Click this link."))))))))
+                     "Click this link."))))))))

collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss

@@ -8,4 +8,4 @@
   (define (get-time)
     (web-cell:local-ref load-time))
   
-  (web-cell:local-set! load-time (current-seconds)))
+  (web-cell:local-set! load-time (current-seconds)))

collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix.ss

@@ -11,4 +11,4 @@
     (report-errors-to-browser send/finish)
     `(html (head (title "Servlet Parameter Test"))
            (body (h1 "Servlet Parameter Test")
-                 ,(number->string (get-time))))))
+                 ,(number->string (get-time))))))

collects/web-server/default-web-root/servlets/tests/new-suite/jas01-param.ss

@@ -6,4 +6,4 @@
   (define (get-time)
     (load-time))
 
-  (load-time (current-seconds)))
+  (load-time (current-seconds)))

collects/web-server/default-web-root/servlets/tests/new-suite/jas01-test.ss

@@ -7,4 +7,4 @@
   (thread-wait
    (thread
     (lambda ()
-      (printf "~S~n" (start 'foo))))))
+      (printf "~S~n" (start 'foo))))))

collects/web-server/default-web-root/servlets/tests/new-suite/jas01.ss

@@ -11,4 +11,4 @@
     (report-errors-to-browser send/finish)
     `(html (head (title "Servlet Parameter Test"))
            (body (h1 "Servlet Parameter Test")
-                 ,(number->string (get-time))))))
+                 ,(number->string (get-time))))))

collects/web-server/default-web-root/servlets/tests/new-suite/lock.ss

@@ -21,4 +21,4 @@
                      "Fast")))))))
   (define (second label)
     `(html (body ,label
-                 ,(number->string (current-seconds))))))
+                 ,(number->string (current-seconds))))))

collects/web-server/default-web-root/servlets/tests/new-suite/none-test.ss

@@ -7,4 +7,4 @@
                    (lambda (failed-request)
                      `(html (body (h2 "Error"))))))
   (define (start initial-request)
-    `(html (body (h2 "Look Ma, No Instance!")))))
+    `(html (body (h2 "Look Ma, No Instance!")))))

collects/web-server/default-web-root/servlets/tests/new-suite/plus.ss

@@ -25,4 +25,4 @@
     `(html
       (body
        (pre
-        ,(get-output-string sport))))))
+        ,(get-output-string sport))))))

collects/web-server/default-web-root/servlets/tests/new-suite/pr5490.ss

@@ -5,4 +5,4 @@
   (define interface-version 'v1)
   (define timeout 120)
   (define (start ireq)
-    (send/finish '(("paul") "..."))))
+    (send/finish '(("paul") "..."))))

collects/web-server/default-web-root/servlets/tests/new-suite/pr5565.ss

@@ -16,4 +16,4 @@
     (define r (extract-binding/single `x (request-bindings q)))   
     (send/suspend
      (build-suspender `("Result of test")
-                      (list r)))))
+                      (list r)))))

collects/web-server/default-web-root/servlets/tests/new-suite/pr7359.ss

@@ -9,4 +9,4 @@
   (define-serializable-struct foo ())
   (define (start req)
     (deserialize (serialize (make-foo)))
-    `(html (body "Made it"))))
+    `(html (body "Made it"))))

collects/web-server/default-web-root/servlets/tests/new-suite/pr7533.ss

@@ -16,4 +16,4 @@
                                (- time start-time)
                                (- time last-time)))
                    (input ((type "submit")))))))
-        (loop time)))))
+        (loop time)))))

collects/web-server/default-web-root/servlets/tests/new-suite/pr7935-other.ss

@@ -7,4 +7,4 @@
   
   (define (start initial-request)
     ;(report-errors-to-browser send/back)
-    (/ 1 0)))
+    (/ 1 0)))

collects/web-server/default-web-root/servlets/tests/new-suite/ssd.ss

@@ -15,4 +15,4 @@
                                           (lambda (r)
                                             `(html (head) (body ,i))))])
                                  ,(number->string i))))
-                       `(1 2 3 4 5 6 7 8 9 0)))))))))
+                       `(1 2 3 4 5 6 7 8 9 0)))))))))

collects/web-server/default-web-root/servlets/tests/new-suite/static.ss

@@ -6,4 +6,4 @@
   (define (start initial-request)
     (list
      #"text/html"
-     "<html><head></head><body>Foo</body><html>")))
+     "<html><head></head><body>Foo</body><html>")))

collects/web-server/default-web-root/servlets/tests/new-suite/update.ss

@@ -8,4 +8,4 @@
     (send/back
      `(html (head)
             (body
-             (h1 "Hey"))))))
+             (h1 "Hey"))))))

collects/web-server/default-web-root/servlets/tests/new-suite/utf8.ss

@@ -14,4 +14,4 @@
            (body
             (form ([action ,k-url])
                   (input ([type "text"] [name "name"]))
-                  (input ([type "submit"])))))))))))
+                  (input ([type "submit"])))))))))))