#lang scheme/base

(require (planet schematics/sake:1))

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

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

(define-task planet-install
  (test)
  (when (file-exists? "port.plt")
    (delete-file "port.plt"))
  (action:planet-archive ".")
  (rename-file-or-directory "trunk.plt" "port.plt")
  (action:planet-remove "schematics" "port.plt" 1 3)
  (action:planet-install "schematics" "port.plt" 1 3))

(define-task all
  (planet-install))

(define-task default
  (all))