crew 0.0.1

data/.crew/tasks/brew/installed_.crew

@@ -0,0 +1,19 @@
+desc "Check if a package is installed using homebrew"
+
+arg "name", "The name of the package to check"
+
+hints "darwin"
+
+setup do
+  setup_homebrew
+end
+
+run do
+  /Not installed/m !~ sh("brew info #{escape(args.name)}")
+end
+
+test do
+  assert !run!("fortune")
+  sh "brew install fortune"
+  assert run!("fortune")
+end

data/.crew/tasks/brew/uninstall.crew

@@ -0,0 +1,20 @@
+desc "Uninstall a package using homebrew"
+
+arg "name"
+
+hints "darwin"
+
+verify do
+  assert /Not installed/m =~ sh("brew info #{args.name}")
+end
+
+run do
+  sh("brew uninstall #{args.name}")
+end
+
+test do
+  brew_install "fortune"
+  sh "fortune"
+  run! "fortune"
+  assert_not sh?("fortune")
+end

data/.crew/tasks/crew/boot.crew

@@ -0,0 +1,9 @@
+desc "Describes the boot sequence for crew"
+
+run do
+  os_version
+end
+
+test do
+  run!
+end

data/.crew/tasks/desc.crew

@@ -0,0 +1,11 @@
+desc "Describes a task"
+
+arg "name", "The name of the task"
+
+run do
+  task(args.name).desc
+end
+
+test do
+  assert_equal "Describes a task", run!("desc")
+end

data/.crew/tasks/dmg/install/app.crew

@@ -0,0 +1,24 @@
+desc "Install an application from a dmg"
+
+arg "dmg"
+arg "app_name"
+
+hints "darwin"
+
+verify do
+  assert fs_exists?("/Applications/#{args.app_name}.app")
+end
+
+run do
+  dmg_mount(args.dmg) do |mount_point|
+    fs_copy fs_join(mount_point, "#{args.app_name}.app"), "/Applications/#{args.app_name}.app", recursive: true
+  end
+end
+
+test do
+  response = http_get("http://www.sublimetext.com/3")
+  url = html_xpath_select(response, "//a[text()='OS X']/@href")[0]
+  http_download(url) do |file_path|
+    run! file_path, "Sublime Text"
+  end
+end

data/.crew/tasks/dmg/install/pkg.crew

@@ -0,0 +1,21 @@
+desc "Install a package from a dmg"
+
+arg "dmg", "The path to the dmg"
+arg "pkg_name", "The name of the package to install"
+
+hints "darwin"
+
+run do
+  dmg_mount(args.dmg) do |mount_point|
+    app_name = File.basename(fs_list(mount_point).find{|f| File.extname(f) == '.app'})[/(.*?)\.app$/, 1]
+    fs_copy fs_join(mount_point, "#{app_name}.app"), "/Applications/#{app_name}", recursive: true
+  end
+end
+
+test do
+  response = http_get("http://www.sublimetext.com/3")
+  url = html_xpath_select(response, "//a[text()='OS X']/@href")[0]
+  http_download(url) do |file_path|
+    run! file_path, "Sublime Text"
+  end
+end

data/.crew/tasks/dmg/mount.crew

@@ -0,0 +1,30 @@
+desc "Mount a dmg"
+
+arg "path", "The path to the dmg", type: String
+
+hints "darwin"
+
+block required: true do
+  arg "The path to the mount point", type: String
+end
+
+run do
+  dev_path, type, mount_path = sh("hdiutil attach #{escape(args.path)}").split("\n").last.split(/\s+\t/)
+  if args.block
+    begin
+      args.block.call(mount_path)
+    ensure
+      sh?("umount #{escape(mount_path)}")
+    end
+  else
+    mount_path
+  end
+end
+
+test do
+  save_file fs_join(home_dir, "../spec/fixtures/dmg/mount/good.dmg"), "/tmp/good.dmg"
+  run! "/tmp/good.dmg" do |path|
+    assert_equal "This is great", fs_read(fs_join(path, "test.txt"))
+  end
+  assert_fails { fs_read(fs_join(path, "test.txt")) }
+end

data/.crew/tasks/dpkg/install.crew

