suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove bogus link, set svn:eol-style

Browse Source 
svn: r6108
This commit is contained in:
Eli Barzilay 2007-05-01 03:25:37 +00:00
parent 0ef215c58c
commit f7da18826d
35 changed files with 32 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -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")))))))

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

@ -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"))))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -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"]))))))))

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

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

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

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

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

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

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

@ -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.")))))

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

@ -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."))))))))

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

@ -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."))))))))

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

@ -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)))

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

@ -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))))))

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

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

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

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

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

@ -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))))))

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

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

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

@ -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!")))))

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -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)))))))))

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

@ -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>")))

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

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

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

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