Added a feature shards build

src/cli.cr

@@ -10,6 +10,7 @@ module Shards
     #puts "    info <package>"
     puts "    init"
     puts "    install"
+    puts "    build"
     puts "    list"
     puts "    prune"
     #puts "    search <query>"
@@ -52,7 +53,9 @@ module Shards
         #  Commands::Search.run(args[1])
         when "update"
           Commands::Update.run(path)
-          #Commands.update(*args[1 .. -1])
+        #Commands.update(*args[1 .. -1])
+        when  "build"
+          Commands::Build.run(path, args.size > 1 ? args[1] : nil)
         else
           display_help_and_exit(opts)
         end

src/commands/build.cr

@@ -0,0 +1,37 @@
+require "./command"
+
+module Shards
+  module Commands
+    class Build < Command
+      def run
+        # Return if 'crystal' command is not installed
+        return unless has_crystal_command?
+
+        @sub ||= "default"
+
+        if @sub == "all"
+          manager.spec.targets.each do |target|
+            build target
+          end
+        else
+          target = manager.spec.targets.find{ |t| t.name == @sub }
+          raise Error.new("Target \'#{@sub}\' is not found") if target.nil?
+          build target
+        end
+      end
+
+      def build(target)
+        Shards.logger.info "Building: #{target.name}"
+
+        error = MemoryIO.new
+        status = Process.run("/bin/sh", input: MemoryIO.new(target.cmd), output: nil, error: error)
+        raise Error.new("#{error.to_s}") unless status.success?
+      end
+
+      def has_crystal_command?
+        raise Error.new("\'crystal\' is not installed") unless system("which crystal > /dev/null 2>&1")
+        true
+      end
+    end
+  end
+end

src/commands/command.cr

@@ -5,13 +5,14 @@ require "../spec"
 module Shards
   abstract class Command
     getter path : String
+    getter sub : String | Nil
     getter spec_path : String
     getter lockfile_path : String
 
     @spec : Spec?
     @locks : Array(Dependency)?
 
-    def initialize(path)
+    def initialize(path, @sub = nil)
       if File.directory?(path)
         @path = path
         @spec_path = File.join(path, SPEC_FILENAME)
@@ -24,8 +25,8 @@ module Shards
 
     abstract def run
 
-    def self.run(path)
-      new(path).run
+    def self.run(path, sub = nil)
+      new(path, sub).run
     end
 
     def spec

src/spec.cr

@@ -3,6 +3,7 @@ require "yaml"
 require "./config"
 require "./dependency"
 require "./errors"
+require "./target"
 
 module Shards
   class Spec
@@ -94,6 +95,21 @@ module Shards
             read_mapping(pull) { dependency[pull.read_scalar] = pull.read_scalar }
             development_dependencies << dependency
           end
+        when "targets"
+          read_mapping(pull) do
+            target = Target.new(pull.read_scalar)
+            read_mapping(pull) do
+              case pull.read_scalar
+              when "main"
+                target.main = pull.read_scalar
+              when "options"
+                read_sequence(pull) do
+                  target.options.push(pull.read_scalar)
+                end
+              end
+            end
+            targets << target
+          end
         when "libraries"
           read_mapping(pull) do
             libraries << Library.new(pull)
@@ -140,6 +156,10 @@ module Shards
       @development_dependencies ||= [] of Dependency
     end
 
+    def targets
+      @targets ||= [] of Target
+    end
+
     def libraries
       @libraries ||= [] of Library
     end

src/target.cr

@@ -0,0 +1,17 @@
+module Shards
+  class Target
+    getter name : String
+    property main : String
+    property options : Array(String)
+
+    def initialize(@name)
+      super()
+      @main = ""
+      @options = [] of String
+    end
+
+    def cmd
+      "crystal build #{@main} #{@options.join(" ")}"
+    end
+  end
+end

test/integration/build_test.cr

@@ -0,0 +1,75 @@
+require "../integration_helper"
+
+class BuildCommandTest < Minitest::Test
+
+  def test_succeeds_for_default
+    metadata = {
+      targets: { default: { main: "mock.cr" } }
+    }
+
+    with_shard(metadata) do
+      Dir.cd(application_path) do
+        File.open "mock.cr", "w"
+        run "shards build"
+        assert File.exists?(File.join(application_path, "mock"))
+      end
+    end
+  end
+
+  def test_succeeds_for_default_with_options
+    metadata = {
+      targets: { default: { main: "mock.cr", options: ["--release"] } }
+    }
+
+    with_shard(metadata) do
+      Dir.cd(application_path) do
+        File.open "mock.cr", "w"
+        run "shards build"
+        assert File.exists?(File.join(application_path, "mock"))
+      end
+    end
+  end
+
+  def test_succeeds_for_specified_target
+    metadata = {
+      targets: { mock: { main: "mock.cr" } }
+    }
+
+    with_shard(metadata) do
+      Dir.cd(application_path) do
+        File.open "mock.cr", "w"
+        run "shards build mock"
+        assert File.exists?(File.join(application_path, "mock"))
+      end
+    end
+  end
+
+  def test_succeeds_for_all_targets
+    metadata = { targets: {
+                   mock1: { main: "mock1.cr" },
+                   mock2: { main: "mock2.cr" }
+                 } }
+
+    with_shard(metadata) do
+      Dir.cd(application_path) do
+        File.open "mock1.cr", "w"
+        File.open "mock2.cr", "w"
+        run "shards build all"
+        assert File.exists?(File.join(application_path, "mock1"))
+        assert File.exists?(File.join(application_path, "mock2"))
+      end
+    end
+  end
+
+  def test_fails_when_target_is_missing
+    metadata = { targets: { mock: { main: "mock.cr" } } }
+
+    with_shard(metadata) do
+      Dir.cd(application_path) do
+        File.open "mock.cr", "w"
+        ex = assert_raises(FailedCommand) { run "shards build mock_fake" }
+        assert_match "\e[31mTarget\e[0m 'mock_fake' is not found\n", ex.stdout
+      end
+    end
+  end
+end

test/support/cli.cr

@@ -54,6 +54,25 @@ module Shards
             else
               yml << value
             end
+          elsif key.to_s == "targets"
+            yml << "targets:\n"
+            value.each do |target, info|
+              yml << "  " << target.to_s << ":\n"
+              info.each_key do |info_key|
+                case info_key
+                when :main
+                  yml << "    main: " << info[info_key].inspect << "\n"
+                when :options
+                  yml << "    options:\n"
+                  options = info[info_key]
+                  if options.is_a?(Array(String))
+                    options.each do |option|
+                      yml << "      - " << option.inspect << "\n"
+                    end
+                  end
+                end
+              end
+            end
           end
         end
       end