@@ -0,0 +1,21 @@
+desc "Install dpkg"
+
+hints "ubuntu"
+
+arg "path"
+
+run do
+  sh "dpkg -i #{escape(args.path)}", sudo: true
+end
+
+test do
+  # TODO
+  url = if hints.include?("arch_64")
+    "http://files.vagrantup.com/packages/a40522f5fabccb9ddabad03d836e120ff5d14093/vagrant_1.3.5_x86_64.deb"
+  elsif hints.include?("arch_32")
+    "http://files.vagrantup.com/packages/a40522f5fabccb9ddabad03d836e120ff5d14093/vagrant_1.3.5_i686.deb"
+  end
+  http_download(url, preserve_on_error: true) do |file_path|
+    run!(file_path)
+  end
+end

data/.crew/tasks/env.crew

@@ -0,0 +1,11 @@
+desc "Returns an environment variable"
+
+arg :name
+
+run do
+  sh("echo $#{args.name}").chomp
+end
+
+test do
+  assert_equal sh("echo $HOME").chomp, run!("HOME")
+end

data/.crew/tasks/env/home.crew

@@ -0,0 +1,9 @@
+desc "Returns the value of $HOME"
+
+run do
+  env "HOME"
+end
+
+test "darwin" do
+  assert_equal sh("cd ~; pwd").chomp, run!
+end

data/.crew/tasks/env/shell.crew

@@ -0,0 +1,9 @@
+desc "Returns the value of $SHELL"
+
+run do
+  env "SHELL"
+end
+
+test "darwin" do
+  assert_equal "/bin/bash", run!
+end

data/.crew/tasks/env/shell/type.crew

