@@ -19,9 +19,11 @@ import qualified Data.ByteString.Lazy as BL
1919import Data.ByteString.Lazy (ByteString)
2020import qualified Data.Aeson as A
2121import Data.Aeson.BetterErrors
22+import Data.Version
2223
2324import Main
2425import Language.PureScript.Docs
26+import Language.PureScript.Publish
2527
2628pkgName = "purescript-prelude"
2729packageUrl = "https://github.com/purescript/" ++ pkgName
@@ -50,11 +52,17 @@ bowerInstall =
5052 pushd packageDir $
5153 readProcess "bower" ["install"] "" >>= putStr
5254
55+testRunOptions :: PublishOptions
56+testRunOptions = defaultPublishOptions
57+ { publishGetVersion = return testVersion
58+ }
59+ where testVersion = ("v999.0.0", Version [999,0,0] [])
60+
5361getPackage :: IO UploadedPackage
5462getPackage = do
5563 clonePackage
5664 bowerInstall
57− pushd packageDir preparePackage
65+ pushd packageDir $ preparePackage testRunOptions
5866
5967data TestResult
6068 = ParseFailed String