propellor spin

1 files changed, 11 insertions, 0 deletions

diff --git a/Property/Docker.hs b/Property/Docker.hs
new file mode 100644
index 00000000..9d01d0b3
--- /dev/null
+++ b/Property/Docker.hs
@@ -0,0 +1,11 @@
+module Property.Docker where
+
+import Common
+import qualified Property.File as File
+
+{- Configures docker with an authentication file, so that images can be
+ - pushed to index.docker.io. -}
+configured :: Property
+configured = Property "docker configured" $ 
+	withPrivData DockerAuthentication $ \cfg ->
+		ensureProperty $ "/root/.dockercfg" `File.hasContent` (lines cfg)