#lang racket/base
(require rackunit
         racket/system
         unstable/debug
         racket/match
         (for-syntax racket/base
                     syntax/parse)
         racket/file
         racket/runtime-path
         racket/path
         racket/list
         planet2/util
         "shelly.rkt"
         "util.rkt")

(pkg-tests
 (shelly-begin
  (shelly-case
   "create"

   (shelly-case
    "create fails on missing directories"
    $ "rm -fr test-pkgs/does-not-exist test-pkgs/does-not-exist.tgz"
    $ "raco pkg create --format tgz test-pkgs/does-not-exist" =exit> 1
    $ "test -f test-pkgs/does-not-exist.tgz" =exit> 1)

   $ "raco pkg create planet2-test1" =exit> 1

   (define-syntax-rule (shelly-create pkg fmt)
     (shelly-case
      (format "create format ~a" fmt)
      $ (format "rm -f test-pkgs/~a.~a test-pkgs/~a.~a.CHECKSUM"
                pkg fmt pkg fmt)
      $ (format "raco pkg create --format ~a test-pkgs/~a"
                fmt pkg)
      $ (format "test -f test-pkgs/~a.~a" pkg fmt)
      $ (format "test -f test-pkgs/~a.~a.CHECKSUM" pkg fmt)))

   (shelly-create "planet2-test1" "tgz")
   (shelly-create "planet2-test1" "zip")
   (shelly-create "planet2-test1-v2" "zip")
   (shelly-create "planet2-test1-conflict" "zip")
   (shelly-create "planet2-test1" "plt")
   (shelly-create "racket-conflict" "tgz")

   $ "raco pkg create --format txt test-pkgs/planet2-test1" =exit> 1

   (shelly-create "planet2-test2" "zip")

   (shelly-case
    "create is robust against ending /s"
    $ "rm -f test-pkgs/planet2-test1.tgz test-pkgs/planet2-test1.tgz.CHECKSUM"
    $ "raco pkg create --format tgz test-pkgs/planet2-test1/"
    $ "test -f test-pkgs/planet2-test1.tgz"
    $ "test -f test-pkgs/planet2-test1.tgz.CHECKSUM"))

  (shelly-case
   "create MANIFESTs"
   $ "rm -f test-pkgs/planet2-test1/MANIFEST"
   $ "raco pkg create --manifest test-pkgs/planet2-test1/"
   $ "test -f test-pkgs/planet2-test1/MANIFEST")))