# This code is free software; you can redistribute it and/or modify it under
# the terms of the new BSD License.
#
# Copyright (c) 2009-2010, Sebastian Staudt

require 'test_parameter'

class TestCommand < Test::Unit::TestCase

  include TestParameter

  context 'A Rubikon command' do

    should 'be a Parameter with arguments' do
      assert Command.included_modules.include?(Parameter)
      assert Command.included_modules.include?(HasArguments)
    end

    should 'raise an exception when no appliation is given' do
      assert_raise ArgumentError do
        Command.new nil, :command
      end
    end

    should 'raise an exception when no code block is given' do
      assert_raise BlockMissingError do
        Command.new @app, :command
      end
    end

    should 'not raise an exception when created with correct options' do
      description = 'This is a command'
      name        = :command
      assert_nothing_raised do
        command = Command.new @app, name do end
        command.description = description
        assert_equal name, command.name
        assert_equal description, command.description
      end
    end

    should 'correctly parse given parameters' do
      command = Command.new @app, :command, [:cmd_arg] do end
      option = Option.new(@app, :test, [:opt_arg])
      command.add_param option
      flag = Flag.new(@app, :t)
      command.add_param flag
      command.run(*%w{--test arg -t test})
      assert option.active?
      assert flag.active?
      assert_equal %w{test}, command.arguments
      assert_equal 'test', command[0]
      assert_equal 'test', command.cmd_arg
      assert_equal %w{arg}, command.parameters[:test].args
      assert_equal 'arg', command.test[0]
      assert_equal 'arg', command.test.opt_arg

      assert_raise UnknownParameterError do
        command.run(*%w{--unknown})
      end
    end

    should 'allow parameter aliases' do
      command = Command.new @app, :command do end
      command.add_param({ :t => :test })
      flag1 = Flag.new(@app, :test)
      command.add_param flag1
      flag2 = Flag.new(@app, :test2)
      command.add_param flag2
      command.add_param({ :t2 => :test2 })
      command.run(*%w{-t --t2})
      assert flag1.active?
      assert flag2.active?
    end

    should 'run the code supplied inside its block' do
      block_run = false
      command = Command.new @app, :command do
        block_run = true
      end
      command.run
      assert block_run
    end

    should 'run external code if no block is given' do
      command = Command.new @app, :external_command
      command.run
      assert @app.sandbox.instance_variable_get(:@external_command_run)
    end

  end

end