@@ -0,0 +1,9 @@
+desc "Returns a short version of $SHELL (just bash, zsh, etc)"
+
+run do
+  env_shell.split(/\//).last
+end
+
+test "darwin" do
+  assert_equal "bash", run!
+end

data/.crew/tasks/fs/copy.crew

@@ -0,0 +1,35 @@
+desc "Copies a file"
+
+arg "from",      "The source"
+arg "to",        "The destination"
+opt "recursive", "Specifies whether to load asynchronously", default: false
+
+verify do
+  assert fs_exists?(args.from)
+  assert fs_exists?(args.to)
+  assert_fs_equal args.from, args.to unless args.recursive
+end
+
+run do
+  cmd = "cp"
+  if args.recursive
+    cmd << " -r"
+  end
+  sh "#{cmd} #{escape(args.from)} #{escape(args.to)}"
+end
+
+test "dawrin" do
+  sh "rm -rf /tmp/copy"
+  sh "mkdir -p /tmp/copy"
+  sh "dd if=/dev/random of=/tmp/copy/source count=1000"
+  run! "/tmp/copy/source", "/tmp/copy/dest"
+  assert_fs_equal "/tmp/copy/source", "/tmp/copy/dest"
+end
+
+test "linux" do
+  sh "rm -rf /tmp/copy"
+  sh "mkdir -p /tmp/copy"
+  sh "dd if=/dev/random of=/tmp/copy/source count=2 bs=1M"
+  run! "/tmp/copy/source", "/tmp/copy/dest"
+  assert_fs_equal "/tmp/copy/source", "/tmp/copy/dest"
+end

data/.crew/tasks/fs/directory_.crew

@@ -0,0 +1,12 @@
+desc "Tests if file is a directory"
+
+arg "path"
+
+run do
+  sh?("test -d #{escape(args.path)}")
+end
+
+test do
+  assert run!("/tmp")
+  assert_not run!("/qweeqwasdewq")
+end

data/.crew/tasks/fs/exists_.crew

@@ -0,0 +1,14 @@
+desc "Tests if file exists"
+
+arg :path
+
+run do
+  sh?("test -e #{escape(args.path)}")
+end
+
+test do
+  sh "touch /tmp/testing-file-exists"
+  assert run!("/tmp/testing-file-exists")
+  sh "rm /tmp/testing-file-exists"
+  assert !run!("/tmp/testing-file-exists")
+end

data/.crew/tasks/fs/join.crew

@@ -0,0 +1,11 @@
+desc "Creates a file path by joining together parts"
+
+args "parts"
+
+run do
+  File.join(args.parts)
+end
+
+test do
+  assert_equal "asd/qwe", fs_join("asd", "qwe")
+end

data/.crew/tasks/fs/lines.crew

@@ -0,0 +1,13 @@
+desc "Get all the lines in a file"
+
+arg "path"
+
+run do
+  fs_read(args.path).split("\n")
+end
+
+test do
+  fs_write("/tmp/line-test", "line 1\nline 2")
+  assert_equal ['line 1', 'line 2'], run!("/tmp/line-test")
+  fs_remove "/tmp/line-test"
+end

data/.crew/tasks/fs/lines/add.crew

@@ -0,0 +1,24 @@
+desc "Add a line"
+
+arg "path", "The path to the file"
+arg "line", "The line to add"
+
+verify do
+  lines = fs_lines(args.path)
+  assert_include fs_lines(args.path), args.line
+end
+
+run do
+  fs_write args.path, (fs_lines(args.path) << args.line).join("\n")
+end
+
+test do
+  fs_write "/tmp/lines", "line 1\nline 2"
+  run! "/tmp/lines", "line 3"
+end
+
+test do
+  fs_write "/tmp/lines", "line 1\nline 2"
+  run! "/tmp/lines", "line 1"
+  assert_equal "line 1\nline 2", fs_read("/tmp/lines")
+end

data/.crew/tasks/fs/lines/remove.crew

@@ -0,0 +1,20 @@
+desc "Remove a line"
+
+arg "path", "The path to the file"
+arg "line", "The line to remove"
+
+verify do
+  assert_not_include fs_lines(args.path), args.line
+end
+
+run do
+  lines = fs_lines(args.path)
+  lines.delete(args.line)
+  fs_write args.path, lines.join("\n")
+end
+
+test do
+  fs_write "/tmp/lines", "line 1\nline 2\nline 3"
+  run! "/tmp/lines", "line 2"
+  assert_equal ['line 1', 'line 3'], fs_lines("/tmp/lines")
+end

data/.crew/tasks/fs/list.crew

@@ -0,0 +1,18 @@
+desc "List all the files"
+
+arg "path"
+
+run do
+  sh("ls -A1 #{escape(args.path)}").split("\n")
+end
+
+test do
+  sh "mkdir /tmp/list-test"
+  sh "touch /tmp/list-test/1"
+  sh "touch /tmp/list-test/2"
+  sh "touch /tmp/list-test/3"
+  cd("/tmp/list-test") do
+    assert_equal %w(1 2 3), run!("/tmp/list-test")
+  end
+  sh "rm -rf /tmp/list-test"
+end

data/.crew/tasks/fs/md5.crew

@@ -0,0 +1,17 @@
+desc "returns the md5 of a file"
+
+arg "path"
+
+run "darwin" do
+  sh("md5 #{escape(args.path)}")[/[0-9a-f]{32}/]
+end
+
+run "linux" do
+  sh("md5sum #{escape(args.path)}")[/[0-9a-f]{32}/]
+end
+
+test do
+  require 'digest/md5'
+  save_data("this is my file", "/tmp/md5-test")
+  assert_equal Digest::MD5.hexdigest("this is my file"), run!("/tmp/md5-test")
+end

data/.crew/tasks/fs/path/add.crew

@@ -0,0 +1,22 @@
+desc "Add a path"
+
+arg "path"
+
+verify do
+  assert fs_path_include?(args.path)
+end
+
+run do
+  bashrc_file = fs_join(env_home, '.bash_profile')
+  fs_touch bashrc_file
+  fs_lines_add bashrc_file, "export PATH=$PATH:#{escape(args.path)}"
+  reconnect!
+end
+
+test do
+  sh "mkdir -p /tmp/random"
+  save_data("#!/bin/bash\necho -n hello", "/tmp/random/hello.sh")
+  sh "chmod 755 /tmp/random/hello.sh"
+  run! "/tmp/random"
+  assert_equal "hello", sh("/tmp/random/hello.sh")
+end

data/.crew/tasks/fs/path/include_.crew

@@ -0,0 +1,12 @@
+desc "Check if a path is in the path"
+
+arg "path", "The path"
+
+run do
+  fs_paths.include?(args.path)
+end
+
+test do
+  fs_path_add "/tmp/hello"
+  run! "/tmp/hello"
+end

data/.crew/tasks/fs/paths.crew

@@ -0,0 +1,9 @@
+desc "Return an array of the current paths"
+
+run do
+	sh("echo $PATH").chomp.split(":")
+end
+
+test do
+  assert_equal sh("echo $PATH").chomp.split(":"), run!
+end

data/.crew/tasks/fs/pwd.crew

@@ -0,0 +1,9 @@
+desc "Returns the current directory"
+
+run do
+  sh("pwd").chomp
+end
+
+test do
+  assert_equal sh("echo $PWD").chomp, run!
+end