From f7da18826d5f9ae579dbbea7388dedad9f5d27b0 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 1 May 2007 03:25:37 +0000 Subject: [PATCH] remove bogus link, set svn:eol-style svn: r6108 --- .../default-web-root/servlets/tests/new-suite/bad-xexpr.ss | 2 +- .../default-web-root/servlets/tests/new-suite/bus-error.ss | 2 +- .../default-web-root/servlets/tests/new-suite/button.ss | 2 +- .../default-web-root/servlets/tests/new-suite/cell-example.ss | 1 - .../default-web-root/servlets/tests/new-suite/counter-cells.ss | 2 +- .../default-web-root/servlets/tests/new-suite/counter-cps.ss | 2 +- .../default-web-root/servlets/tests/new-suite/counter.ss | 2 +- .../default-web-root/servlets/tests/new-suite/cust.ss | 1 - .../default-web-root/servlets/tests/new-suite/expiration.ss | 1 - .../default-web-root/servlets/tests/new-suite/fault.ss | 2 +- .../default-web-root/servlets/tests/new-suite/form.ss | 2 +- .../default-web-root/servlets/tests/new-suite/fupload.ss | 2 +- .../default-web-root/servlets/tests/new-suite/hang.ss | 2 +- .../default-web-root/servlets/tests/new-suite/hod-0618.ss | 2 +- .../default-web-root/servlets/tests/new-suite/inf-essence.ss | 2 +- .../web-server/default-web-root/servlets/tests/new-suite/inf.ss | 2 +- .../servlets/tests/new-suite/instance-expiration-2.ss | 2 +- .../servlets/tests/new-suite/instance-expiration.ss | 2 +- .../servlets/tests/new-suite/jas01-fix-param.ss | 2 +- .../default-web-root/servlets/tests/new-suite/jas01-fix.ss | 2 +- .../default-web-root/servlets/tests/new-suite/jas01-param.ss | 2 +- .../default-web-root/servlets/tests/new-suite/jas01-test.ss | 2 +- .../default-web-root/servlets/tests/new-suite/jas01.ss | 2 +- .../default-web-root/servlets/tests/new-suite/lock.ss | 2 +- .../default-web-root/servlets/tests/new-suite/none-test.ss | 2 +- .../default-web-root/servlets/tests/new-suite/plus.ss | 2 +- .../default-web-root/servlets/tests/new-suite/pr5490.ss | 2 +- .../default-web-root/servlets/tests/new-suite/pr5565.ss | 2 +- .../default-web-root/servlets/tests/new-suite/pr7359.ss | 2 +- .../default-web-root/servlets/tests/new-suite/pr7533.ss | 2 +- .../default-web-root/servlets/tests/new-suite/pr7935-other.ss | 2 +- .../web-server/default-web-root/servlets/tests/new-suite/ssd.ss | 2 +- .../default-web-root/servlets/tests/new-suite/static.ss | 2 +- .../default-web-root/servlets/tests/new-suite/update.ss | 2 +- .../default-web-root/servlets/tests/new-suite/utf8.ss | 2 +- 35 files changed, 32 insertions(+), 35 deletions(-) delete mode 120000 collects/web-server/default-web-root/servlets/tests/new-suite/cell-example.ss diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/bad-xexpr.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/bad-xexpr.ss index 6d7d17c43d..f7f66f4b46 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/bad-xexpr.ss +++ b/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"))))) \ No newline at end of file + "Title"))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/bus-error.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/bus-error.ss index e5a329ba90..8ab77cecb9 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/bus-error.ss +++ b/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"))))))) \ No newline at end of file + (p (a ([href ,end]) "End"))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/button.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/button.ss index da50c14af1..dc9b146a67 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/button.ss +++ b/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")))) \ No newline at end of file + (list #"text/plain" "Button")))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/cell-example.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/cell-example.ss deleted file mode 120000 index 114adb316f..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/cell-example.ss +++ /dev/null @@ -1 +0,0 @@ -/Users/jay/Development/Projects/papers/web-cells/cell-example.ss \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss index 0e8650818f..139c9518b3 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss @@ -43,4 +43,4 @@ (lambda _ (counter) (main-page)))]) - "View Counter")))))) \ No newline at end of file + "View Counter")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cps.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cps.ss index 6b8aaf4653..989141d3a9 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cps.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cps.ss @@ -33,4 +33,4 @@ (counter (lambda (v) (main-page)))))]) - "View Counter")))))) \ No newline at end of file + "View Counter")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/counter.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/counter.ss index fccaf10462..5a81acff7e 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/counter.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/counter.ss @@ -32,4 +32,4 @@ (lambda _ (counter) (main-page)))]) - "View Counter")))))) \ No newline at end of file + "View Counter")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/cust.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/cust.ss index c8f34fe2d0..c0160973e1 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/cust.ss +++ b/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.")))))) - \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/expiration.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/expiration.ss index b6cec86438..79865e12a1 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/expiration.ss +++ b/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.")))))))))) - \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/fault.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/fault.ss index 9986d1abd6..e150c00909 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/fault.ss +++ b/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"))) \ No newline at end of file + (format "~a" "fault"))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/form.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/form.ss index c9c4da17ea..0039c03231 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/form.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/form.ss @@ -25,4 +25,4 @@ `(html (body (pre - ,(get-output-string sport)))))) \ No newline at end of file + ,(get-output-string sport)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/fupload.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/fupload.ss index 50225836c8..fa210d8dd0 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/fupload.ss +++ b/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"])))))))) \ No newline at end of file + (input ([type "submit"] [value "Submit"])))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/hang.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/hang.ss index 01b89deaf0..47038ee23b 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/hang.ss +++ b/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))) \ No newline at end of file + (/ 1 0))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/hod-0618.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/hod-0618.ss index e71bb36980..7a9953c8bc 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/hod-0618.ss +++ b/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"]))))))))))))) \ No newline at end of file + (input ([type "submit"]))))))))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/inf-essence.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/inf-essence.ss index 98989df0a4..b6fb9386dd 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/inf-essence.ss +++ b/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))) \ No newline at end of file + (loop))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/inf.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/inf.ss index 6ffee51d7c..73c99870e6 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/inf.ss +++ b/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."))))) \ No newline at end of file + (p "This is a simple module servlet."))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration-2.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration-2.ss index 07c76af031..6533ee18f1 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration-2.ss +++ b/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.")))))))) \ No newline at end of file + "Click this link.")))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration.ss index 54edd46e17..8f0fc07b16 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/instance-expiration.ss +++ b/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.")))))))) \ No newline at end of file + "Click this link.")))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss index f94c381af0..83d78d6e7c 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss +++ b/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))) \ No newline at end of file + (web-cell:local-set! load-time (current-seconds))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix.ss index e6a74d521a..078eba9382 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix.ss +++ b/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)))))) \ No newline at end of file + ,(number->string (get-time)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-param.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-param.ss index d04ce39850..3f508f17ad 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-param.ss +++ b/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))) \ No newline at end of file + (load-time (current-seconds))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-test.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-test.ss index b1d7eb2157..5a468319b0 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-test.ss +++ b/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)))))) \ No newline at end of file + (printf "~S~n" (start 'foo)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01.ss index c9dac7152d..9499c25e1d 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01.ss +++ b/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)))))) \ No newline at end of file + ,(number->string (get-time)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/lock.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/lock.ss index 6e15bf4e3e..6f67fc2e7a 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/lock.ss +++ b/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)))))) \ No newline at end of file + ,(number->string (current-seconds)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/none-test.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/none-test.ss index 96df38bf74..9097168261 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/none-test.ss +++ b/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!"))))) \ No newline at end of file + `(html (body (h2 "Look Ma, No Instance!"))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/plus.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/plus.ss index 902a702e9c..27b31755e4 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/plus.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/plus.ss @@ -25,4 +25,4 @@ `(html (body (pre - ,(get-output-string sport)))))) \ No newline at end of file + ,(get-output-string sport)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/pr5490.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/pr5490.ss index 755544e421..03cd86153e 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/pr5490.ss +++ b/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") "...")))) \ No newline at end of file + (send/finish '(("paul") "...")))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/pr5565.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/pr5565.ss index 21d9bb836b..6cb1cee646 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/pr5565.ss +++ b/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))))) \ No newline at end of file + (list r))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7359.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/pr7359.ss index 341848b0b2..e14ed95fd5 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7359.ss +++ b/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")))) \ No newline at end of file + `(html (body "Made it")))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7533.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/pr7533.ss index 372ef37de5..4a934b327f 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7533.ss +++ b/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))))) \ No newline at end of file + (loop time))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7935-other.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/pr7935-other.ss index c86b989e4e..b4245260dc 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/pr7935-other.ss +++ b/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))) \ No newline at end of file + (/ 1 0))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/ssd.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/ssd.ss index 65327e0f58..8098699192 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/ssd.ss +++ b/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))))))))) \ No newline at end of file + `(1 2 3 4 5 6 7 8 9 0))))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/static.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/static.ss index 7e669a00f0..c71d73062d 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/static.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/static.ss @@ -6,4 +6,4 @@ (define (start initial-request) (list #"text/html" - "Foo"))) \ No newline at end of file + "Foo"))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/update.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/update.ss index 2057700245..f3941d01e3 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/update.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/update.ss @@ -8,4 +8,4 @@ (send/back `(html (head) (body - (h1 "Hey")))))) \ No newline at end of file + (h1 "Hey")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/utf8.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/utf8.ss index ad0d2c251b..ee4f151814 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/utf8.ss +++ b/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"]))))))))))) \ No newline at end of file + (input ([type "submit"])))))))))))