initial commit

test/Live/Serialize.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module Live.Serialize where
+
+import           Data.String.Interpolate.IsString
+
+import           Application
+import           Lib.External.Registry
+import           Startlude
+
+someYaml :: ByteString
+someYaml = [i|
+bitcoind:
+    title: "Bitcoin Core"
+    description:
+      short: "A Bitcoin Full Node"
+      long: "The bitcoin full node implementation by Bitcoin Core."
+    version-info:
+      - version: 0.18.1
+        release-notes: "Some stuff"
+    icon-type: png
+|]
+
+appRegistryTest :: IO (Either String RegistryRes)
+appRegistryTest = flip parseBsManifest someYaml <$> getAppSettings

test/Live/UpdateAgent.hs

@@ -0,0 +1,24 @@
+module Live.UpdateAgent where
+
+import           Application
+import           Lib.Types.ServerApp
+import           Lib.UpdateAgent
+import           Startlude
+
+av :: AppVersion
+av = AppVersion (0,0,0)
+
+avs :: AppVersionSpecification
+avs = AppVersionSpecification SVEquals av
+
+-- Need a few things to run this...
+-- 1) a running "registry" server, pointed to by the settings.yml this file is run against.
+-- 2) that server needs to serve up an executable file at /agent.0.0.0 (the version of av above)
+-- 3) the executable file must itself spin up a server on the same port as this application, defined again in settings.yml
+-- 4) that server must also respond to /version with a semver version in the format "0.0.0"
+-- 5) If all goes well, the stack ghci session which calls updateAgentLive should have been killed, and the executable should still be running
+
+updateAgentLive :: IO ()
+updateAgentLive = do
+    (_, agentCtx, _) <- getApplicationRepl
+    updateAgent' avs agentCtx

test/Spec.hs

@@ -0,0 +1 @@
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}