ref: 9e2aa26b0574b4ac53c838f6b59fd78f952c3923
dir: /tests/cycle.zuo/
#lang zuo (require "harness.zuo") (alert "cycle") (define cycle-file (build-path tmp-dir "cycle.zuo")) (define out (fd-open-output cycle-file :truncate)) (fd-write out (~a "#lang zuo\n" "(require \"cycle.zuo\")\n")) (fd-close out) (check (run-zuo `(require ,(if (relative-path? cycle-file) (build-path (hash-ref (runtime-env) 'dir) cycle-file) cycle-file)) (lambda (status out err) (and (not (= status 0)) (equal? out "") (contains? err "cycle in module loading")))))