#lang scheme/base

(require (planet schematics/sake:1))

(define-task compile
  ()
  (action:compile "main.ss"))

(define-task test
  (compile)
  (action:test "all-mirrors-tests.ss" 'all-mirrors-tests))

(define-task planet-build
  (test)
  (when (file-exists? "mirrors.plt")
    (delete-file "mirrors.plt"))
  (action:planet-archive "."))

(define-task default
  (planet-build))