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

Fix xrepl test (updated expected interactions)

Browse Source
This commit is contained in:
Asumu Takikawa 2013-11-26 01:34:53 -05:00
parent 1b4bcd1e2c
commit d3bfc5bdd5
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/xrepl.rkt
View File

@ -127,7 +127,7 @@
; *** Initializing a new `typed/racket' namespace with typed/racket *** ; *** Initializing a new `typed/racket' namespace with typed/racket ***
; *** Switching to the `typed/racket' namespace *** ; *** Switching to the `typed/racket' namespace ***
typed/racket::-> «^» ⇒ works in TR too typed/racket::-> «^» ⇒ works in TR too
- : Integer [generalized from Positive-Byte] - : Integer [more precisely: Positive-Byte]
123 123
typed/racket::-> «,switch *» typed/racket::-> «,switch *»
; *** Switching to the `*' namespace *** ; *** Switching to the `*' namespace ***
@ -143,29 +143,32 @@
-> «,desc cons» -> «,desc cons»
; `cons' is a bound identifier, ; `cons' is a bound identifier,
; defined in #%kernel ; defined in #%kernel
; required through "racket/init.rkt" ; required through "<collects>/racket/init.rkt"
-> «,desc lambda» -> «,desc lambda»
; `lambda' is a bound identifier, ; `lambda' is a bound identifier,
; defined in racket/private/kw.rkt as `new-lambda' ; defined in <collects>/racket/private/kw.rkt as `new-lambda'
; required through "racket/init.rkt" ; required through "<collects>/racket/init.rkt"
-> «,desc racket/runtime-path» -> «,desc racket/runtime-path»
; `racket/runtime-path' is a module, ; `racket/runtime-path' is a module,
; located at racket/runtime-path.rkt ; located at <collects>/racket/runtime-path.rkt
; imports: racket/base.rkt, racket/list.rkt, ; imports: <collects>/racket/base.rkt, <collects>/racket/list.rkt,
; racket/private/runtime-path-table.rkt, ; <collects>/racket/private/runtime-path-table.rkt,
; racket/private/this-expression-source-directory.rkt, setup/dirs.rkt. ; <collects>/racket/private/this-expression-source-directory.rkt,
; imports-for-syntax: racket/base.rkt. ; <collects>/setup/dirs.rkt.
; imports-for-syntax: <collects>/racket/base.rkt.
; direct syntax exports: define-runtime-module-path, ; direct syntax exports: define-runtime-module-path,
; define-runtime-module-path-index, define-runtime-path, ; define-runtime-module-path-index, define-runtime-path,
; define-runtime-path-list, define-runtime-paths, runtime-paths. ; define-runtime-path-list, define-runtime-paths, runtime-paths,
; runtime-require.
-> «(current-directory "/( none )")» ⇒ racket allows this -> «(current-directory "/( none )")» ⇒ racket allows this
; now in /( none ) ⇒ reports without ,cd ; now in /( none ) ⇒ reports without ,cd
-> «,cd @|tmp|» -> «,cd @|tmp|»
; now in @tmp ; now in @tmp
-> «,desc scribble/html» -> «,desc scribble/html»
; `scribble/html' is a module, ; `scribble/html' is a module,
; located at scribble/html.rkt ; located at <pkgs>/scribble-lib/scribble/html.rkt
; imports: racket/base.rkt, scribble/html/main.rkt. ; imports: <collects>/racket/base.rkt,
; <pkgs>/scribble-lib/scribble/html/main.rkt.
; no direct exports. ; no direct exports.
-> «(module broken racket/base (define foo 123) (error "bleh!"))» -> «(module broken racket/base (define foo 123) (error "bleh!"))»
-> «,en broken» -> «,en broken»
@ -185,9 +188,9 @@
; cannot reference undefined identifier ; cannot reference undefined identifier
; [,bt for context] ; [,bt for context]
-> «,en json» -> «,en json»
json/main> «,sh echo $F» <collects>/json/main> «,sh echo $F»
@|collects|/json/main.rkt @|collects|/json/main.rkt
json/main> «,top» <collects>/json/main> «,top»
-> «(display-to-file "#lang racket\n(provide x)\n(define x 1)\n" -> «(display-to-file "#lang racket\n(provide x)\n(define x 1)\n"
"xrepl-test.rkt" #:exists 'truncate)» "xrepl-test.rkt" #:exists 'truncate)»
-> «,rr "xrepl-test.rkt"» ⇒ first load -> «,rr "xrepl-test.rkt"» ⇒ first load