www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

test1.rkt (465B)

      1 #lang racket
      2 (require remember
      3          rackunit
      4          (submod "../remember-implementation.hl.rkt" private))
      5 (remember-input-file "input1.rkt")
      6 (begin-for-syntax
      7   (require rackunit)
      8   (define secs (current-seconds))
      9   (remembered-add-written! 'foo `(1 2 3 secs))
     10   (check-false (remembered? 'foo `(1 2 3 secs)))
     11   (check-true (remembered-or-written? 'foo `(1 2 3 secs))))
     12 ;; check that no identifiers were imported from "input1.rkt".
     13 (check-not-equal? + 'wrong)